Mercurial > hg > xemacs-beta
diff lisp/cl-compat.el @ 4793:8b50bee3c88c
Remove attempted support for 1996-era emacs without self-quoting keywords.
lisp/ChangeLog addition:
2009-12-19 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (cl-do-arglist):
* cl-compat.el (keyword-of):
Remove support in our generated code for emacs versions where
keywords are not self-quoting.
src/ChangeLog addition:
2009-12-19 Aidan Kehoe <kehoea@parhasard.net>
* symbols.c (reject_constant_symbols):
Indicate that accepting attempted modification of keywords is a
temporary thing.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 19 Dec 2009 18:10:20 +0000 |
| parents | b5e1d4f6b66f |
| children | 2a54dfbe434f 308d34e9f07d |
line wrap: on
line diff
--- a/lisp/cl-compat.el Fri Dec 18 17:49:43 2009 +0000 +++ b/lisp/cl-compat.el Sat Dec 19 18:10:20 2009 +0000 @@ -57,7 +57,7 @@ (list* 'defconst x (list 'quote x) (and doc (list doc)))) (defun keyword-of (sym) - (or (keywordp sym) (keywordp (intern (format ":%s" sym))))) + (or (keywordp sym) (keywordp (read (format ":%s" sym))))) ;;; Routines for parsing keyword arguments.