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
0216c3df
Commit
0216c3df
authored
May 22, 2001
by
Gerd Moellmann
Browse files
(japanese-symbol-table): Fix handling of
Japanese long tone sign. From Kenichi Handa <handa@etl.go.jp>.
parent
ea6f077a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
1 deletion
+7
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/language/japan-util.el
lisp/language/japan-util.el
+2
-1
No files found.
lisp/ChangeLog
View file @
0216c3df
2001-05-22 Gerd Moellmann <gerd@gnu.org>
* language/japan-util.el (japanese-symbol-table): Fix handling of
Japanese long tone sign. From Kenichi Handa <handa@etl.go.jp>.
2001-05-21 Stefan Monnier <monnier@cs.yale.edu>
* diff-mode.el (diff-jump-to-old-file, diff-update-on-the-fly):
...
...
lisp/language/japan-util.el
View file @
0216c3df
...
...
@@ -3,6 +3,7 @@
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Copyright (C) 2001 Free SOftware Foundation, Inc.
;; Keywords: mule, multilingual, Japanese
...
...
@@ -102,7 +103,7 @@ HANKAKU-KATAKANA belongs to `japanese-jisx0201-kana'.")
(
defconst
japanese-symbol-table
'
((
?\$B!!
(
B
?\
)
(
?
$B!$
(
B
?,
?
(
I$
(
B
)
(
?
$B!%
(
B
?.
?
(
I!
(
B
)
(
?
$B!
"(B ?, ?(I$(B) (?$B!#(B ?. ?(I!(B) (?$B!&(B nil ?(I%(B)
(?$B!'(B ?:) (?$B!((B ?\;) (?$B!)(B ??) (?$B!*(B ?!) (?$B!+(B nil ?(I^(B) (?$B!,(B nil ?(I_(B)
(?$B!-(B ?') (?$B!.(B ?`) (?$B!0(B ?^) (?$B!2(B ?_) (?$B!<(B ?-) (?$B!=(B ?-) (?$B!>(B ?-)
(?$B!-(B ?') (?$B!.(B ?`) (?$B!0(B ?^) (?$B!2(B ?_) (?$B!<(B ?-
?(I0(B
) (?$B!=(B ?-) (?$B!>(B ?-)
(?$B!?(B ?/) (?$B!@(B ?\\) (?$B!A(B ?~) (?$B!C(B ?|) (?$B!F(B ?`) (?$B!G(B ?') (?$B!H(B ?\") (?$B!I(B ?\")
(?\$B!J(B ?\() (?\$B!K(B ?\)) (?\$B!N(B ?[) (?\$B!O(B ?]) (?\$B!P(B ?{) (?\$B!Q(B ?})
(?$B!R(B ?<) (?$B!S(B ?>) (?$B!\(B ?+) (?$B!](B ?-) (?$B!a(B ?=) (?$B!c(B ?<) (?$B!d(B ?>)
...
...
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