bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: why doesn't the buffer list abbreviate the home directory as ~?


From: Kevin Rodgers
Subject: Re: why doesn't the buffer list abbreviate the home directory as ~?
Date: Wed, 30 May 2001 10:19:11 -0600

Kevin Rodgers wrote:
> Here's a patch that does it unconditionally:

Oops, that doesn't handle Dired buffers.  This patch (against Emacs 20.7,
instead of 19.34) does:

*** emacs-20.7/lisp/buff-menu.el.orig   Sat Mar  7 17:13:28 1998
--- emacs-20.7/lisp/buff-menu.el        Wed May 30 10:16:04 2001
***************
*** 489,500 ****
              (setq this-buffer-mode-name
                    (if (eq buffer standard-output)
                        "Buffer Menu" mode-name))
!             (or file
                  ;; No visited file.  Check local value of
                  ;; list-buffers-directory.
                  (if (and (boundp 'list-buffers-directory)
                           list-buffers-directory)
!                     (setq this-buffer-directory list-buffers-directory))))
            (cond
             ;; Don't mention internal buffers.
             ((string= (substring name 0 1) " "))
--- 489,502 ----
              (setq this-buffer-mode-name
                    (if (eq buffer standard-output)
                        "Buffer Menu" mode-name))
!             (or (and file
!                      (setq file (abbreviate-file-name file)))
                  ;; No visited file.  Check local value of
                  ;; list-buffers-directory.
                  (if (and (boundp 'list-buffers-directory)
                           list-buffers-directory)
!                     (setq this-buffer-directory
!                           (abbreviate-file-name list-buffers-directory)))))
            (cond
             ;; Don't mention internal buffers.
             ((string= (substring name 0 1) " "))

-- 
Kevin Rodgers <address@hidden>          Lead Software Engineer
Information Handling Services           Electronic Systems Development
15 Inverness Way East, M/S A114         GO BUFFS!
Englewood CO 80112-5776 USA             1+ (303) 397-2807[voice]/705-4258[fax]



reply via email to

[Prev in Thread] Current Thread [Next in Thread]