Mercurial > emacs
comparison lisp/startup.el @ 22937:584b28b8de70
(command-line): Require whitespace delimiter when
searching locale-translation-file-name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Aug 1998 23:25:43 +0000 |
| parents | 187c9bf1aab6 |
| children | 912ae6c6787d |
comparison
equal
deleted
inserted
replaced
| 22936:7ba8e024c38f | 22937:584b28b8de70 |
|---|---|
| 507 (and ctype | 507 (and ctype |
| 508 (not (string-match iso-8859-n-locale-regexp ctype)) | 508 (not (string-match iso-8859-n-locale-regexp ctype)) |
| 509 (file-exists-p locale-translation-file-name) | 509 (file-exists-p locale-translation-file-name) |
| 510 (with-temp-buffer | 510 (with-temp-buffer |
| 511 (insert-file-contents locale-translation-file-name) | 511 (insert-file-contents locale-translation-file-name) |
| 512 (if (re-search-forward (concat "^" ctype "[ \t]*") nil t) | 512 (if (re-search-forward (concat "^" ctype "[ \t]+") nil t) |
| 513 (setq ctype (buffer-substring (point) | 513 (setq ctype (buffer-substring (point) |
| 514 (progn (end-of-line) (point))))))) | 514 (progn (end-of-line) (point))))))) |
| 515 ;; Now see if the locale specifies an ISO 8859 character set. | 515 ;; Now see if the locale specifies an ISO 8859 character set. |
| 516 (when (and ctype | 516 (when (and ctype |
| 517 (string-match iso-8859-n-locale-regexp ctype)) | 517 (string-match iso-8859-n-locale-regexp ctype)) |