diff options
| author | Richard M. Stallman | 1998-08-07 23:25:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-08-07 23:25:43 +0000 |
| commit | 08e77a49f7d87b2aa52c8226f11e7f7650e40c49 (patch) | |
| tree | 5173367da8288037fcfa155d0c702ddfc1ef32c3 | |
| parent | cbb41490e936b8db1909f75f70ff8e79961c8fd1 (diff) | |
| download | emacs-08e77a49f7d87b2aa52c8226f11e7f7650e40c49.tar.gz emacs-08e77a49f7d87b2aa52c8226f11e7f7650e40c49.zip | |
(command-line): Require whitespace delimiter when
searching locale-translation-file-name.
| -rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index f3d4e6d5031..444d156e601 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -509,7 +509,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 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. |