[Emacs-diffs] /srv/bzr/emacs/trunk r102290: * lisp/emacs-lisp/cl-macs.el (extent-data, extent-face, extent-priority)

[Stefan Monnier]

------------------------------------------------------------
revno: 102290
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2010-11-08 14:09:21 -0500
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-macs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-07 15:45:45 +0000
+++ b/lisp/ChangeLog    2010-11-08 19:09:21 +0000
@@ -1,3 +1,9 @@
+2010-11-08  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/cl-macs.el (extent-data, extent-face, extent-priority)
+       (extent-end-position, extent-start-position): Remove setf method for
+       non-existing functions (bug#7319).
+
 2010-11-07  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/smie.el: Simplify the smie-rules-function return values.

=== modified file 'lisp/emacs-lisp/cl-macs.el'
--- a/lisp/emacs-lisp/cl-macs.el        2010-11-05 07:34:45 +0000
+++ b/lisp/emacs-lisp/cl-macs.el        2010-11-08 19:09:21 +0000
@@ -1748,15 +1748,6 @@
 (defsetf default-file-modes set-default-file-modes t)
 (defsetf default-value set-default)
 (defsetf documentation-property put)
-(defsetf extent-data set-extent-data)
-(defsetf extent-face set-extent-face)
-(defsetf extent-priority set-extent-priority)
-(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))
 (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))