Mercurial > emacs

changeset 26444:465ff99f6dd2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use new backquote syntax.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 14 Nov 1999 12:06:07 +0000
parents 8b1aba9a6c12
children 994f90246cfa
files lisp/uniquify.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/uniquify.el	Sat Nov 13 23:42:59 1999 +0000
+++ b/lisp/uniquify.el	Sun Nov 14 12:06:07 1999 +0000
@@ -160,7 +160,7 @@
 ;;; 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 @@
 
 ;; 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