diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-11-14 12:06:07 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-14 12:06:07 +0000 |
| commit | b28fd79a1713e041d36845a17ada26b9ebeb9ed0 (patch) | |
| tree | b317d602e27a78cff3aedde944c64a53233d9851 /lisp/uniquify.el | |
| parent | b21a4e7509d89df99fed0a55d300b667e77e354c (diff) | |
| download | emacs-b28fd79a1713e041d36845a17ada26b9ebeb9ed0.tar.gz | |
Use new backquote syntax.
Diffstat (limited to 'lisp/uniquify.el')
| -rw-r--r-- | lisp/uniquify.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 3099ff0a1f3..198353402fc 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -160,7 +160,7 @@ variable is ignored." ;;; Utilities (defmacro uniquify-push (item list) - (` (setq (, list) (cons (, item) (, list))))) + `(setq ,list (cons ,item ,list))) ;; For directories, return the last component, not the empty string. (defun uniquify-file-name-nondirectory (file-name) @@ -168,11 +168,11 @@ variable is ignored." ;; uniquify-fix-list data structure (defmacro uniquify-fix-item-base (a) - (` (car (, a)))) + `(car ,a)) (defmacro uniquify-fix-item-filename (a) - (` (car (cdr (, a))))) + `(car (cdr ,a))) (defmacro uniquify-fix-item-buffer (a) - (` (car (cdr (cdr (, a)))))) + `(car (cdr (cdr ,a)))) ;; Not a macro: passed to mapcar. (defun uniquify-fix-item-unrationalized-buffer (item) (or (car (cdr (cdr (cdr item)))) nil)) ;maybe better in the future |