/[emacs]/emacs/lisp/buff-menu.el
ViewVC logotype

Diff of /emacs/lisp/buff-menu.el

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

revision 1.73 by monnier, Wed Nov 17 17:12:57 2004 UTC revision 1.74 by rms, Sat Nov 20 18:52:32 2004 UTC
# Line 645  For more information, see the function ` Line 645  For more information, see the function `
645    (let* ((old-buffer (current-buffer))    (let* ((old-buffer (current-buffer))
646           (standard-output standard-output)           (standard-output standard-output)
647           (mode-end (make-string (- Buffer-menu-mode-width 2) ? ))           (mode-end (make-string (- Buffer-menu-mode-width 2) ? ))
648           (header (concat " " (propertize "CRM " 'face 'fixed-pitch)           (header (concat (propertize "CRM " 'face 'fixed-pitch)
649                           (Buffer-menu-buffer+size                           (Buffer-menu-buffer+size
650                            (Buffer-menu-make-sort-button "Buffer" 2)                            (Buffer-menu-make-sort-button "Buffer" 2)
651                            (Buffer-menu-make-sort-button "Size" 3))                            (Buffer-menu-make-sort-button "Size" 3))
# Line 661  For more information, see the function ` Line 661  For more information, see the function `
661            (setq pos (match-end 0))            (setq pos (match-end 0))
662            (put-text-property (match-beginning 0) pos 'display            (put-text-property (match-beginning 0) pos 'display
663                               ;; Assume fixed-size chars                               ;; Assume fixed-size chars
664                               (list 'space :align-to (1- pos))                               (list 'space :align-to pos)
665                               header))))                               header))))
666      (with-current-buffer (get-buffer-create "*Buffer List*")      (with-current-buffer (get-buffer-create "*Buffer List*")
667        (setq buffer-read-only nil)        (setq buffer-read-only nil)
# Line 670  For more information, see the function ` Line 670  For more information, see the function `
670        (unless Buffer-menu-use-header-line        (unless Buffer-menu-use-header-line
671          (insert header (propertize "---" 'face 'fixed-pitch) " ")          (insert header (propertize "---" 'face 'fixed-pitch) " ")
672          (insert (Buffer-menu-buffer+size "------" "----"))          (insert (Buffer-menu-buffer+size "------" "----"))
673          (insert "  ----" mode-end "----\n")          (insert "  ----" mode-end "----\n"))
         (put-text-property 1 (point) 'intangible t))  
674        (if buffer-list        (if buffer-list
675            (setq list buffer-list)            (setq list buffer-list)
676          ;; Collect info for every buffer we're interested in.          ;; Collect info for every buffer we're interested in.

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

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