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

[Kevin Rodgers]

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 <kevinr@ihs.com>          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]