[Emacs-diffs] emacs/lisp ChangeLog desktop.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/01/05 02:49:34

Modified files:
        lisp           : ChangeLog desktop.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15041&r2=1.15042
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/desktop.el?cvsroot=emacs&r1=1.130&r2=1.131

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15041
retrieving revision 1.15042
diff -u -b -r1.15041 -r1.15042
--- ChangeLog   5 Jan 2009 02:00:02 -0000       1.15041
+++ ChangeLog   5 Jan 2009 02:49:31 -0000       1.15042
@@ -1,3 +1,8 @@
+2009-01-05  Juanma Barranquero  <address@hidden>
+
+       * 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  <address@hidden>
 
        * version.el (emacs-copyright):

Index: desktop.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/desktop.el,v
retrieving revision 1.130
retrieving revision 1.131
diff -u -b -r1.130 -r1.131
--- desktop.el  3 Dec 2008 05:48:20 -0000       1.130
+++ desktop.el  5 Jan 2009 02:49:33 -0000       1.131
@@ -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