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 @@
                (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