changeset 100906:43e72c1cf36e

* desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name' to shorten the desktop file directory shown in message.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 05 Jan 2009 02:49:31 +0000
parents 59e11bc5f330
children 2ae3d070ddb5
files lisp/ChangeLog lisp/desktop.el
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Jan 05 02:17:07 2009 +0000
+++ b/lisp/ChangeLog	Mon Jan 05 02:49:31 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-05  Juanma Barranquero  <lekktu@gmail.com>
+
+	* desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name'
+	to shorten the desktop file directory shown in message.
+
 2009-01-05  Glenn Morris  <rgm@gnu.org>
 
 	* version.el (emacs-copyright):
--- a/lisp/desktop.el	Mon Jan 05 02:17:07 2009 +0000
+++ b/lisp/desktop.el	Mon Jan 05 02:49:31 2009 +0000
@@ -1047,7 +1047,7 @@
   (if desktop-dirname
       (desktop-save desktop-dirname)
     (call-interactively 'desktop-save))
-  (message "Desktop saved in %s" desktop-dirname))
+  (message "Desktop saved in %s" (abbreviate-file-name desktop-dirname)))
 
 ;; ----------------------------------------------------------------------------
 ;;;###autoload