# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 942581167 0
# Node ID 465ff99f6dd21539baf1c89762a0ab542b159f73
# Parent  8b1aba9a6c1281ba952d53a89761b737b53f5c44
Use new backquote syntax.

diff -r 8b1aba9a6c12 -r 465ff99f6dd2 lisp/uniquify.el
--- 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