Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
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.
This commit is contained in:
Juri Linkov 2019-11-30 23:42:37 +02:00
parent df89d6d6dc
commit dfbbbf319e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/tab-line.el
View file

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