(ibuffer-mode): Do set `font-lock-defaults', and be sure to set

`font-lock-core-only'.
(ibuffer-compile-format): Don't pass third argument to column functions.
(filename-and-process): Ditto.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 3c9bf9eb679f24b588c79fd91ff30d61487f461a..dc3239fa7407e3f885589beb9ed561b7cdbcb583 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1451,7 +1451,7 @@ If point is on a group name, this function operates on that group."
                    ;; generate a call to the column function.
                    (ibuffer-aif (assq sym ibuffer-inline-columns)
                                 (nth 1 it)
-                                `(,sym buffer mark (current-buffer))))
+                                `(,sym buffer mark)))
                   ;; You're not expected to understand this.  Hell, I
                   ;; don't even understand it, and I wrote it five
                   ;; minutes ago.
@@ -1624,7 +1624,7 @@ If point is on a group name, this function operates on that group."
 
 (define-ibuffer-column filename-and-process (:name "Filename/Process")
   (let ((proc (get-buffer-process buffer))
-       (filename (ibuffer-make-column-filename buffer mark ibuffer-buf)))
+       (filename (ibuffer-make-column-filename buffer mark)))
     (if proc
        (concat (propertize (format "(%s %s) " proc (process-status proc))
                            'font-lock-face 'italic)
@@ -2380,6 +2380,9 @@ will be inserted before the group at point."
   (setq show-trailing-whitespace nil)
   (set (make-local-variable 'revert-buffer-function)
        #'ibuffer-update)
+  ;; Only use font-core.el.
+  (set (make-local-variable 'font-lock-defaults)
+       '(nil t nil nil nil (font-lock-core-only . t)))
   (set (make-local-variable 'ibuffer-sorting-mode)
        ibuffer-default-sorting-mode)
   (set (make-local-variable 'ibuffer-sorting-reversep)