Mercurial > emacs

comparison lisp/startup.el @ 42790:987fa2a733e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Set EOL mnemonics for the Mac.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 16 Jan 2002 19:42:27 +0000
parents 00370dd7111e
children 9071f84734d8
comparison
equal deleted inserted replaced
42789:b016f6f9056c 42790:987fa2a733e0
673 ;; end-of-line formats that aren't native to this platform. 673 ;; end-of-line formats that aren't native to this platform.
674 (cond 674 (cond
675 ((memq system-type '(ms-dos windows-nt emx)) 675 ((memq system-type '(ms-dos windows-nt emx))
676 (setq eol-mnemonic-unix "(Unix)") 676 (setq eol-mnemonic-unix "(Unix)")
677 (setq eol-mnemonic-mac "(Mac)")) 677 (setq eol-mnemonic-mac "(Mac)"))
678 ;; Mac-specific settings should come here, once there's a 678 ;; Both Mac and Unix EOLs are now "native" on Mac OS so keep the
679 ;; system-type symbol specific to MacOS. 679 ;; abbreviated strings `/' and `:' set in coding.c for them.
680 ((eq system-type 'macos)
681 (setq eol-mnemonic-dos "(DOS)"))
680 (t ; this is for Unix/GNU/Linux systems 682 (t ; this is for Unix/GNU/Linux systems
681 (setq eol-mnemonic-dos "(DOS)") 683 (setq eol-mnemonic-dos "(DOS)")
682 (setq eol-mnemonic-mac "(Mac)"))) 684 (setq eol-mnemonic-mac "(Mac)")))
683 685
684 ;; Read window system's init file if using a window system. 686 ;; Read window system's init file if using a window system.