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
ef114666
Commit
ef114666
authored
Oct 01, 2002
by
Kenichi Handa
Browse files
(set-language-environment): Delete unnecessary setup of syntax/case
for unibyte case.
parent
c57d1344
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
24 deletions
+2
-24
lisp/international/mule-cmds.el
lisp/international/mule-cmds.el
+2
-24
No files found.
lisp/international/mule-cmds.el
View file @
ef114666
...
...
@@ -1455,30 +1455,8 @@ specifies the character set for the major languages of Western Europe."
(
set-unibyte-charset
nonascii
))
;; Unibyte setups if necessary.
(
unless
default-enable-multibyte-characters
;; Syntax and case table.
(
let
((
syntax
(
get-language-info
language-name
'unibyte-syntax
)))
(
if
syntax
(
let
((
set-case-syntax-set-multibyte
nil
))
(
load
syntax
nil
t
))
;; No information for syntax and case. Reset to the defaults.
(
let
((
syntax-table
(
standard-syntax-table
))
(
case-table
(
standard-case-table
))
(
ch
(
if
(
eq
window-system
'pc
)
128
160
)))
(
while
(
<
ch
256
)
(
modify-syntax-entry
ch
" "
syntax-table
)
(
aset
case-table
ch
ch
)
(
setq
ch
(
1+
ch
)))
(
set-char-table-extra-slot
case-table
0
nil
)
(
set-char-table-extra-slot
case-table
1
nil
)
(
set-char-table-extra-slot
case-table
2
nil
))
(
set-standard-case-table
(
standard-case-table
))
(
let
((
list
(
buffer-list
)))
(
while
list
(
with-current-buffer
(
car
list
)
(
set-case-table
(
standard-case-table
)))
(
setq
list
(
cdr
list
))))))
(
set-display-table-and-terminal-coding-system
language-name
))
(
or
default-enable-multibyte-characters
(
set-display-table-and-terminal-coding-system
language-name
))
(
let
((
required-features
(
get-language-info
language-name
'features
)))
(
while
required-features
...
...
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