Mercurial > emacs
changeset 24203:06cb71bb7bc5
(command-line): Set default eol-mnemonic-* strings to
display end-of-line format in mode line.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 27 Jan 1999 10:12:43 +0000 |
| parents | afc9a7e3752f |
| children | a61e1da49f92 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Wed Jan 27 10:11:51 1999 +0000 +++ b/lisp/startup.el Wed Jan 27 10:12:43 1999 +0000 @@ -558,6 +558,18 @@ ;;! ;; 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))