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