Show
Ignore:
Timestamp:
08/10/06 11:19:54 (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

    r4098 r4140  
    118118 
    119119(defvar Info-current-file) ;; from info.el 
     120(defvar Info-current-node) ;; from info.el 
    120121 
    121122(make-variable-buffer-local 'Buffer-menu-files-only) 
    …… 
    787788                           (setq file "*Info TOC*")) 
    788789                          ((not (stringp file))  ;; avoid errors 
    789                            (setq file nil)))))) 
     790                           (setq file nil)) 
     791                          (t 
     792                           (setq file (concat "(" 
     793                                              (file-name-nondirectory file) 
     794                                              ")" 
     795                                              Info-current-node))))))) 
    790796                (push (list buffer bits name (buffer-size) mode file) 
    791797                      list))))))