comparison lisp/startup.el @ 18072:ffd40bd63246

(command-line): Detect Latin-N character sets from envvars, both for multibyte mode and single-byte mode.

18071:bcdf720abb1a

override them.  Users can prevent loading `default.el' with the `-q'
option or by setting `inhibit-default-init' in their own init files,
but inhibiting `site-start.el' requires `--no-site-file', which
is less convenient.")

(defconst iso-8859-1-locale-regexp "8859[-_]?1"
  "Regexp that specifies when to enable the ISO 8859-1 character set.
We do that if this regexp matches the locale name
specified by the LC_ALL, LC_CTYPE and LANG environment variables.")

(defvar mail-host-address nil
  "*Name of this machine, for purposes of naming users.")

(defvar user-mail-address nil

	   (setq version-control nil))
	  ((or (string= vc "never")
	       (string= vc "simple"))
	   (setq version-control 'never))))

  (if (let ((ctype
	     ;; Use the first of these three envvars that has a nonempty value.
	     (or (let ((string (getenv "LC_ALL")))
		   (and (not (equal string "")) string))
		 (let ((string (getenv "LC_CTYPE")))
		   (and (not (equal string "")) string))
		 (let ((string (getenv "LANG")))
		   (and (not (equal string "")) string)))))
	(and ctype
	     (string-match iso-8859-1-locale-regexp ctype)))
      (progn 
	(require 'disp-table)
	(standard-display-european t)
	(require 'latin-1)))

  ;;! This has been commented out; I currently find the behavior when
  ;;! split-window-keep-point is nil disturbing, but if I can get used
  ;;! to it, then it would be better to eliminate the option.
  ;;! ;; Choose a good default value for split-window-keep-point.

18072:ffd40bd63246

override them.  Users can prevent loading `default.el' with the `-q'
option or by setting `inhibit-default-init' in their own init files,
but inhibiting `site-start.el' requires `--no-site-file', which
is less convenient.")

(defconst iso-8859-n-locale-regexp "8859[-_]?\\([1-5]\\)"
  "Regexp that specifies when to enable an ISO 8859-N character set.
We do that if this regexp matches the locale name
specified by the LC_ALL, LC_CTYPE and LANG environment variables.
The paren group in the regexp should match the specific character
set number, N.")

(defvar mail-host-address nil
  "*Name of this machine, for purposes of naming users.")

(defvar user-mail-address nil

	   (setq version-control nil))
	  ((or (string= vc "never")
	       (string= vc "simple"))
	   (setq version-control 'never))))

  (let ((ctype
	 ;; Use the first of these three envvars that has a nonempty value.
	 (or (let ((string (getenv "LC_ALL")))
	       (and (not (equal string "")) string))
	     (let ((string (getenv "LC_CTYPE")))
	       (and (not (equal string "")) string))
	     (let ((string (getenv "LANG")))
	       (and (not (equal string "")) string))))
	charset)
    (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))))))

  ;;! This has been commented out; I currently find the behavior when
  ;;! split-window-keep-point is nil disturbing, but if I can get used
  ;;! to it, then it would be better to eliminate the option.
  ;;! ;; Choose a good default value for split-window-keep-point.