comparison lisp/buff-menu.el @ 26418:e3f8778af2f7

(list-buffers-noselect): Use abbreviate-file-name to display file names.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 12 Nov 1999 12:41:46 +0000
parents e8ec0085ff7b
children 44991e974f6d
comparison
equal deleted inserted replaced
26417:5678b244c3ac 26418:e3f8778af2f7
564 (indent-to 27 1) 564 (indent-to 27 1)
565 (princ mode)) 565 (princ mode))
566 (indent-to 40 1) 566 (indent-to 40 1)
567 (or file (setq file this-buffer-directory)) 567 (or file (setq file this-buffer-directory))
568 (if file 568 (if file
569 (princ file)) 569 (princ (abbreviate-file-name file)))
570 (princ "\n")))) 570 (princ "\n"))))
571 (setq bl (cdr bl)))) 571 (setq bl (cdr bl))))
572 (Buffer-menu-mode) 572 (Buffer-menu-mode)
573 ;; DESIRED-POINT doesn't have to be set; it is not when the 573 ;; DESIRED-POINT doesn't have to be set; it is not when the
574 ;; current buffer is not displayed for some reason. 574 ;; current buffer is not displayed for some reason.