Mercurial > emacs

comparison lisp/emacs-lisp/cl-macs.el @ 111442:7094295b2a61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/emacs-lisp/cl-macs.el (extent-data, extent-face, extent-priority) (extent-end-position, extent-start-position): Remove setf method for non-existing functions.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 08 Nov 2010 14:09:21 -0500
parents 942097a71997
children 4ba82556d7dd
comparison
equal deleted inserted replaced
111441:b527d5f89f7f 111442:7094295b2a61
1746 (defsetf current-local-map use-local-map t) 1746 (defsetf current-local-map use-local-map t)
1747 (defsetf current-window-configuration set-window-configuration t) 1747 (defsetf current-window-configuration set-window-configuration t)
1748 (defsetf default-file-modes set-default-file-modes t) 1748 (defsetf default-file-modes set-default-file-modes t)
1749 (defsetf default-value set-default) 1749 (defsetf default-value set-default)
1750 (defsetf documentation-property put) 1750 (defsetf documentation-property put)
1751 (defsetf extent-data set-extent-data)
1752 (defsetf extent-face set-extent-face)
1753 (defsetf extent-priority set-extent-priority)
1754 (defsetf extent-end-position (ext) (store)
1755 (list 'progn (list 'set-extent-endpoints (list 'extent-start-position ext)
1756 store) store))
1757 (defsetf extent-start-position (ext) (store)
1758 (list 'progn (list 'set-extent-endpoints store
1759 (list 'extent-end-position ext)) store))
1760 (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s)) 1751 (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s))
1761 (defsetf face-background-pixmap (f &optional s) (x) 1752 (defsetf face-background-pixmap (f &optional s) (x)
1762 (list 'set-face-background-pixmap f x s)) 1753 (list 'set-face-background-pixmap f x s))
1763 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s)) 1754 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s))
1764 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s)) 1755 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s))