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

[gnu-emacs] / lisp / ibuf-ext.el

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 6102e1f7400574d41d53c0d526fea2e251cff997..3e4e0dcb1b6745b63291a6e40e48cd5ecbff2b93 100644 (file)
--- 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