Mercurial > hg > xemacs-beta
diff lisp/cl-macs.el @ 355:182f72e8cd0d r21-1-7
Import from CVS: tag r21-1-7
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:56:21 +0200 |
| parents | afd57c14dfc8 |
| children | 972bbb6d6ca2 |
line wrap: on
line diff
--- a/lisp/cl-macs.el Mon Aug 13 10:55:35 2007 +0200 +++ b/lisp/cl-macs.el Mon Aug 13 10:56:21 2007 +0200 @@ -1660,12 +1660,12 @@ (defsetf extent-priority set-extent-priority) (defsetf extent-property (x y &optional d) (arg) (list 'set-extent-property x y arg)) +(defsetf extent-start-position (ext) (store) + `(progn (set-extent-endpoints ,ext ,store (extent-end-position ,ext)) + ,store)) (defsetf extent-end-position (ext) (store) - (list 'progn (list 'set-extent-endpoints (list 'extent-start-position ext) - store) store)) -(defsetf extent-start-position (ext) (store) - (list 'progn (list 'set-extent-endpoints store - (list 'extent-end-position ext)) store)) + `(progn (set-extent-endpoints ,ext (extent-start-position ,ext) ,store) + ,store)) (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s)) (defsetf face-background-pixmap (f &optional s) (x) (list 'set-face-background-pixmap f x s))