From 63e0bf5e28f04a60f4767fa2388aa7b6882ae4cc Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Sun, 9 Jun 2002 00:16:29 +0000 Subject: [PATCH] (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. --- lisp/ibuffer.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 3c9bf9eb679..dc3239fa740 100644 --- 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) -- 2.39.5