Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 355:182f72e8cd0d r21-1-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-7
author cvs
date Mon, 13 Aug 2007 10:56:21 +0200
parents afd57c14dfc8
children 972bbb6d6ca2
comparison
equal deleted inserted replaced
354:3729bef672e0 355:182f72e8cd0d
1658 (defsetf extent-data set-extent-data) ; obsolete 1658 (defsetf extent-data set-extent-data) ; obsolete
1659 (defsetf extent-face set-extent-face) 1659 (defsetf extent-face set-extent-face)
1660 (defsetf extent-priority set-extent-priority) 1660 (defsetf extent-priority set-extent-priority)
1661 (defsetf extent-property (x y &optional d) (arg) 1661 (defsetf extent-property (x y &optional d) (arg)
1662 (list 'set-extent-property x y arg)) 1662 (list 'set-extent-property x y arg))
1663 (defsetf extent-start-position (ext) (store)
1664 `(progn (set-extent-endpoints ,ext ,store (extent-end-position ,ext))
1665 ,store))
1663 (defsetf extent-end-position (ext) (store) 1666 (defsetf extent-end-position (ext) (store)
1664 (list 'progn (list 'set-extent-endpoints (list 'extent-start-position ext) 1667 `(progn (set-extent-endpoints ,ext (extent-start-position ,ext) ,store)
1665 store) store)) 1668 ,store))
1666 (defsetf extent-start-position (ext) (store)
1667 (list 'progn (list 'set-extent-endpoints store
1668 (list 'extent-end-position ext)) store))
1669 (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s)) 1669 (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s))
1670 (defsetf face-background-pixmap (f &optional s) (x) 1670 (defsetf face-background-pixmap (f &optional s) (x)
1671 (list 'set-face-background-pixmap f x s)) 1671 (list 'set-face-background-pixmap f x s))
1672 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s)) 1672 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s))
1673 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s)) 1673 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s))