diff options
| author | Richard M. Stallman | 1996-09-22 04:38:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-22 04:38:36 +0000 |
| commit | 2754fefaecfd856ff9e0972d0589e02b3c66eaa8 (patch) | |
| tree | 1f7464972c5e22e6e8279ce4252d2cebcfc7c4ac | |
| parent | 1d288aefee1f72d5a0b56d90eca25aef7f32014f (diff) | |
| download | emacs-2754fefaecfd856ff9e0972d0589e02b3c66eaa8.tar.gz emacs-2754fefaecfd856ff9e0972d0589e02b3c66eaa8.zip | |
(byte-optimize-form-code-walker):
Treat save-current-buffer like save-excursion.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 80f3bedc0ef..ef2880c7d9b 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -423,7 +423,7 @@ | |||
| 423 | (cons (byte-optimize-form (nth 2 form) for-effect) | 423 | (cons (byte-optimize-form (nth 2 form) for-effect) |
| 424 | (byte-optimize-body (cdr (cdr (cdr form))) t))))) | 424 | (byte-optimize-body (cdr (cdr (cdr form))) t))))) |
| 425 | 425 | ||
| 426 | ((memq fn '(save-excursion save-restriction)) | 426 | ((memq fn '(save-excursion save-restriction save-current-buffer)) |
| 427 | ;; those subrs which have an implicit progn; it's not quite good | 427 | ;; those subrs which have an implicit progn; it's not quite good |
| 428 | ;; enough to treat these like normal function calls. | 428 | ;; enough to treat these like normal function calls. |
| 429 | ;; This can turn (save-excursion ...) into (save-excursion) which | 429 | ;; This can turn (save-excursion ...) into (save-excursion) which |