(ibuffer-compile-format): Don't uselessly bind `pt' in generated

function.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 32334f5a942bb42aa2b5a37614f6947f722cac00..2287f6894bb6c0d2bda11d805c8c0d7630127c46 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1368,8 +1368,7 @@ become unmarked."
                       #'byte-compile
                     #'identity)
                   (nconc (list 'lambda '(buffer mark))
-                         `((let ,(append '(pt)
-                                         (when str-used
+                         `((let ,(append (when str-used
                                            '(str))
                                          (when global-strlen-used
                                            '(strlen))