From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 5 Jan 2009 02:49:31 +0000 (+0000)
Subject: * desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name'
X-Git-Tag: emacs-pretest-23.0.90~688
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a609d13baff387f92e367ec5797e1f56d28fd4f6;p=emacs.git

* desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name'
  to shorten the desktop file directory shown in message.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2020db746f7..05cebd2a5c5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 1189e150296..443d4ffee64 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1047,7 +1047,7 @@ directory DIRNAME."
   (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