From: Gerd Moellmann Date: Sun, 14 Nov 1999 12:07:12 +0000 (+0000) Subject: Use new backquote syntax. X-Git-Tag: emacs-pretest-21.0.90~6100 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8517c22c1b891d300e6590ac1af8e9dfc803215;p=emacs.git Use new backquote syntax. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a3af22fd905..924effed613 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,14 +1,18 @@ -1999-11-15 Markus Rost +1998-09-14 Michael Ernst + + * uniquify.el: Use new backquote syntax. + +1999-11-14 Markus Rost * ispell.el (ispell-dictionary-alist): Fix type by adding koi8-r as in ispell-local-dictionary-alist. -1999-11-15 Alex Schroeder +1999-11-14 Alex Schroeder * ansi-color.el (ansi-color-apply): Updated regexps to include highlighted face. -1999-01-15 Johan Vromans +1999-01-14 Johan Vromans * forms.el (forms--make-format-elt-using-text-properties): Treat `intangible' differently. 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