summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorChong Yidong <cyd@gnu.org>2012-06-21 15:25:56 +0800
committerChong Yidong <cyd@gnu.org>2012-06-21 15:25:56 +0800
commit6b67c0d4c9f275dcf2cc10efd356c98e8f61ae55 (patch)
tree5aac08ca4ddf17843e9107fde5954829fe0e9f92 /lisp
parente76f0800d2ceef239e8db3c2f81c6b71d4c70302 (diff)
downloademacs-6b67c0d4c9f275dcf2cc10efd356c98e8f61ae55.tar.gz
* desktop.el (desktop-read): Use user-emacs-directory if desktop-path is nil.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog1
-rw-r--r--lisp/desktop.el4
2 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d130250dcf..fb710374e18 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
* desktop.el (desktop-read): Don't prompt if daemon (Bug#11674).
(desktop-path): Remove . from the default value (Bug#10977).
+ (desktop-read): Use user-emacs-directory if desktop-path is nil.
2012-06-20 Chong Yidong <cyd@gnu.org>
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 2fd9d7f10ad..2c2106e18b7 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -966,8 +966,8 @@ It returns t if a desktop file was loaded, nil otherwise."
(and dirs (car dirs)))
;; If not found and `desktop-path' is non-nil, use its first element.
(and desktop-path (car desktop-path))
- ;; Default: Home directory.
- "~"))))
+ ;; Default: .emacs.d.
+ user-emacs-directory))))
(if (file-exists-p (desktop-full-file-name))
;; Desktop file found, but is it already in use?
(let ((desktop-first-buffer nil)