diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-02-27 16:24:08 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-02-27 16:24:08 +0000 |
| commit | 4fbbba1d35117dd65ea614dbb2799bd2f26ee5ed (patch) | |
| tree | 634fe9d008c0eaec1d9e81592494ab4214695691 /lisp | |
| parent | 9c9086d306adbfa0d53a4fa79e46d8ace8082478 (diff) | |
| download | emacs-4fbbba1d35117dd65ea614dbb2799bd2f26ee5ed.tar.gz emacs-4fbbba1d35117dd65ea614dbb2799bd2f26ee5ed.tar.bz2 emacs-4fbbba1d35117dd65ea614dbb2799bd2f26ee5ed.zip | |
(uniquify-buffer-base-name): If the base name is an empty string,
return nil to allow the caller to default to the buffer name.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/uniquify.el | 3 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 531ca2e08bf..5bc2fe80fbc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,13 @@ +2008-02-27 Juanma Barranquero <lekktu@gmail.com> + + * uniquify.el (uniquify-buffer-base-name): If the base name is an + empty string, return nil to allow the caller to default to the + buffer name. + 2008-02-26 Jason Rumney <jasonr@gnu.org> * files.el (make-auto-save-file-name): Encode more characters in - non-file buffer names. Use url-encoding. + non-file buffer names. Use url-encoding. 2008-02-26 Juanma Barranquero <lekktu@gmail.com> diff --git a/lisp/uniquify.el b/lisp/uniquify.el index b2167f48656..c07dd57af4e 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -194,7 +194,8 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.") "Return the base name of the current buffer. Return nil if the buffer is not managed by uniquify." (and uniquify-managed - (uniquify-item-base (car uniquify-managed)))) + (let ((base (uniquify-item-base (car uniquify-managed)))) + (if (string= base "") nil base)))) ;;; Main entry point. |