(put-string-on-kill-ring): Delete this function.

(bibtex-current-entry-label): Use kill-new instead.

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 038c7cc0a979a9fbb9862260aa51730a46c4adf8..9d605e8e13dc6802bd5108326dd69eb2b0059efe 100644 (file)
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -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 @@ Suggested binding is ^C-k."
                    (format "\\cite{%s}" key)
                    key)))
       (if kill
-         (put-string-on-kill-ring val))
+         (kill-new val))
       val)))
 
 ;;; bibtex mode: