* 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 2020db746f78979a4e08de617fee198b868eb9f1..05cebd2a5c57dd2f3b41c9233a192badc8e332df 100644 (file)
--- 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 1189e150296a70849ac8c0a5ab892e0d2f573905..443d4ffee6498615eceb8eb6ac79b036f224191a 100644 (file)
--- 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