Commit 42b4ee20 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(uniquify-buffer-base-name): Undo last change.

parent 13dbab28
2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca>
* uniquify.el (uniquify-buffer-base-name): Undo last change.
2008-02-28 Daiki Ueno <ueno@unixuser.org>
 
* international/utf-7.el (utf-7-encode): Never skip the trailing - for
......@@ -72,7 +72,7 @@
;; Add uniquify-list-buffers-directory-modes
;; Stefan Monnier <monnier@cs.yale.edu> 17 Nov 2000
;; Algorithm and data structure changed to reduce consing with lots of buffers
;; Francesco Potort <pot@gnu.org> (ideas by rms and monnier) 2001-07-18
;; Francesco Potortì <pot@gnu.org> (ideas by rms and monnier) 2001-07-18
;; Valuable feedback was provided by
;; Paul Smith <psmith@baynetworks.com>,
......@@ -192,11 +192,9 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.")
;; Used in desktop.el to save the non-uniquified buffer name
(defun uniquify-buffer-base-name ()
"Return the base name of the current buffer.
Return nil if the buffer is not managed by uniquify,
or if the base name is empty."
Return nil if the buffer is not managed by uniquify."
(and uniquify-managed
(let ((base (uniquify-item-base (car uniquify-managed))))
(if (string= base "") nil base))))
(uniquify-item-base (car uniquify-managed))))
;;; Main entry point.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment