mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Avoid 'unused var' 'not left unused var' warnings

Browse source 
* 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'.
This commit is contained in:
Tino Calancha 2016-07-11 11:30:48 +09:00
parent 244754e2b2
commit 8dc4626a0b
2 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ibuf-ext.el
View file

@ -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

4
lisp/ibuffer.el
View file

@ -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