Mercurial > emacs
changeset 27686:888000b8e8b6
(toplevel): Require CL at compile time.
(uniquify-push): Removed.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 12 Feb 2000 19:48:01 +0000 |
| parents | 15ad3fb709f8 |
| children | ee4f82952cde |
| files | lisp/uniquify.el |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/uniquify.el Sat Feb 12 19:47:18 2000 +0000 +++ b/lisp/uniquify.el Sat Feb 12 19:48:01 2000 +0000 @@ -85,6 +85,7 @@ ;;; Code: (provide 'uniquify) +(eval-when-compile (require 'cl)) ;;; User-visible variables @@ -159,9 +160,6 @@ ;;; Utilities -(defmacro uniquify-push (item list) - `(setq ,list (cons ,item ,list))) - ;; For directories, return the last component, not the empty string. (defun uniquify-file-name-nondirectory (file-name) (file-name-nondirectory (directory-file-name file-name))) @@ -213,9 +211,9 @@ (equal rawname (uniquify-file-name-nondirectory newbuffile)))))) (if deserving - (uniquify-push (list rawname bfn buffer nil) fix-list) - (uniquify-push (list (buffer-name buffer)) - uniquify-non-file-buffer-names))) + (push (list rawname bfn buffer nil) fix-list) + (push (list (buffer-name buffer)) + uniquify-non-file-buffer-names))) (setq buffers (cdr buffers)))) ;; selects buffers whose names may need changing, and others that ;; may conflict. @@ -273,7 +271,7 @@ (uniquify-rationalize-conflicting-sublist conflicting-sublist old-name depth) (setq conflicting-sublist nil))) - (uniquify-push item conflicting-sublist) + (push item conflicting-sublist) (setq old-name proposed-name)) (setq fix-list (cdr fix-list))) (uniquify-rationalize-conflicting-sublist