procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ibuffer-header-line-format): New var.

Browse source 
(ibuffer-mode): Set it instead of header-line-format.
(ibuffer-update): Use it to set header-line-format.
This commit is contained in:
Stefan Monnier 2008-02-11 18:39:22 +00:00
parent 3ee24aecf6
commit 6d11a78b09
2 changed files with 21 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2008-02-11 Stefan Monnier <monnier@iro.umontreal.ca>
* ibuffer.el (ibuffer-header-line-format): New var.
(ibuffer-mode): Set it instead of header-line-format.
(ibuffer-update): Use it to set header-line-format.
* international/mule-cmds.el (ucs-insert): Inherit surrounding
properties like self-insert-command.

26
lisp/ibuffer.el
View file

@ -49,6 +49,7 @@
(defvar ibuffer-filter-group-kill-ring)
(defvar ibuffer-filter-groups)
(defvar ibuffer-filtering-qualifiers)
(defvar ibuffer-header-line-format)
(defvar ibuffer-hidden-filter-groups)
(defvar ibuffer-inline-columns)
(defvar ibuffer-show-empty-filter-groups)
@ -2164,7 +2165,14 @@ If optional arg SILENT is non-nil, do not display progress messages."
(ibuffer-shrink-to-fit t)
(when ibuffer-shrink-to-minimum-size
(ibuffer-shrink-to-fit)))
(ibuffer-forward-line 0))
(ibuffer-forward-line 0)
;; I tried to update this automatically from the mode-line-process format,
;; but changing nil-ness of header-line-format while computing
;; mode-line-format is asking a bit too much it seems. --Stef
(setq header-line-format
(and ibuffer-use-header-line
ibuffer-filtering-qualifiers
ibuffer-header-line-format)))
(defun ibuffer-sort-bufferlist (bmarklist)
(let* ((sortdat (assq ibuffer-sorting-mode
@ -2537,14 +2545,14 @@ will be inserted before the group at point."
(:eval (if (functionp 'ibuffer-format-qualifier)
(mapconcat 'ibuffer-format-qualifier
ibuffer-filtering-qualifiers ""))))))
(setq header-line-format
(if ibuffer-use-header-line
;; Display the part that won't be in the mode-line.
(list* "" mode-name
(mapcar (lambda (elem)
(if (eq (car-safe elem) 'header-line-format)
(nth 2 elem) elem))
mode-line-process))))
;; `ibuffer-update' puts this on header-line-format when needed.
(setq ibuffer-header-line-format
;; Display the part that won't be in the mode-line.
(list* "" mode-name
(mapcar (lambda (elem)
(if (eq (car-safe elem) 'header-line-format)
(nth 2 elem) elem))
mode-line-process)))
(setq buffer-read-only t)
(buffer-disable-undo)