summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-06-07 23:15:30 +0000
committerRichard M. Stallman <rms@gnu.org>1997-06-07 23:15:30 +0000
commiteca2af224c0074d383d571951c45559c1a8ec3c1 (patch)
treed20df5ee841f7e65e3babaa3ce7bdb7f38608633
parent232842d599b96dda2d85c004be931f866b85ef84 (diff)
downloademacs-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.
-rw-r--r--lisp/startup.el19
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.