[PATCH] Do not use ~USER/ on MS-DOS

[PATCH] Do not use ~USER/ on MS-DOS

[Michal Nazarewicz]

From: Michal Nazarewicz <mina86@mina86.com>

* lisp/startup.el (command-line): Since ~USER path expansion is not
supported on MS-DOS, use ~/_emacs instead of ~/USER/_emacs on that
system.
---
 lisp/startup.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index 999e53e..c10c264 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1084,7 +1084,7 @@ (defun command-line ()
 		    (let ((user-init-file-1
 			   (cond
 			     ((eq system-type 'ms-dos)
-			      (concat "~" init-file-user "/_emacs"))
+			      "~/_emacs")
 			     ((not (eq system-type 'windows-nt))
 			      (concat "~" init-file-user "/.emacs"))
 			     ;; Else deal with the Windows situation
-- 
2.2.0.rc0.207.ga3a616c

Re: [PATCH] Do not use ~USER/ on MS-DOS

[Eli Zaretskii]

> From: Michal Nazarewicz <mpn@google.com>
> Cc: emacs-devel@gnu.org
> Date: Mon,  2 Mar 2015 10:07:05 +0100
> 
> From: Michal Nazarewicz <mina86@mina86.com>

Thanks.

> * lisp/startup.el (command-line): Since ~USER path expansion is not
> supported on MS-DOS, use ~/_emacs instead of ~/USER/_emacs on that
> system.

Actually, ~USER/_emacs _is_ supported on MS-DOS, albeit somewhat
crudely.

> --- a/lisp/startup.el
> +++ b/lisp/startup.el
> @@ -1084,7 +1084,7 @@ (defun command-line ()
>  		    (let ((user-init-file-1
>  			   (cond
>  			     ((eq system-type 'ms-dos)
> -			      (concat "~" init-file-user "/_emacs"))
> +			      "~/_emacs")
>  			     ((not (eq system-type 'windows-nt))
>  			      (concat "~" init-file-user "/.emacs"))
>  			     ;; Else deal with the Windows situation

Silently substituting ~/ for ~user/ is not really nice, IMO.

So I don't see a good reason to make this change, thanks.  Let's let
the sleeping dogs lie...