/[emacs]/emacs/lisp/ibuffer.el
ViewVC logotype

Diff of /emacs/lisp/ibuffer.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by walters, Sat Jun 8 20:42:26 2002 UTC revision 1.32 by walters, Sun Jun 9 00:16:29 2002 UTC
# Line 1451  If point is on a group name, this functi Line 1451  If point is on a group name, this functi
1451                      ;; generate a call to the column function.                      ;; generate a call to the column function.
1452                      (ibuffer-aif (assq sym ibuffer-inline-columns)                      (ibuffer-aif (assq sym ibuffer-inline-columns)
1453                                   (nth 1 it)                                   (nth 1 it)
1454                                   `(,sym buffer mark (current-buffer))))                                   `(,sym buffer mark)))
1455                     ;; You're not expected to understand this.  Hell, I                     ;; You're not expected to understand this.  Hell, I
1456                     ;; don't even understand it, and I wrote it five                     ;; don't even understand it, and I wrote it five
1457                     ;; minutes ago.                     ;; minutes ago.
# Line 1624  If point is on a group name, this functi Line 1624  If point is on a group name, this functi
1624    
1625  (define-ibuffer-column filename-and-process (:name "Filename/Process")  (define-ibuffer-column filename-and-process (:name "Filename/Process")
1626    (let ((proc (get-buffer-process buffer))    (let ((proc (get-buffer-process buffer))
1627          (filename (ibuffer-make-column-filename buffer mark ibuffer-buf)))          (filename (ibuffer-make-column-filename buffer mark)))
1628      (if proc      (if proc
1629          (concat (propertize (format "(%s %s) " proc (process-status proc))          (concat (propertize (format "(%s %s) " proc (process-status proc))
1630                              'font-lock-face 'italic)                              'font-lock-face 'italic)
# Line 2380  will be inserted before the group at poi Line 2380  will be inserted before the group at poi
2380    (setq show-trailing-whitespace nil)    (setq show-trailing-whitespace nil)
2381    (set (make-local-variable 'revert-buffer-function)    (set (make-local-variable 'revert-buffer-function)
2382         #'ibuffer-update)         #'ibuffer-update)
2383      ;; Only use font-core.el.
2384      (set (make-local-variable 'font-lock-defaults)
2385           '(nil t nil nil nil (font-lock-core-only . t)))
2386    (set (make-local-variable 'ibuffer-sorting-mode)    (set (make-local-variable 'ibuffer-sorting-mode)
2387         ibuffer-default-sorting-mode)         ibuffer-default-sorting-mode)
2388    (set (make-local-variable 'ibuffer-sorting-reversep)    (set (make-local-variable 'ibuffer-sorting-reversep)

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26