diff options
author | Tino Calancha <tino.calancha@gmail.com> | 2016-07-11 11:30:48 +0900 |
---|---|---|
committer | Tino Calancha <tino.calancha@gmail.com> | 2016-07-11 11:30:48 +0900 |
commit | 8dc4626a0bd13b8d256a9d0c44e321d2c3d702d7 (patch) | |
tree | dfa908b6c8acd66a4ecb315892696bf7420b9a33 | |
parent | 244754e2b26f5790e96468ee710375e5ab314087 (diff) |
Avoid 'unused var' 'not left unused var' warnings
* lisp/ibuffer.el (ibuffer-locked-buffer-p): Remove unused var 'char'.
Rename used var '_buffer' to 'cbuffer'.
* lisp/ibuf-ext.el (ibuffer-unmark-all): Rename used var '_mark'
to cmark'.
-rw-r--r-- | lisp/ibuf-ext.el | 7 | ||||
-rw-r--r-- | lisp/ibuffer.el | 4 |
2 files changed, 5 insertions, 6 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 6102e1f740..3e4e0dcb1b 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -1504,10 +1504,9 @@ You can then feed the file name(s) to other commands with \\[yank]." (defun ibuffer-locked-buffer-p (&optional buf) "Return non-nil if BUF is locked. When BUF nil, default to the buffer at current line." - (let ((_buffer (or buf (ibuffer-current-buffer))) - char) - (when _buffer - (with-current-buffer _buffer + (let ((cbuffer (or buf (ibuffer-current-buffer)))) + (when cbuffer + (with-current-buffer cbuffer (and (boundp 'emacs-lock-mode) emacs-lock-mode))))) ;;;###autoload diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 37f72bc1aa..8e246297ff 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -1348,8 +1348,8 @@ With optional ARG, make read-only only if ARG is not negative." t))) ((not (char-equal mark ?\r)) (ibuffer-map-lines - (lambda (_buf _mark) - (when (char-equal _mark mark) + (lambda (_buf cmark) + (when (char-equal cmark mark) (ibuffer-set-mark-1 ?\s)) t))) (t |