diff options
| author | Stefan Monnier | 2011-02-26 10:19:08 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2011-02-26 10:19:08 -0500 |
| commit | a9de04fa62f123413d82b7b7b1e7a77705eb82dd (patch) | |
| tree | 84292e07c3583dee99376669fb799d8c93cdd5ff /lisp/vc/diff-mode.el | |
| parent | 876c194cbac17a6220dbf406b0a602325978011c (diff) | |
| download | emacs-a9de04fa62f123413d82b7b7b1e7a77705eb82dd.tar.gz emacs-a9de04fa62f123413d82b7b7b1e7a77705eb82dd.zip | |
Compute freevars in cconv-analyse.
* lisp/emacs-lisp/cconv.el: Compute freevars in cconv-analyse.
(cconv-mutated, cconv-captured): Remove.
(cconv-captured+mutated, cconv-lambda-candidates): Don't give them
a global value.
(cconv-freevars-alist): New var.
(cconv-freevars): Remove.
(cconv--lookup-let): Remove.
(cconv-closure-convert-function): Extract from cconv-closure-convert-rec.
(cconv-closure-convert-rec): Adjust to above changes.
(fboundp): New function.
(cconv-analyse-function, form): Rewrite.
* lisp/emacs-lisp/bytecomp.el (byte-compile-initial-macro-environment):
Handle declare-function here.
(byte-compile-obsolete): Remove.
(byte-compile-arglist-warn): Check late defsubst here.
(byte-compile-file-form): Simplify.
(byte-compile-file-form-defsubst): Remove.
(byte-compile-macroexpand-declare-function): Rename from
byte-compile-declare-function, turn it into a macro-expander.
(byte-compile-normal-call): Check obsolescence.
(byte-compile-quote-form): Remove.
(byte-compile-defmacro): Revert to trunk's definition which seems to
work just as well and handles `declare'.
* lisp/emacs-lisp/byte-run.el (make-obsolete): Don't modify byte-compile.
* lisp/Makefile.in (BIG_STACK_DEPTH): Increase to 1200.
(compile-onefile): Pass $(BIG_STACK_OPTS) before "-l bytecomp".
* lisp/emacs-lisp/macroexp.el: Use lexbind.
(macroexpand-all-1): Check macro obsolescence.
* lisp/vc/diff-mode.el: Use lexbind.
* lisp/follow.el (follow-calc-win-end): Simplify.
Diffstat (limited to 'lisp/vc/diff-mode.el')
| -rw-r--r-- | lisp/vc/diff-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index 13d10f02b41..59e442a89c3 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; diff-mode.el --- a mode for viewing/editing context diffs | 1 | ;;; diff-mode.el --- a mode for viewing/editing context diffs -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998-2011 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998-2011 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -1278,7 +1278,7 @@ a diff with \\[diff-reverse-direction]. | |||
| 1278 | (add-hook 'after-change-functions 'diff-after-change-function nil t) | 1278 | (add-hook 'after-change-functions 'diff-after-change-function nil t) |
| 1279 | (add-hook 'post-command-hook 'diff-post-command-hook nil t)) | 1279 | (add-hook 'post-command-hook 'diff-post-command-hook nil t)) |
| 1280 | ;; Neat trick from Dave Love to add more bindings in read-only mode: | 1280 | ;; Neat trick from Dave Love to add more bindings in read-only mode: |
| 1281 | (lexical-let ((ro-bind (cons 'buffer-read-only diff-mode-shared-map))) | 1281 | (let ((ro-bind (cons 'buffer-read-only diff-mode-shared-map))) |
| 1282 | (add-to-list 'minor-mode-overriding-map-alist ro-bind) | 1282 | (add-to-list 'minor-mode-overriding-map-alist ro-bind) |
| 1283 | ;; Turn off this little trick in case the buffer is put in view-mode. | 1283 | ;; Turn off this little trick in case the buffer is put in view-mode. |
| 1284 | (add-hook 'view-mode-hook | 1284 | (add-hook 'view-mode-hook |