Mercurial > hg > xemacs-beta
comparison lisp/custom.el @ 5229:7d06a8bf47d2
Move #'purecopy from alloc.c to being an obsolete alias for #'identity
lisp/ChangeLog addition:
2010-06-08 Aidan Kehoe <kehoea@parhasard.net>
* paragraphs.el (sentence-end):
* gtk-faces.el:
* custom.el (custom-declare-variable):
Remove all core code calls to #'purecopy.
* obsolete.el (purecopy):
Make the function itself an obsolete alias to #'identity.
src/ChangeLog addition:
2010-06-08 Aidan Kehoe <kehoea@parhasard.net>
* alloc.c (Fpurecopy):
Moved to obsolete.el as an alias for #'identity, marked obsolete.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 08 Jun 2010 15:58:47 +0100 |
| parents | 17f7e9191c0b |
| children | d27c1ee1943b 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 5228:5efbd1253905 | 5229:7d06a8bf47d2 |
|---|---|
| 181 ((eq keyword :get) | 181 ((eq keyword :get) |
| 182 (put symbol 'custom-get value)) | 182 (put symbol 'custom-get value)) |
| 183 ((eq keyword :require) | 183 ((eq keyword :require) |
| 184 (push value requests)) | 184 (push value requests)) |
| 185 ((eq keyword :type) | 185 ((eq keyword :type) |
| 186 (put symbol 'custom-type (purecopy value))) | 186 (put symbol 'custom-type value)) |
| 187 ((eq keyword :options) | 187 ((eq keyword :options) |
| 188 (if (get symbol 'custom-options) | 188 (if (get symbol 'custom-options) |
| 189 ;; Slow safe code to avoid duplicates. | 189 ;; Slow safe code to avoid duplicates. |
| 190 (mapc (lambda (option) | 190 (mapc (lambda (option) |
| 191 (custom-add-option symbol option)) | 191 (custom-add-option symbol option)) |