diff options
| -rw-r--r-- | lisp/startup.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 5e0a47d3f8f..d985d57d3c7 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1259,6 +1259,10 @@ please check its value") (setq init-file-user nil)) ((member argi '("-init-directory")) (setq user-emacs-directory (or argval (pop args)) + user-emacs-directory (if (stringp user-emacs-directory) + (file-name-as-directory + user-emacs-directory) + user-emacs-directory) argval nil)) ((member argi '("-u" "-user")) (setq init-file-user (or argval (pop args)) |