master e0e0fe67: Prefer `setq-local' in preview.el.in

[Arash Esbati]

branch: master
commit e0e0fe673304e4955e2a50845182ef7e88a90b49
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@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)