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.
This commit is contained in:
Eli Zaretskii 2022-12-03 12:03:13 +02:00
parent 641ef36403
commit 401f76cc3d

View file

@ -1259,6 +1259,10 @@ please check its value")
(setq init-file-user nil)) (setq init-file-user nil))
((member argi '("-init-directory")) ((member argi '("-init-directory"))
(setq user-emacs-directory (or argval (pop args)) (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)) argval nil))
((member argi '("-u" "-user")) ((member argi '("-u" "-user"))
(setq init-file-user (or argval (pop args)) (setq init-file-user (or argval (pop args))