From dfbbbf319e4e357c82a79944090c949f3c5299c3 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 30 Nov 2019 23:42:37 +0200 Subject: [PATCH] * 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. --- lisp/tab-line.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5