diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-11-14 12:07:12 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-14 12:07:12 +0000 |
| commit | b8517c22c1b891d300e6590ac1af8e9dfc803215 (patch) | |
| tree | a12d63352c5bfdaa9250c81ddc11b004f8e9dd6a /lisp/uniquify.el | |
| parent | b05d3bee50d8ba5c9fb53d73dffc22b7470c6fa1 (diff) | |
| download | emacs-b8517c22c1b891d300e6590ac1af8e9dfc803215.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 |