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

diff -r d616730de510 -r 0867191fcef1 lisp/uniquify.el
--- a/lisp/uniquify.el	Mon Feb 11 15:43:56 2008 +0000
+++ b/lisp/uniquify.el	Tue Feb 12 14:32:56 2008 +0000
@@ -189,6 +189,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)
@@ -489,7 +496,7 @@
       (dolist (buf buffers)
 	(set-buffer (car buf))
 	(rename-buffer (cdr buf) t))))
-  ;; continue standard uploading
+  ;; continue standard unloading
   nil)
 
 (provide 'uniquify)