comparison lisp/ibuffer.el @ 44870:ed308b745565

(define column process): Use `ibuffer-aif'.

44869:fe9296210133

  			      'keymap ibuffer-mode-name-map
			      'help-echo "mouse-2: filter by this mode"))
  (format "%s" mode-name))

(define-ibuffer-column process ()
  (let ((proc (get-buffer-process buffer)))
    (if proc 
	(format "(%s %s)" proc (process-status proc))
      "none")))

(define-ibuffer-column filename ()
  (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist))
    (abbreviate-file-name
     (or buffer-file-name

44870:ed308b745565

  			      'keymap ibuffer-mode-name-map
			      'help-echo "mouse-2: filter by this mode"))
  (format "%s" mode-name))

(define-ibuffer-column process ()
  (ibuffer-aif (get-buffer-process buffer)
      (format "(%s %s)" it (process-status it))
    "none"))

(define-ibuffer-column filename ()
  (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist))
    (abbreviate-file-name
     (or buffer-file-name