Mercurial > hg > xemacs-beta
changeset 5561:9a93bc90b3bd
Add a defsetf for get-char-table, necessary for the tests in the last commit.
lisp/ChangeLog addition:
2011-09-04 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el (get-char-table): Add a defsetf for this.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 04 Sep 2011 20:35:31 +0100 |
| parents | 58b38d5b32d0 |
| children | 855b667dea13 |
| files | lisp/ChangeLog lisp/cl-macs.el |
| diffstat | 2 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Sep 04 19:51:35 2011 +0100 +++ b/lisp/ChangeLog Sun Sep 04 20:35:31 2011 +0100 @@ -1,3 +1,7 @@ +2011-09-04 Aidan Kehoe <kehoea@parhasard.net> + + * cl-macs.el (get-char-table): Add a defsetf for this. + 2011-09-04 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-output-file-form):
--- a/lisp/cl-macs.el Sun Sep 04 19:51:35 2011 +0100 +++ b/lisp/cl-macs.el Sun Sep 04 20:35:31 2011 +0100 @@ -2215,6 +2215,9 @@ ;(defsetf specifier-instance (spec &optional dom def nof) (val) ; `(set-specifier ,spec ,val ,dom)) +(defsetf get-char-table (char table) (store) + `(put-char-table ,char ,store ,table)) + ;; Annotations (defsetf annotation-glyph set-annotation-glyph) (defsetf annotation-down-glyph set-annotation-down-glyph)