diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-01 23:50:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-01 23:50:19 +0000 |
| commit | 1f7f78f1abb5db40a6b04a51fe481a3bc5f4cea6 (patch) | |
| tree | 0854a62acf0976e463fb8ec9f5950e1bfc0d2db0 /lisp/startup.el | |
| parent | 21590f63ea589bdd953f88a720b406a3b0513f52 (diff) | |
| download | emacs-1f7f78f1abb5db40a6b04a51fe481a3bc5f4cea6.tar.gz | |
(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.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 28 |
1 files changed, 17 insertions, 11 deletions
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) |