Show
Ignore:
Timestamp:
05/27/06 10:35:24 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/buff-menu.el

    r4058 r4091  
    116116file buffers.  It affects both manual reverting and reverting by 
    117117Auto Revert Mode.") 
     118 
     119(defvar Info-current-file) ;; from info.el 
    118120 
    119121(make-variable-buffer-local 'Buffer-menu-files-only) 
    …… 
    768770                (unless file 
    769771                  ;; No visited file.  Check local value of 
    770                   ;; list-buffers-directory. 
    771                   (when (and (boundp 'list-buffers-directory) 
    772                              list-buffers-directory) 
    773                     (setq file list-buffers-directory))) 
     772                  ;; list-buffers-directory and, for Info buffers, 
     773                  ;; Info-current-file. 
     774                  (cond ((and (boundp 'list-buffers-directory) 
     775                              list-buffers-directory) 
     776                         (setq file list-buffers-directory)) 
     777                        ((eq major-mode 'Info-mode) 
     778                         (setq file Info-current-file) 
     779                         (cond 
     780                          ((eq file t) 
     781                           (setq file "*Info Directory*")) 
     782                          ((eq file 'apropos) 
     783                           (setq file "*Info Apropos*")) 
     784                          ((eq file 'history) 
     785                           (setq file "*Info History*")) 
     786                          ((eq file 'toc) 
     787                           (setq file "*Info TOC*")) 
     788                          ((not (stringp file))  ;; avoid errors 
     789                           (setq file nil)))))) 
    774790                (push (list buffer bits name (buffer-size) mode file) 
    775791                      list))))))