# HG changeset patch # User Gerd Moellmann # Date 950384881 0 # Node ID 888000b8e8b6ca2a0eb6e976a6f3a18fdd4f58cd # Parent 15ad3fb709f847691869d9abde0b3201f3859c3b (toplevel): Require CL at compile time. (uniquify-push): Removed. diff -r 15ad3fb709f8 -r 888000b8e8b6 lisp/uniquify.el --- 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