From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 8 Sep 1994 17:44:42 +0000 (+0000)
Subject: (put-string-on-kill-ring): Delete this function.
X-Git-Tag: emacs-19.34~7137
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f709e2e1309ed834c7a78ac4527caca011725562;p=emacs.git

(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 038c7cc0a97..9d605e8e13d 100644
--- 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: