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.

diff --git a/lisp/startup.el b/lisp/startup.el
index 5e0a47d3f8fee3dc945d74b1d307ae2e49c78960..d985d57d3c7a61f4a1e1d3faad4dfb755c32e5a7 100644 (file)
--- 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))