Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
1645 (defsetf documentation-property put) 1645 (defsetf documentation-property put)
1646 (defsetf extent-face set-extent-face) 1646 (defsetf extent-face set-extent-face)
1647 (defsetf extent-priority set-extent-priority) 1647 (defsetf extent-priority set-extent-priority)
1648 (defsetf extent-property (x y &optional ignored-arg) (arg) 1648 (defsetf extent-property (x y &optional ignored-arg) (arg)
1649 (list 'set-extent-property x y arg)) 1649 (list 'set-extent-property x y arg))
1650 (defsetf extent-start-position (ext) (store)
1651 `(progn (set-extent-endpoints ,ext ,store (extent-end-position ,ext))
1652 ,store))
1650 (defsetf extent-end-position (ext) (store) 1653 (defsetf extent-end-position (ext) (store)
1651 (list 'progn (list 'set-extent-endpoints (list 'extent-start-position ext) 1654 `(progn (set-extent-endpoints ,ext (extent-start-position ,ext) ,store)
1652 store) store)) 1655 ,store))
1653 (defsetf extent-start-position (ext) (store)
1654 (list 'progn (list 'set-extent-endpoints store
1655 (list 'extent-end-position ext)) store))
1656 (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s)) 1656 (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s))
1657 (defsetf face-background-pixmap (f &optional s) (x) 1657 (defsetf face-background-pixmap (f &optional s) (x)
1658 (list 'set-face-background-pixmap f x s)) 1658 (list 'set-face-background-pixmap f x s))
1659 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s)) 1659 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s))
1660 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s)) 1660 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s))