[Emacs-diffs] Changes to emacs/lisp/ibuffer.el

[Colin Walters]

Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.31 emacs/lisp/ibuffer.el:1.32
*** emacs/lisp/ibuffer.el:1.31  Sat Jun  8 16:42:26 2002
--- emacs/lisp/ibuffer.el       Sat Jun  8 20:16:29 2002
***************
*** 1451,1457 ****
                    ;; generate a call to the column function.
                    (ibuffer-aif (assq sym ibuffer-inline-columns)
                                 (nth 1 it)
!                                `(,sym buffer mark (current-buffer))))
                   ;; You're not expected to understand this.  Hell, I
                   ;; don't even understand it, and I wrote it five
                   ;; minutes ago.
--- 1451,1457 ----
                    ;; generate a call to the column function.
                    (ibuffer-aif (assq sym ibuffer-inline-columns)
                                 (nth 1 it)
!                                `(,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,1630 ****
  
  (define-ibuffer-column filename-and-process (:name "Filename/Process")
    (let ((proc (get-buffer-process buffer))
!       (filename (ibuffer-make-column-filename buffer mark ibuffer-buf)))
      (if proc
        (concat (propertize (format "(%s %s) " proc (process-status proc))
                            'font-lock-face 'italic)
--- 1624,1630 ----
  
  (define-ibuffer-column filename-and-process (:name "Filename/Process")
    (let ((proc (get-buffer-process buffer))
!       (filename (ibuffer-make-column-filename buffer mark)))
      (if proc
        (concat (propertize (format "(%s %s) " proc (process-status proc))
                            'font-lock-face 'italic)
***************
*** 2380,2385 ****
--- 2380,2388 ----
    (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)