diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-04 11:14:26 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-12-04 11:14:26 +0100 |
| commit | b3d315efc210d47b22791dd938e6354bcb0f089c (patch) | |
| tree | 624f2fbb9baf456985c6ef2eee61a9668f56d92a /lisp/erc/erc-list.el | |
| parent | cbfce827ace4c410a2eed50c8d8c763721925b7e (diff) | |
| download | emacs-b3d315efc210d47b22791dd938e6354bcb0f089c.tar.gz | |
Prefer setq-local in erc
* lisp/erc/erc-goodies.el (erc-imenu-setup):
* lisp/erc/erc-list.el (erc-list-install-322-handler, erc-cmd-LIST):
* lisp/erc/erc-pcomplete.el (pcomplete-erc-setup):
* lisp/erc/erc.el (erc-mode, erc-update-mode-line-buffer):
Prefer setq-local.
Diffstat (limited to 'lisp/erc/erc-list.el')
| -rw-r--r-- | lisp/erc/erc-list.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/erc/erc-list.el b/lisp/erc/erc-list.el index 036d7733ed7..ae7c2e5f2fa 100644 --- a/lisp/erc/erc-list.el +++ b/lisp/erc/erc-list.el @@ -188,15 +188,15 @@ (lambda (_proc _parsed) (remove-hook 'erc-server-322-functions 'erc-list-handle-322 t))) ;; Find the list buffer, empty it, and display it. - (set (make-local-variable 'erc-list-buffer) - (get-buffer-create (concat "*Channels of " - erc-server-announced-name - "*"))) + (setq-local erc-list-buffer + (get-buffer-create (concat "*Channels of " + erc-server-announced-name + "*"))) (with-current-buffer erc-list-buffer (erc-list-menu-mode) (setq buffer-read-only nil) (erase-buffer) - (set (make-local-variable 'erc-list-server-buffer) server-buffer) + (setq-local erc-list-server-buffer server-buffer) (setq buffer-read-only t)) (pop-to-buffer erc-list-buffer)) t) @@ -211,7 +211,7 @@ should usually be one or more channels, separated by commas. Please note that this function only works with IRC servers which conform to RFC and send the LIST header (#321) at start of list transmission." (erc-with-server-buffer - (set (make-local-variable 'erc-list-last-argument) line) + (setq-local erc-list-last-argument line) (erc-once-with-server-event 321 (let ((buf (current-buffer))) |