diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-11-21 20:42:39 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-11-21 20:42:39 +0000 |
| commit | f4eda05fe5461b7aa6c8d2442a4ee6656a2f8e41 (patch) | |
| tree | 5cf878ab546cd3b185d1a4b4c7420e2004f3dab0 /lisp/uniquify.el | |
| parent | 77270fac616dd9a25743c95c7082489e5a669f35 (diff) | |
| download | emacs-f4eda05fe5461b7aa6c8d2442a4ee6656a2f8e41.tar.gz | |
(uniquify-list-buffers-directory-modes): New var.
(uniquify-buffer-file-name): Use it.
Diffstat (limited to 'lisp/uniquify.el')
| -rw-r--r-- | lisp/uniquify.el | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index aa5faf0498c..e171de728a7 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -72,6 +72,8 @@ ;; Use directory-file-name; code cleanup. mernst 6 Sep 97 ;; Add uniquify-ignore-buffers-re. ;; Andre Srinivasan <andre@visigenic.com> 9 Sep 97 +;; Add uniquify-list-buffers-directory-modes +;; Stefan Monnier <monnier@cs.yale.edu> 17 Nov 2000 ;; Valuable feedback was provided by ;; Paul Smith <psmith@baynetworks.com>, @@ -157,6 +159,10 @@ variable is ignored." :type 'boolean :group 'uniquify) +(defvar uniquify-list-buffers-directory-modes '(dired-mode cvs-mode) + "List of modes for which uniquify should obey `list-buffers-directory'. +That means that when `buffer-file-name' is set to nil, `list-buffers-directory' +contains the name of the directory which the buffer is visiting.") ;;; Utilities @@ -186,7 +192,7 @@ variable is ignored." ;;; Main entry point. (defun uniquify-rationalize-file-buffer-names (&optional newbuffile newbuf) - "Makes file buffer names unique by adding segments from file name. + "Make file buffer names unique by adding segments from file name. If `uniquify-min-dir-content' > 0, always pulls that many file name elements. Arguments cause only a subset of buffers to be renamed." (interactive) @@ -226,13 +232,12 @@ file name elements. Arguments cause only a subset of buffers to be renamed." ;; uniquify's version of buffer-file-name; result never contains trailing slash (defun uniquify-buffer-file-name (buffer) "Return name of file BUFFER is visiting, or nil if none. -Works on dired buffers and ordinary file-visiting buffers, but no others." +Works on ordinary file-visiting buffers and buffers whose mode is mentioned +in `uniquify-list-buffers-directory-modes', otherwise returns nil." (or (buffer-file-name buffer) - (and (featurep 'dired) - (save-excursion - (set-buffer buffer) + (with-current-buffer buffer (and - (eq major-mode 'dired-mode) ; do nothing if not a dired buffer + (memq major-mode uniquify-list-buffers-directory-modes) (if (boundp 'list-buffers-directory) ; XEmacs mightn't define this (and list-buffers-directory (directory-file-name list-buffers-directory)) @@ -242,7 +247,7 @@ Works on dired buffers and ordinary file-visiting buffers, but no others." (directory-file-name (if (consp dired-directory) (car dired-directory) - dired-directory)))))))))) + dired-directory))))))))) ;; This examines the filename components in reverse order. (defun uniquify-filename-lessp (s1 s2) |