mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(iso-8859-1-locale-regexp): New variable.

Browse Source 
(command-line): Use it.
This commit is contained in:
Richard M. Stallman 1994-07-04 23:24:46 +00:00
parent 3e1c918b55
commit 64f62b4508
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/startup.el
View File

@ -201,6 +201,9 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
(x-popup-menu nil (cdr (cdr (car submap)))))
(setq submap (cdr submap))))))
(defconst iso-8859-1-locale-regexp "iso[-_]?8859[-_]1"
"Use ISO 8859-1 character set by default if this regexp matches LC_CTYPE.")
(defun command-line ()
(setq command-line-default-directory default-directory)
@ -217,8 +220,7 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
(string= vc "simple"))
(setq version-control 'never))))
(if (or (string-equal (getenv "LC_CTYPE") "iso_8859_1")
(string-equal (getenv "LC_CTYPE") "iso-8859-1"))
(if (string-match iso-8859-1-locale-regexp (getenv "LC_CTYPE"))
(progn
(standard-display-european t)
(require 'iso-syntax)))