Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
08e77a49
Commit
08e77a49
authored
Aug 07, 1998
by
Richard M. Stallman
Browse files
(command-line): Require whitespace delimiter when
searching locale-translation-file-name.
parent
cbb41490
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
lisp/startup.el
lisp/startup.el
+1
-1
No files found.
lisp/startup.el
View file @
08e77a49
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment