mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-10 00:00:39 -08:00
* lisp/emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect
mapping from #' to function*.
This commit is contained in:
parent
8cca97031d
commit
a81068ba96
2 changed files with 6 additions and 2 deletions
|
|
@ -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>
|
2012-06-13 Chong Yidong <cyd@gnu.org>
|
||||||
|
|
||||||
* mouse.el (mouse-drag-track): Do not set the mark if the user
|
* mouse.el (mouse-drag-track): Do not set the mark if the user
|
||||||
|
|
|
||||||
|
|
@ -919,8 +919,7 @@ already is one.)"
|
||||||
(cond ((eq ?\' (following-char))
|
(cond ((eq ?\' (following-char))
|
||||||
(forward-char 1)
|
(forward-char 1)
|
||||||
(list
|
(list
|
||||||
(edebug-storing-offsets (- (point) 2)
|
(edebug-storing-offsets (- (point) 2) 'function)
|
||||||
(if (featurep 'cl) 'function* 'function))
|
|
||||||
(edebug-read-storing-offsets stream)))
|
(edebug-read-storing-offsets stream)))
|
||||||
((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6
|
((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6
|
||||||
?7 ?8 ?9 ?0))
|
?7 ?8 ?9 ?0))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue