[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6e0cac1 3/4: * lisp/ibuffer.el (ibuffer, ibuffer-mode): Prefer se
From: |
Stefan Kangas |
Subject: |
master 6e0cac1 3/4: * lisp/ibuffer.el (ibuffer, ibuffer-mode): Prefer setq-local. |
Date: |
Mon, 7 Dec 2020 05:30:40 -0500 (EST) |
branch: master
commit 6e0cac17b5624230a0c136346b35d35ebddb838a
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/ibuffer.el (ibuffer, ibuffer-mode): Prefer setq-local.
---
lisp/ibuffer.el | 47 +++++++++++++++++++++++------------------------
1 file changed, 23 insertions(+), 24 deletions(-)
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 00ba868..7269af3 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -2464,7 +2464,7 @@ FORMATS is the value to use for `ibuffer-formats'.
(require 'ibuf-ext)
(setq ibuffer-filter-groups filter-groups))
(when formats
- (set (make-local-variable 'ibuffer-formats) formats))
+ (setq-local ibuffer-formats formats))
(ibuffer-update nil)
;; Skip the group name by default.
(ibuffer-forward-line 0 t)
@@ -2683,7 +2683,7 @@ You may rearrange filter groups by using the usual pair
`\\[ibuffer-kill-line]' and `\\[ibuffer-yank]'. Yanked groups
will be inserted before the group at point."
;; Include state info next to the mode name.
- (set (make-local-variable 'mode-line-process)
+ (setq-local mode-line-process
'(" by "
(ibuffer-sorting-mode (:eval (symbol-name ibuffer-sorting-mode))
"view time")
@@ -2712,28 +2712,27 @@ will be inserted before the group at point."
(setq show-trailing-whitespace nil)
;; disable `show-paren-mode' buffer-locally
(if (bound-and-true-p show-paren-mode)
- (set (make-local-variable 'show-paren-mode) nil))
- (set (make-local-variable 'revert-buffer-function)
- #'ibuffer-update)
- (set (make-local-variable 'ibuffer-sorting-mode)
- ibuffer-default-sorting-mode)
- (set (make-local-variable 'ibuffer-sorting-reversep)
- ibuffer-default-sorting-reversep)
- (set (make-local-variable 'ibuffer-shrink-to-minimum-size)
- ibuffer-default-shrink-to-minimum-size)
- (set (make-local-variable 'ibuffer-display-maybe-show-predicates)
- ibuffer-default-display-maybe-show-predicates)
- (set (make-local-variable 'ibuffer-filtering-qualifiers) nil)
- (set (make-local-variable 'ibuffer-filter-groups) nil)
- (set (make-local-variable 'ibuffer-filter-group-kill-ring) nil)
- (set (make-local-variable 'ibuffer-hidden-filter-groups) nil)
- (set (make-local-variable 'ibuffer-compiled-formats) nil)
- (set (make-local-variable 'ibuffer-cached-formats) nil)
- (set (make-local-variable 'ibuffer-cached-eliding-string) nil)
- (set (make-local-variable 'ibuffer-current-format) nil)
- (set (make-local-variable 'ibuffer-did-modification) nil)
- (set (make-local-variable 'ibuffer-tmp-hide-regexps) nil)
- (set (make-local-variable 'ibuffer-tmp-show-regexps) nil)
+ (setq-local show-paren-mode nil))
+ (setq-local revert-buffer-function #'ibuffer-update)
+ (setq-local ibuffer-sorting-mode
+ ibuffer-default-sorting-mode)
+ (setq-local ibuffer-sorting-reversep
+ ibuffer-default-sorting-reversep)
+ (setq-local ibuffer-shrink-to-minimum-size
+ ibuffer-default-shrink-to-minimum-size)
+ (setq-local ibuffer-display-maybe-show-predicates
+ ibuffer-default-display-maybe-show-predicates)
+ (setq-local ibuffer-filtering-qualifiers nil)
+ (setq-local ibuffer-filter-groups nil)
+ (setq-local ibuffer-filter-group-kill-ring nil)
+ (setq-local ibuffer-hidden-filter-groups nil)
+ (setq-local ibuffer-compiled-formats nil)
+ (setq-local ibuffer-cached-formats nil)
+ (setq-local ibuffer-cached-eliding-string nil)
+ (setq-local ibuffer-current-format nil)
+ (setq-local ibuffer-did-modification nil)
+ (setq-local ibuffer-tmp-hide-regexps nil)
+ (setq-local ibuffer-tmp-show-regexps nil)
(define-key ibuffer-mode-map [menu-bar edit] 'undefined)
(define-key ibuffer-mode-map [menu-bar operate] (cons "Operate"
ibuffer-mode-operate-map))
(ibuffer-update-format)