diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-06-07 23:15:30 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-06-07 23:15:30 +0000 |
commit | eca2af224c0074d383d571951c45559c1a8ec3c1 (patch) | |
tree | d20df5ee841f7e65e3babaa3ce7bdb7f38608633 /lisp/startup.el | |
parent | 232842d599b96dda2d85c004be931f866b85ef84 (diff) | |
download | emacs-eca2af224c0074d383d571951c45559c1a8ec3c1.tar.gz |
(command-line): Don't call face-initialize.
(command-line): If environment specifies ISO 8859,
always set up for both singe-byte and multibyte operation.
But set-language-environment does most of the job now.
Diffstat (limited to 'lisp/startup.el')
-rw-r--r-- | lisp/startup.el | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 7dfb1ca07a1..b5fa0b5ef01 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -429,16 +429,13 @@ from being initialized.") (when (and ctype (string-match iso-8859-n-locale-regexp ctype)) (setq charset (concat "latin-" (match-string 1 ctype))) - (if (default-value 'enable-multibyte-characters) - (if (string-match "latin-[12345]" charset) - (set-language-environment charset)) - ;; These two lines are ok for any Latin-N character set, - ;; as long as the terminal displays it. - (require 'disp-table) - (standard-display-european t) - ;; Set up syntax for the chosen character set. - (if (string-match "latin-[1234]" charset) - (require (intern charset)))))) + ;; Set up for this character set in multibyte mode. + (if (string-match "latin-[12345]" charset) + (set-language-environment charset)) + ;; These two lines are ok for any Latin-N character set, + ;; as long as the terminal displays it. + (require 'disp-table) + (standard-display-european t))) ;;! This has been commented out; I currently find the behavior when ;;! split-window-keep-point is nil disturbing, but if I can get used @@ -544,8 +541,6 @@ from being initialized.") (and command-line-args (setcdr command-line-args args))) ;; Under X Windows, this creates the X frame and deletes the terminal frame. - (if (fboundp 'face-initialize) - (face-initialize)) (if (fboundp 'frame-initialize) (frame-initialize)) ;; If frame was created with a menu bar, set menu-bar-mode on. |