comparison lisp/startup.el @ 33880:29bb0c0782b1

Do not call set-locale-environment until after terminal is initialized.
author Jason Rumney <jasonr@gnu.org>
date Sat, 25 Nov 2000 16:21:17 +0000
parents 4cc1de4931b9
children 9aede9b4161c
comparison
equal deleted inserted replaced
33879:9bbea0dda9cd 33880:29bb0c0782b1
619 (setq version-control nil)) 619 (setq version-control nil))
620 ((or (string= vc "never") 620 ((or (string= vc "never")
621 (string= vc "simple")) 621 (string= vc "simple"))
622 (setq version-control 'never)))) 622 (setq version-control 'never))))
623 623
624 (set-locale-environment nil)
625
626 ;;! This has been commented out; I currently find the behavior when 624 ;;! This has been commented out; I currently find the behavior when
627 ;;! split-window-keep-point is nil disturbing, but if I can get used 625 ;;! split-window-keep-point is nil disturbing, but if I can get used
628 ;;! to it, then it would be better to eliminate the option. 626 ;;! to it, then it would be better to eliminate the option.
629 ;;! ;; Choose a good default value for split-window-keep-point. 627 ;;! ;; Choose a good default value for split-window-keep-point.
630 ;;! (setq split-window-keep-point (> baud-rate 2400)) 628 ;;! (setq split-window-keep-point (> baud-rate 2400))
670 668
671 ;; Windowed displays do this inside their *-win.el. 669 ;; Windowed displays do this inside their *-win.el.
672 (when (and (not (display-graphic-p)) 670 (when (and (not (display-graphic-p))
673 (not noninteractive)) 671 (not noninteractive))
674 (setq command-line-args (tty-handle-args command-line-args))) 672 (setq command-line-args (tty-handle-args command-line-args)))
673
674 (set-locale-environment nil)
675 675
676 (let ((done nil) 676 (let ((done nil)
677 (args (cdr command-line-args))) 677 (args (cdr command-line-args)))
678 678
679 ;; Figure out which user's init file to load, 679 ;; Figure out which user's init file to load,