From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 Jan 1996 23:50:19 +0000 (+0000)
Subject: (auto-save-list-file-prefix):  Under MS-DOS, use `.s-'.
X-Git-Tag: emacs-19.34~1948
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f7f78f1abb5db40a6b04a51fe481a3bc5f4cea6;p=emacs.git

(auto-save-list-file-prefix):  Under MS-DOS, use `.s-'.
(normal-top-level): Under MS-DOS, use `make-temp-name' to produce
a unique `auto-save-list-file-name' (PID is not unique enough).
(command-line-1): Delete explicit test for msdos and windowsnt;
test just `window-system'.

(command-line-x-option-alist): Use x-handle-geometry for geometry options.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 8b698e5960a..d8d432c279c 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -172,8 +172,8 @@ This is normally copied from `default-directory' when Emacs starts.")
     ("-fn" 1 x-handle-switch font)
     ("-font" 1 x-handle-switch font)
     ("-ib" 1 x-handle-numeric-switch internal-border-width)
-    ("-g" 1 x-handle-switch geometry)
-    ("-geometry" 1 x-handle-switch geometry)
+    ("-g" 1 x-handle-geometry)
+    ("-geometry" 1 x-handle-geometry)
     ("-fg" 1 x-handle-switch foreground-color)
     ("-foreground" 1 x-handle-switch foreground-color)
     ("-bg" 1 x-handle-switch background-color)
@@ -194,7 +194,7 @@ This is normally copied from `default-directory' when Emacs starts.")
     ("--reverse-video" 0 x-handle-switch reverse t)
     ("--font" 1 x-handle-switch font)
     ("--internal-border" 1 x-handle-numeric-switch internal-border-width)
-    ("--geometry" 1 x-handle-switch geometry)
+    ("--geometry" 1 x-handle-geometry)
     ("--foreground-color" 1 x-handle-switch foreground-color)
     ("--background-color" 1 x-handle-switch background-color)
     ("--mouse-color" 1 x-handle-switch mouse-color)
@@ -284,7 +284,10 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
 This is initialized based on `mail-host-address',
 after your init file is read, in case it sets `mail-host-address'.")
 
-(defvar auto-save-list-file-prefix "~/.saves-"
+(defvar auto-save-list-file-prefix
+  (if (eq system-type 'ms-dos)
+      "~/_s"  ; MS-DOS cannot have initial dot, and allows only 8.3 names
+    "~/.saves-")
   "Prefix for generating `auto-save-list-file-name'.
 This is used after reading your `.emacs' file to initialize
 `auto-save-list-file-name', by appending Emacs's pid and the system name,
@@ -347,11 +350,15 @@ from being initialized.")
 	(or auto-save-list-file-name
 	    (and auto-save-list-file-prefix
 		 (setq auto-save-list-file-name
-		       (expand-file-name
-			(format "%s%d-%s"
-				auto-save-list-file-prefix
-				(emacs-pid)
-				(system-name))))))
+		       ;; Under MS-DOS our PID is almost always reused between
+		       ;; Emacs invocations.  We need something more unique.
+		       (if (eq system-type 'ms-dos)
+			   (make-temp-name
+			    (expand-file-name auto-save-list-file-prefix))
+			 (expand-file-name (format "%s%d-%s"
+						   auto-save-list-file-prefix
+						   (emacs-pid)
+						   (system-name)))))))
 	(run-hooks 'emacs-startup-hook)
 	(and term-setup-hook
 	     (run-hooks 'term-setup-hook))
@@ -716,8 +723,7 @@ Type \\[info] to enter Info, which you can use to read GNU documentation."
 
 		   ;; Windows and MSDOS (currently) do not count as
 		   ;; window systems, but do have mouse support.
-		   (if (or (memq system-type '(msdos windowsnt))
-			   window-system)
+		   (if window-system
 		       (insert "\n
 C-mouse-3 (third mouse button, with Control) gets a mode-specific menu."))
 		   (if (directory-files (file-name-directory auto-save-list-file-prefix)