1.1 --- a/yatexlib.el	Thu Feb 09 08:45:22 2012 +0900
     1.2 +++ b/yatexlib.el	Fri Feb 10 12:31:58 2012 +0900
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX and yahtml common libraries, general functions and definitions
     1.5  ;;; yatexlib.el
     1.6  ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Thu Feb  9 08:32:18 2012 on firestorm
     1.8 +;;; Last modified Fri Feb 10 12:30:49 2012 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;; General variables
    1.12 @@ -1523,6 +1523,17 @@
    1.13  	    (throw 'found (car alist)))
    1.14  	(setq alist (cdr alist))))))
    1.15  
    1.16 +(defun YaTeX-push-to-kill-ring (string)
    1.17 +  "Push STRING to kill-ring, then show guidance message."
    1.18 +  (and (stringp string) (string< "" string)
    1.19 +       (let ((key (key-description (where-is-internal 'yank nil t)))
    1.20 +	     (msg
    1.21 +	      (if YaTeX-japan
    1.22 +		  " をkill-ringに入れました。次のyank(%s)で貼付できます"
    1.23 +		" is stored into kill-ring.  Paste it by yank(%s).")))
    1.24 +	 (kill-new string)
    1.25 +	 (message (concat "`%s'" msg) string key))))
    1.26 +
    1.27  ;;;
    1.28  ;; Functions for the Installation time
    1.29  ;;;