emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/wfnames 900da88db7 91/98: Use defconst for buffer name and


From: ELPA Syncer
Subject: [nongnu] elpa/wfnames 900da88db7 91/98: Use defconst for buffer name and prefer defvar-local
Date: Tue, 8 Aug 2023 04:01:40 -0400 (EDT)

branch: elpa/wfnames
commit 900da88db7494f5ea308e038a381aafdeee8e11b
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Use defconst for buffer name and prefer defvar-local
    
    and setq-local.
---
 wfnames.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/wfnames.el b/wfnames.el
index 70e94cae59..6dd3d6a7a0 100644
--- a/wfnames.el
+++ b/wfnames.el
@@ -42,8 +42,8 @@
 (eval-when-compile (require 'cl-lib))
 
 ;; Internal.
-(defvar wfnames-buffer "*Wfnames*")
-(defvar wfnames--modified nil)
+(defconst wfnames-buffer "*Wfnames*")
+(defvar-local wfnames--modified nil)
 
 (defgroup wfnames nil
   "A mode to edit filenames."
@@ -117,9 +117,8 @@
 Special commands:
 \\{wfnames-mode-map}"
   (add-hook 'after-change-functions #'wfnames-after-change-hook nil t)
-  (make-local-variable 'wfnames--modified)
-  (set (make-local-variable 'completion-at-point-functions) #'wfnames-capf)
-  (set (make-local-variable 'revert-buffer-function) #'wfnames-revert-changes))
+  (setq-local completion-at-point-functions #'wfnames-capf)
+  (setq-local revert-buffer-function #'wfnames-revert-changes))
 
 (defun wfnames-abort ()
   "Quit and kill wfnames buffer."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]