Mercurial > emacs

changeset 8717:e56d09b95778

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(put-string-on-kill-ring): Delete this function. (bibtex-current-entry-label): Use kill-new instead.
author Karl Heuer <kwzh@gnu.org>
date Thu, 08 Sep 1994 17:44:42 +0000
parents 4d399ce17485
children 44a433fa6e8f
files lisp/textmodes/bibtex.el
diffstat 1 files changed, 1 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/bibtex.el	Wed Sep 07 01:15:22 1994 +0000
+++ b/lisp/textmodes/bibtex.el	Thu Sep 08 17:44:42 1994 +0000
@@ -247,15 +247,6 @@
     (and (= (length ss1) (length ss2))
 	 (string-equal (upcase ss1) (upcase ss2)))))
 
-;;; This should be moved into simple.el, and the functions there modified
-;;; to call it rather than doing it themselves.
-(defun put-string-on-kill-ring (string)
-  "Make STRING be the first element of the kill ring."
-  (setq kill-ring (cons string kill-ring))
-  (if (> (length kill-ring) kill-ring-max)
-      (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))
-  (setq kill-ring-yank-pointer kill-ring))
-
 
 
 
@@ -587,7 +578,7 @@
 		    (format "\\cite{%s}" key)
 		    key)))
       (if kill
-	  (put-string-on-kill-ring val))
+	  (kill-new val))
       val)))
 
 ;;; bibtex mode: