From: Juri Linkov <juri@linkov.net>
Date: Sat, 30 Nov 2019 21:42:37 +0000 (+0200)
Subject: * lisp/tab-line.el (tab-line-auto-hscroll): Don't let-bind buffer-local values
X-Git-Tag: emacs-27.0.90~469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfbbbf319e4e357c82a79944090c949f3c5299c3;p=emacs.git

* lisp/tab-line.el (tab-line-auto-hscroll): Don't let-bind buffer-local values

Use setq to set buffer-local values of truncate-lines and buffer-undo-list.
This will prevent leaking of let-bound values to buffer-local values
of the minibuffer.
---

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 0f701842dfa..c98b1cfce61 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -482,10 +482,10 @@ the selected tab visible."
 (defun tab-line-auto-hscroll (strings hscroll)
   (with-temp-buffer
     (let ((truncate-partial-width-windows nil)
-          (truncate-lines nil)
           (inhibit-modification-hooks t)
-          (buffer-undo-list t)
           show-arrows)
+      (setq truncate-lines nil
+            buffer-undo-list t)
       (apply 'insert strings)
       (goto-char (point-min))
       (add-face-text-property (point-min) (point-max) 'tab-line)