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

function.

1 files changed, 1 insertions, 2 deletions

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 32334f5a942..2287f6894bb 100644
--- 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))