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:
parent
641ef36403
commit
401f76cc3d
1 changed files with 4 additions and 0 deletions
|
@ -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))
|
||||||
|
|
Loading…
Add table
Reference in a new issue