diff options
author | Eli Zaretskii <eliz@gnu.org> | 2022-12-03 12:03:13 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2022-12-03 12:03:13 +0200 |
commit | 401f76cc3d6210dd546bbb22f2ae60d529e59fbe (patch) | |
tree | 90018fd00715458177eccae9e58993f8da05986e | |
parent | 641ef36403b2d485bb4f500a7a6de33b6da7642c (diff) | |
download | emacs-401f76cc3d6210dd546bbb22f2ae60d529e59fbe.tar.gz |
Make sure 'user-emacs-directory' ends in a slash
* lisp/startup.el (command-line): Make sure 'user-emacs-directory'
has the form of a directory.
-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)) |