Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 5561:9a93bc90b3bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 62edcc6a11ec
children 855b667dea13
comparison
equal deleted inserted replaced
5560:58b38d5b32d0 5561:9a93bc90b3bd
2212 ;; specification, rather than just setting it. The net effect is that 2212 ;; specification, rather than just setting it. The net effect is that
2213 ;; it makes specifier-instance return VAL, but other things don't work 2213 ;; it makes specifier-instance return VAL, but other things don't work
2214 ;; as expected -- letf, to name one. 2214 ;; as expected -- letf, to name one.
2215 ;(defsetf specifier-instance (spec &optional dom def nof) (val) 2215 ;(defsetf specifier-instance (spec &optional dom def nof) (val)
2216 ; `(set-specifier ,spec ,val ,dom)) 2216 ; `(set-specifier ,spec ,val ,dom))
2217
2218 (defsetf get-char-table (char table) (store)
2219 `(put-char-table ,char ,store ,table))
2217 2220
2218 ;; Annotations 2221 ;; Annotations
2219 (defsetf annotation-glyph set-annotation-glyph) 2222 (defsetf annotation-glyph set-annotation-glyph)
2220 (defsetf annotation-down-glyph set-annotation-down-glyph) 2223 (defsetf annotation-down-glyph set-annotation-down-glyph)
2221 (defsetf annotation-face set-annotation-face) 2224 (defsetf annotation-face set-annotation-face)