Mercurial > hg > xemacs-beta

diff lisp/cl-macs.el @ 318:afd57c14dfc8 r21-0b57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b57
author cvs
date Mon, 13 Aug 2007 10:45:36 +0200
parents 57709be46d1b
children 182f72e8cd0d
line wrap: on
line diff
--- a/lisp/cl-macs.el	Mon Aug 13 10:44:47 2007 +0200
+++ b/lisp/cl-macs.el	Mon Aug 13 10:45:36 2007 +0200
@@ -1736,6 +1736,8 @@
 ;; Avoid adding various face and glyph functions.
 (defsetf frame-selected-window (&optional f) (v)
   `(set-frame-selected-window ,f ,v))
+(defsetf glyph-image (glyph &optional domain) (i)
+  (list 'set-glyph-image glyph i domain))
 (defsetf itimer-function set-itimer-function)
 (defsetf itimer-function-arguments set-itimer-function-arguments)
 (defsetf itimer-is-idle set-itimer-is-idle)