branch: master
commit e0e0fe673304e4955e2a50845182ef7e88a90b49
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@gnu.org>
Prefer `setq-local' in preview.el.in
* preview.el.in (preview-mouse-open-error, preview-mode-setup):
Prefer `setq-local' over `set' and `make-local-variable'
combination.
---
preview.el.in | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/preview.el.in b/preview.el.in
index 9404bc94..e9cf622b 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -1299,7 +1299,7 @@ are functions to call on preview's clicks."
"*Preview-Ghostscript-Error*")))
(with-current-buffer buff
(kill-all-local-variables)
- (set (make-local-variable 'view-exit-action) #'kill-buffer)
+ (setq-local view-exit-action #'kill-buffer)
(setq buffer-undo-list t)
(erase-buffer)
(insert string)
@@ -3087,8 +3087,7 @@ pp")
(defun preview-mode-setup ()
"Setup proper buffer hooks and behavior for previews."
- (set (make-local-variable 'desktop-save-buffer)
- #'desktop-buffer-preview-misc-data)
+ (setq-local desktop-save-buffer #'desktop-buffer-preview-misc-data)
(add-hook 'pre-command-hook #'preview-mark-point nil t)
(add-hook 'post-command-hook #'preview-move-point nil t)
(when (TeX-buffer-file-name)
