Mercurial > hg > xemacs-beta
diff lisp/cl-macs.el @ 424:11054d720c21 r21-2-20
Import from CVS: tag r21-2-20
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:26:11 +0200 |
| parents | 697ef44129c6 |
| children |
line wrap: on
line diff
--- a/lisp/cl-macs.el Mon Aug 13 11:25:03 2007 +0200 +++ b/lisp/cl-macs.el Mon Aug 13 11:26:11 2007 +0200 @@ -1647,12 +1647,12 @@ (defsetf extent-priority set-extent-priority) (defsetf extent-property (x y &optional ignored-arg) (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))