/[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.95 by lorentey, Mon Nov 28 14:36:06 2005 UTC revision 1.96 by teirllm, Tue Dec 6 00:33:22 2005 UTC
# Line 89  Line 89 
89    :type 'number    :type 'number
90    :group 'Buffer-menu)    :group 'Buffer-menu)
91    
92    (defcustom Buffer-menu-use-frame-buffer-list t
93      "If non-nil, the Buffer Menu uses the selected frame's buffer list.
94    Buffers that were never selected in that frame are listed at the end.
95    If the value is nil, the Buffer Menu uses the global buffer list.
96    This variable matters if the Buffer Menu is sorted by visited order,
97    as it is by default."
98      :type 'boolean
99      :group 'Buffer-menu
100      :version "22.1")
101    
102  ;; This should get updated & resorted when you click on a column heading  ;; This should get updated & resorted when you click on a column heading
103  (defvar Buffer-menu-sort-column nil  (defvar Buffer-menu-sort-column nil
104    "*2 for sorting by buffer names.  5 for sorting by file names.    "*2 for sorting by buffer names.  5 for sorting by file names.
# Line 722  For more information, see the function ` Line 732  For more information, see the function `
732                                     (if (memq c '(?\n ?\s)) c underline))                                     (if (memq c '(?\n ?\s)) c underline))
733                                   header)))))                                   header)))))
734        ;; Collect info for every buffer we're interested in.        ;; Collect info for every buffer we're interested in.
735        (dolist (buffer (or buffer-list (buffer-list (selected-frame))))        (dolist (buffer (or buffer-list
736                              (buffer-list
737                               (when Buffer-menu-use-frame-buffer-list
738                                 (selected-frame)))))
739          (with-current-buffer buffer          (with-current-buffer buffer
740            (let ((name (buffer-name))            (let ((name (buffer-name))
741                  (file buffer-file-name))                  (file buffer-file-name))

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

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