Support XDG-based init directory

[sxemacs] / lisp / menubar-items.el

diff --git a/lisp/menubar-items.el b/lisp/menubar-items.el
index b73d1b6..9299c28 100644 (file)
--- a/lisp/menubar-items.el
+++ b/lisp/menubar-items.el
@@ -1555,7 +1555,8 @@ See also `menu-split-long-menu'."
       ["Edit I%_nit File"
        ;; #### there should be something that holds the name that the init
        ;; file should be created as, when it's not present.
-       (progn (find-file (or user-init-file "~/.sxemacs/init.el"))
+       (progn (find-file (or user-init-file
+                            (expand-file-name "init.el" user-init-directory)))
              (or (eq major-mode 'emacs-lisp-mode)
                  (emacs-lisp-mode)))]
       ["%_Save Options to Custom File" customize-save-customized]