martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
`font-lock-core-only'.
(ibuffer-compile-format): Don't pass third argument to column functions.
(filename-and-process): Ditto.
This commit is contained in:
Colin Walters
2002-06-09 00:16:29 +00:00
parent 6635cf6e49
commit 63e0bf5e28
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ibuffer.el
View File

@@ -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)