# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1289243361 18000
# Node ID 7094295b2a61b869e2dd47efcd21e17481f3e9f2
# Parent  b527d5f89f7ff7f316071df1d4b10a017805f4bc
* 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.

diff -r b527d5f89f7f -r 7094295b2a61 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Nov 08 01:38:47 2010 +0000
+++ b/lisp/ChangeLog	Mon Nov 08 14:09:21 2010 -0500
@@ -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 -r b527d5f89f7f -r 7094295b2a61 lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Mon Nov 08 01:38:47 2010 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Mon Nov 08 14:09:21 2010 -0500
@@ -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))