From: Stefan Monnier Date: Wed, 13 Jun 2012 15:46:29 +0000 (-0400) Subject: * lisp/emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect X-Git-Tag: emacs-24.2.90~1199^2~474^2~12 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a81068ba9604f9c420491ff1e3b75b014e18c25d;p=emacs.git * lisp/emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect mapping from #' to function*. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 845c666bc8b..3669101d3ae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-06-13 Stefan Monnier + + * emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect + mapping from #' to function*. + 2012-06-13 Chong Yidong * 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 28b768a14b3..c1c65b6f661 100644 --- 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))