[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ibuffer.el
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ibuffer.el |
Date: |
Sun, 18 May 2003 14:24:52 -0400 |
Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.53 emacs/lisp/ibuffer.el:1.54
*** emacs/lisp/ibuffer.el:1.53 Fri Apr 25 22:02:26 2003
--- emacs/lisp/ibuffer.el Sun May 18 14:24:52 2003
***************
*** 157,162 ****
--- 157,167 ----
:group 'ibuffer)
(defvar ibuffer-shrink-to-minimum-size nil)
+ (defcustom ibuffer-display-summary t
+ "If non-nil, summarize Ibuffer columns."
+ :type 'boolean
+ :group 'ibuffer)
+
(defcustom ibuffer-truncate-lines t
"If non-nil, do not display continuation lines."
:type 'boolean
***************
*** 1926,1959 ****
(delete-region (previous-single-property-change
(point-max) 'ibuffer-summary)
(point-max)))
! (add-text-properties
! (point)
! (progn
! (insert "\n")
! (dolist (element format)
! (insert
! (if (stringp element)
! (make-string (length element) ? )
! (let ((sym (car element)))
! (let ((min (cadr element))
! ;; (max (caddr element))
! (align (cadddr element)))
! ;; Ignore a negative min when we're inserting the title
! (when (minusp min)
! (setq min (- min)))
! (let* ((summary (if (get sym 'ibuffer-column-summarizer)
! (funcall (get sym
'ibuffer-column-summarizer)
! (get sym 'ibuffer-column-summary))
! (make-string (length (get sym
'ibuffer-column-name))
! ? )))
! (len (length summary)))
! (if (< len min)
! (ibuffer-format-column summary
! (- min len)
! align)
! summary)))))))
! (point))
! `(ibuffer-summary t))))
(defun ibuffer-update-mode-name ()
(setq mode-name (format "Ibuffer by %s" (if ibuffer-sorting-mode
--- 1931,1965 ----
(delete-region (previous-single-property-change
(point-max) 'ibuffer-summary)
(point-max)))
! (if ibuffer-display-summary
! (add-text-properties
! (point)
! (progn
! (insert "\n")
! (dolist (element format)
! (insert
! (if (stringp element)
! (make-string (length element) ? )
! (let ((sym (car element)))
! (let ((min (cadr element))
! ;; (max (caddr element))
! (align (cadddr element)))
! ;; Ignore a negative min when we're inserting the title
! (when (minusp min)
! (setq min (- min)))
! (let* ((summary (if (get sym 'ibuffer-column-summarizer)
! (funcall (get sym
'ibuffer-column-summarizer)
! (get sym
'ibuffer-column-summary))
! (make-string (length (get sym
'ibuffer-column-name))
! ? )))
! (len (length summary)))
! (if (< len min)
! (ibuffer-format-column summary
! (- min len)
! align)
! summary)))))))
! (point))
! `(ibuffer-summary t)))))
(defun ibuffer-update-mode-name ()
(setq mode-name (format "Ibuffer by %s" (if ibuffer-sorting-mode
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/ibuffer.el,
John Paul Wallington <=