* 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.

Fixes: debbugs:7319

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c106b95c74770224b9a8f2572ba2aac6fb436a8..a7dc4e73d0c7eef6cbe0342394a914b272ff2898 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-11-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * 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  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/smie.el: Simplify the smie-rules-function return values.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 0cd518bbe624f7905b004fff37fc926d9fc181ad..76f677c619841fdd12adc89f688ef0799bd18962 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1748,15 +1748,6 @@ Example:
 (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))