[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master dfbbbf3: * lisp/tab-line.el (tab-line-auto-hscroll): Don't let-bi
From: |
Juri Linkov |
Subject: |
master dfbbbf3: * lisp/tab-line.el (tab-line-auto-hscroll): Don't let-bind buffer-local values |
Date: |
Sat, 30 Nov 2019 16:42:45 -0500 (EST) |
branch: master
commit dfbbbf319e4e357c82a79944090c949f3c5299c3
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* 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 0f70184..c98b1cf 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master dfbbbf3: * lisp/tab-line.el (tab-line-auto-hscroll): Don't let-bind buffer-local values,
Juri Linkov <=