# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1202999564 0
# Node ID 53e2227d1fae28f797a8fb235b7dd7c4d522ba7a
# Parent  4c252bf9bb0e532f446f3a75930b9d8b24121a68
(uniquify-buffer-base-name): New function.
Suggested by Stefan Monnier <monnier@iro.umontreal.ca>.

diff -r 4c252bf9bb0e -r 53e2227d1fae lisp/uniquify.el
--- a/lisp/uniquify.el	Thu Feb 14 12:35:01 2008 +0000
+++ b/lisp/uniquify.el	Thu Feb 14 14:32:44 2008 +0000
@@ -28,7 +28,7 @@
 ;;; Commentary:
 
 ;; Emacs's standard method for making buffer names unique adds <2>, <3>,
-;; etc.. to the end of (all but one of) the buffers.  This file replaces
+;; etc. to the end of (all but one of) the buffers.  This file replaces
 ;; that behavior, for buffers visiting files and dired buffers, with a
 ;; uniquification that adds parts of the file name until the buffer names
 ;; are unique.  For instance, buffers visiting /u/mernst/tmp/Makefile and
@@ -191,6 +191,13 @@
 (make-variable-buffer-local 'uniquify-managed)
 (put 'uniquify-managed 'permanent-local t)
 
+;; 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."
+  (and uniquify-managed
+       (uniquify-item-base (car uniquify-managed))))
+
 ;;; Main entry point.
 
 (defun uniquify-rationalize-file-buffer-names (base dirname newbuf)
@@ -491,7 +498,7 @@
       (dolist (buf buffers)
 	(set-buffer (car buf))
 	(rename-buffer (cdr buf) t))))
-  ;; continue standard uploading
+  ;; continue standard unloading
   nil)
 
 (provide 'uniquify)