Use new backquote syntax.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3af22fd90558b6a2a4a008c52a024ab863e7ad5..924effed613d3d5a37166b1facb9a4e2d04a5abe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,14 +1,18 @@
-1999-11-15  Markus Rost  <rost@ias.edu>
+1998-09-14  Michael Ernst  <mernst@alum.mit.edu>
+
+       * uniquify.el: Use new backquote syntax.
+
+1999-11-14  Markus Rost  <rost@ias.edu>
 
        * ispell.el (ispell-dictionary-alist): Fix type by adding koi8-r
        as in ispell-local-dictionary-alist.
 
-1999-11-15  Alex Schroeder  <alex@gnu.org>
+1999-11-14  Alex Schroeder  <alex@gnu.org>
 
        * ansi-color.el (ansi-color-apply): Updated regexps to include
        highlighted face.
        
-1999-01-15  Johan Vromans  <jvromans@squirrel.nl>
+1999-01-14  Johan Vromans  <jvromans@squirrel.nl>
 
        * forms.el (forms--make-format-elt-using-text-properties): 
        Treat `intangible' differently.

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 3099ff0a1f3ad2de6f487f30633f10f19f5f96c1..198353402fc64defd2745b6cd592eb295e0efdd2 100644 (file)
--- 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