martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(byte-optimize-form-code-walker):

Browse Source 
Treat save-current-buffer like save-excursion.
This commit is contained in:
Richard M. Stallman
1996-09-22 04:38:36 +00:00
parent 1d288aefee
commit 2754fefaec
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emacs-lisp/byte-opt.el
View File

@@ -423,7 +423,7 @@
(cons (byte-optimize-form (nth 2 form) for-effect)
(byte-optimize-body (cdr (cdr (cdr form))) t)))))
((memq fn '(save-excursion save-restriction))
((memq fn '(save-excursion save-restriction save-current-buffer))
;; those subrs which have an implicit progn; it's not quite good
;; enough to treat these like normal function calls.
;; This can turn (save-excursion ...) into (save-excursion) which