From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 27 Jan 1999 10:12:43 +0000 (+0000)
Subject: (command-line): Set default eol-mnemonic-* strings to
X-Git-Tag: emacs-20.4~746
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4308a4dc15d289fa0cfbaf0b7944b761bc5069f;p=emacs.git

(command-line): Set default eol-mnemonic-* strings to
display end-of-line format in mode line.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 3def4ed0876..950cf702ffc 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -558,6 +558,18 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
   ;;! ;; Choose a good default value for split-window-keep-point.
   ;;! (setq split-window-keep-point (> baud-rate 2400))
 
+  ;; Set the default strings to display in mode line for
+  ;; end-of-line formats that aren't native to this platform.
+  (cond
+   ((memq system-type '(ms-dos windows-nt emx))
+    (setq eol-mnemonic-unix "(Unix)")
+    (setq eol-mnemonic-mac  "(Mac)"))
+   ;; Mac-specific settings should come here, once there's a
+   ;; system-type symbol specific to MacOS.
+   (t	; this is for Unix/GNU/Linux systems
+    (setq eol-mnemonic-dos  "(DOS)")
+    (setq eol-mnemonic-mac  "(Mac)")))
+
   ;; Read window system's init file if using a window system.
   (condition-case error
       (if (and window-system (not noninteractive))