emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108601: * lisp/emacs-lisp/edebug.


From: Stefan Monnier
Subject: [Emacs-diffs] /srv/bzr/emacs/emacs-24 r108601: * lisp/emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect
Date: Fri, 02 Nov 2012 01:55:40 -0000
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 108601
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-06-13 11:46:29 -0400
message:
  * lisp/emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect
  mapping from #' to function*.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/edebug.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-13 15:28:10 +0000
+++ b/lisp/ChangeLog    2012-06-13 15:46:29 +0000
@@ -1,3 +1,8 @@
+2012-06-13  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect
+       mapping from #' to function*.
+
 2012-06-13  Chong Yidong  <address@hidden>
 
        * mouse.el (mouse-drag-track): Do not set the mark if the user

=== modified file 'lisp/emacs-lisp/edebug.el'
--- a/lisp/emacs-lisp/edebug.el 2012-06-12 05:47:14 +0000
+++ b/lisp/emacs-lisp/edebug.el 2012-06-13 15:46:29 +0000
@@ -919,8 +919,7 @@
   (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))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]