Mercurial > emacs
changeset 45705:650fdcae4092
(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.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sun, 09 Jun 2002 00:16:29 +0000 |
| parents | deb27e3d41fd |
| children | 695ea9cce74e |
| files | lisp/ibuffer.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuffer.el Sat Jun 08 23:38:42 2002 +0000 +++ b/lisp/ibuffer.el Sun Jun 09 00:16:29 2002 +0000 @@ -1451,7 +1451,7 @@ ;; 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 @@ (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 @@ (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)