]> git.eshelyaron.com Git - emacs.git/commitdiff
lisp/term/x-win.el (emacs-session-filename): Use `locate-user-emacs-file'.
authorJuanma Barranquero <lekktu@gmail.com>
Thu, 20 Jun 2013 21:58:29 +0000 (23:58 +0200)
committerJuanma Barranquero <lekktu@gmail.com>
Thu, 20 Jun 2013 21:58:29 +0000 (23:58 +0200)
lisp/ChangeLog
lisp/term/x-win.el

index e080df38bf02c20237363aba3eb103359d16a66c..0ae2a09cc4c2940ff0bb8f7045959983292f899f 100644 (file)
@@ -1,3 +1,7 @@
+2013-06-20  Juanma Barranquero  <lekktu@gmail.com>
+
+       * term/x-win.el (emacs-session-filename): Use `locate-user-emacs-file'.
+
 2013-06-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/cl-loaddefs.el: Don't version-control any more.
index 822df0e37e524a6e24dbe5a97ed0abfc7e656624..ab1556d5779912dea4b341394bb25c3b32ecef54 100644 (file)
@@ -118,13 +118,11 @@ See also `emacs-session-save'.")
 
 (defun emacs-session-filename (session-id)
   "Construct a filename to save the session in based on SESSION-ID.
-If the directory ~/.emacs.d exists, we make a filename in there, otherwise
-a file in the home directory."
-  (let ((basename (concat "session." session-id))
-       (emacs-dir user-emacs-directory))
-    (expand-file-name (if (file-directory-p emacs-dir)
-                         (concat emacs-dir basename)
-                       (concat "~/.emacs-" basename)))))
+Return a filename in `user-emacs-directory', unless the session file
+already exists in the home directory."
+  (let ((basename (concat "session." session-id)))
+    (locate-user-emacs-file basename
+                            (concat ".emacs-" basename))))
 
 (defun emacs-session-save ()
   "This function is called when the window system is shutting down.