(command-line): Require whitespace delimiter when

searching locale-translation-file-name.

(command-line): Require whitespace delimiter when
searching locale-translation-file-name.
08e77a49 · Richard M. Stallman · cbb41490 · 08e77a49
Commit 08e77a49 authored Aug 07, 1998 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/startup.el lisp/startup.el +1 -1

No files found.
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -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.