* lisp/emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect

mapping from #' to function*.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 845c666bc8b33981c3936fd3c786137e76e7b5e2..3669101d3aed654b9f8485cd52f16f2158929061 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-13  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect
+       mapping from #' to function*.
+
 2012-06-13  Chong Yidong  <cyd@gnu.org>
 
        * mouse.el (mouse-drag-track): Do not set the mark if the user

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 28b768a14b3220b97a71c97f69a2af6e318bdf3b..c1c65b6f66188aacb2d454b725f5fef78507fc75 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -919,8 +919,7 @@ already is one.)"
   (cond ((eq ?\' (following-char))
         (forward-char 1)
         (list
-         (edebug-storing-offsets (- (point) 2)
-           (if (featurep 'cl) 'function* 'function))
+         (edebug-storing-offsets (- (point) 2) 'function)
          (edebug-read-storing-offsets stream)))
        ((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6
                                  ?7 ?8 ?9 ?0))