(command-line): Require whitespace delimiter when

searching locale-translation-file-name.
This commit is contained in:
Richard M. Stallman
1998-08-07 23:25:43 +00:00
parent cbb41490e9
commit 08e77a49f7

View File

@@ -509,7 +509,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(file-exists-p locale-translation-file-name)
(with-temp-buffer
(insert-file-contents locale-translation-file-name)
(if (re-search-forward (concat "^" ctype "[ \t]*") nil t)
(if (re-search-forward (concat "^" ctype "[ \t]+") nil t)
(setq ctype (buffer-substring (point)
(progn (end-of-line) (point)))))))
;; Now see if the locale specifies an ISO 8859 character set.