Re: [AC] [packages] ibuffer - ibuffer-help-buffer-modes & use ibuffer-window-list

jpw> APPROVE COMMIT jpw> 2002-02-25 John Paul Wallington <jpw(a)xemacs.org&gt; jpw> * ibuffer.el (ibuffer-shrink-to-fit): use ibuffer-window-list. jpw> (ibuffer-help-buffer-modes): new customizable variable. jpw> (ibuffer-fontification-alist): use it. jpw> * ibuf-ext.el (ibuffer-mark-help-buffers): use it. John Paul, I have just built and installed ibuffer from latest CVS and it works fantastically! I am running out of issues to report! The font-lock support is just what I wanted. ibuffer-other-window works now. ibuffer-shrink-to-minimum-size works well too. Great work! Adrian jpw> Index: ibuffer.el jpw> =================================================================== jpw> RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ibuffer.el,v jpw> retrieving revision 1.20 jpw> diff -u -r1.20 ibuffer.el jpw> --- ibuffer.el 2002/02/25 03:19:19 1.20 jpw> +++ ibuffer.el 2002/02/25 17:31:36 jpw> ＠＠ -127,7 +127,7 ＠＠ jpw> (defun ibuffer-shrink-to-fit (&optional owin) jpw> "Make window the right size to display its contents exactly." jpw> (interactive) jpw> - (when (> (length (window-list (selected-frame))) 1) jpw> + (when (> (length (ibuffer-window-list)) 1) jpw> (let* ((window (selected-window)) jpw> (buf (window-buffer window)) jpw> (height (window-height (selected-window))) jpw> ＠＠ -371,11 +371,16 ＠＠ jpw> :type 'boolean jpw> :group 'ibuffer) jpw> +(defcustom ibuffer-help-buffer-modes '(help-mode apropos-mode hyper-apropos-mode hyper-apropos-help-mode Info-mode Info-edit-mode) jpw> + "List of \"Help\" major modes." jpw> + :type '(repeat function) jpw> + :group 'ibuffer) jpw> + jpw> (defcustom ibuffer-fontification-alist jpw> `((10 buffer-read-only ,ibuffer-read-only-buffer-face) jpw> (15 (string-match "^*" (buffer-name)) ,ibuffer-special-buffer-face) jpw> (20 (string-match "^ " (buffer-name)) ,ibuffer-hidden-buffer-face) jpw> - (25 (memq major-mode '(help-mode apropos-mode hyper-apropos-mode Info-mode Info-edit-mode)) ,ibuffer-help-buffer-face) jpw> + (25 (memq major-mode ibuffer-help-buffer-modes) ,ibuffer-help-buffer-face) jpw> (30 (eq major-mode 'dired-mode) ,ibuffer-dired-buffer-face)) jpw> "An alist describing how to fontify buffers. jpw> Each element should be of the form (PRIORITY FORM FACE), where jpw> Index: ibuf-ext.el jpw> =================================================================== jpw> RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ibuf-ext.el,v jpw> retrieving revision 1.7 jpw> diff -u -r1.7 ibuf-ext.el jpw> --- ibuf-ext.el 2002/02/25 03:19:19 1.7 jpw> +++ ibuf-ext.el 2002/02/25 17:32:41 jpw> ＠＠ -925,11 +925,7 ＠＠ jpw> (ibuffer-mark-on-buffer jpw> #'(lambda (buf) jpw> (with-current-buffer buf jpw> - (or jpw> - (eq major-mode 'apropos-mode) jpw> - (eq major-mode 'hyper-apropos-mode) jpw> - (eq major-mode 'help-mode) jpw> - (eq major-mode 'Info-mode)))))) jpw> + (memq major-mode ibuffer-help-buffer-modes))))) jpw> ;;;###autoload jpw> (defun ibuffer-mark-old-buffers () jpw> -- jpw> John Paul Wallington -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/