procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use new backquote syntax.

Browse source
This commit is contained in:
Gerd Moellmann 1999-11-14 12:07:12 +00:00
parent b05d3bee50
commit b8517c22c1
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -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.

8
lisp/uniquify.el
View file

@ -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