diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-loaddefs.el | 15 | ||||
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 3 |
3 files changed, 7 insertions, 16 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 845c666bc8b..3669101d3ae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-06-13 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * emacs-lisp/edebug.el (edebug-read-function): Remove old incorrect | ||
| 4 | mapping from #' to function*. | ||
| 5 | |||
| 1 | 2012-06-13 Chong Yidong <cyd@gnu.org> | 6 | 2012-06-13 Chong Yidong <cyd@gnu.org> |
| 2 | 7 | ||
| 3 | * mouse.el (mouse-drag-track): Do not set the mark if the user | 8 | * mouse.el (mouse-drag-track): Do not set the mark if the user |
diff --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el index f0554342a09..b389e78bc39 100644 --- a/lisp/emacs-lisp/cl-loaddefs.el +++ b/lisp/emacs-lisp/cl-loaddefs.el | |||
| @@ -254,18 +254,6 @@ Remove from SYMBOL's plist the property PROPNAME and its value. | |||
| 254 | 254 | ||
| 255 | ;;;*** | 255 | ;;;*** |
| 256 | 256 | ||
| 257 | <<<<<<< TREE | ||
| 258 | ;;;### (autoloads (defsubst* compiler-macroexpand define-compiler-macro | ||
| 259 | ;;;;;; assert check-type typep deftype cl-struct-setf-expander defstruct | ||
| 260 | ;;;;;; define-modify-macro callf2 callf letf* letf rotatef shiftf | ||
| 261 | ;;;;;; remf cl-do-pop psetf setf get-setf-method defsetf define-setf-method | ||
| 262 | ;;;;;; declare the locally multiple-value-setq multiple-value-bind | ||
| 263 | ;;;;;; lexical-let* lexical-let symbol-macrolet macrolet labels | ||
| 264 | ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist | ||
| 265 | ;;;;;; do* do loop return-from return block etypecase typecase ecase | ||
| 266 | ;;;;;; case load-time-value eval-when destructuring-bind function* | ||
| 267 | ;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "d19555cbac873fe90a312b8977a8ebff") | ||
| 268 | ======= | ||
| 269 | ;;;### (autoloads (cl--compiler-macro-cXXr cl--compiler-macro-list* | 257 | ;;;### (autoloads (cl--compiler-macro-cXXr cl--compiler-macro-list* |
| 270 | ;;;;;; cl--compiler-macro-adjoin cl-defsubst cl-compiler-macroexpand | 258 | ;;;;;; cl--compiler-macro-adjoin cl-defsubst cl-compiler-macroexpand |
| 271 | ;;;;;; cl-define-compiler-macro cl-assert cl-check-type cl-typep | 259 | ;;;;;; cl-define-compiler-macro cl-assert cl-check-type cl-typep |
| @@ -279,8 +267,7 @@ Remove from SYMBOL's plist the property PROPNAME and its value. | |||
| 279 | ;;;;;; cl-return cl-block cl-etypecase cl-typecase cl-ecase cl-case | 267 | ;;;;;; cl-return cl-block cl-etypecase cl-typecase cl-ecase cl-case |
| 280 | ;;;;;; cl-load-time-value cl-eval-when cl-destructuring-bind cl-function | 268 | ;;;;;; cl-load-time-value cl-eval-when cl-destructuring-bind cl-function |
| 281 | ;;;;;; cl-defmacro cl-defun cl-gentemp cl-gensym) "cl-macs" "cl-macs.el" | 269 | ;;;;;; cl-defmacro cl-defun cl-gentemp cl-gensym) "cl-macs" "cl-macs.el" |
| 282 | ;;;;;; "32abce1bd6f38339285a6071e1be5e59") | 270 | ;;;;;; "4a758f183747246fe042bf42b6ddd85c") |
| 283 | >>>>>>> MERGE-SOURCE | ||
| 284 | ;;; Generated autoloads from cl-macs.el | 271 | ;;; Generated autoloads from cl-macs.el |
| 285 | 272 | ||
| 286 | (autoload 'cl-gensym "cl-macs" "\ | 273 | (autoload 'cl-gensym "cl-macs" "\ |
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.)" | |||
| 919 | (cond ((eq ?\' (following-char)) | 919 | (cond ((eq ?\' (following-char)) |
| 920 | (forward-char 1) | 920 | (forward-char 1) |
| 921 | (list | 921 | (list |
| 922 | (edebug-storing-offsets (- (point) 2) | 922 | (edebug-storing-offsets (- (point) 2) 'function) |
| 923 | (if (featurep 'cl) 'function* 'function)) | ||
| 924 | (edebug-read-storing-offsets stream))) | 923 | (edebug-read-storing-offsets stream))) |
| 925 | ((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6 | 924 | ((memq (following-char) '(?: ?B ?O ?X ?b ?o ?x ?1 ?2 ?3 ?4 ?5 ?6 |
| 926 | ?7 ?8 ?9 ?0)) | 925 | ?7 ?8 ?9 ?0)) |