mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

* desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name'

Browse Source 
to shorten the desktop file directory shown in message.
This commit is contained in:
Juanma Barranquero 2009-01-05 02:49:31 +00:00
parent d92c06c73d
commit a609d13baf
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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):

2
lisp/desktop.el
View File

@ -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