Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- 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)