Mercurial > emacs
changeset 80226:45099af37ea3
(uniquify-buffer-base-name): If the base name is an empty string,
return nil to allow the caller to default to the buffer name.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 27 Feb 2008 16:20:33 +0000 |
| parents | 2958d9bca9be |
| children | 9f11056bc03a |
| files | lisp/uniquify.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/uniquify.el Wed Feb 27 15:07:14 2008 +0000 +++ b/lisp/uniquify.el Wed Feb 27 16:20:33 2008 +0000 @@ -194,7 +194,8 @@ "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.