# HG changeset patch # User Karl Heuer <kwzh@gnu.org> # Date 779046282 0 # Node ID e56d09b95778cbc749682615b9b2128e8a47c080 # Parent 4d399ce17485a2ea9124ab655ae42aa30759a714 (put-string-on-kill-ring): Delete this function. (bibtex-current-entry-label): Use kill-new instead. diff -r 4d399ce17485 -r e56d09b95778 lisp/textmodes/bibtex.el --- 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: