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
ad7c69e7
Commit
ad7c69e7
authored
Dec 08, 2002
by
Dave Love
Browse files
Add latin-jisx0201 characters. Fix
translation-table-for-input for lao, thai, tibetan.
parent
73fffc8c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
19 additions
and
5 deletions
+19
-5
lisp/ChangeLog
lisp/ChangeLog
+8
-2
lisp/international/ucs-tables.el
lisp/international/ucs-tables.el
+11
-3
No files found.
lisp/ChangeLog
View file @
ad7c69e7
2002-12-08 Dave Love <fx@gnu.org>
* international/ucs-tables.el: Add latin-jisx0201 characters. Fix
translation-table-for-input for lao, thai, tibetan.
2002-12-08 Andreas Schwab <schwab@suse.de>
2002-12-08 Andreas Schwab <schwab@suse.de>
* files.el (insert-directory): Insert free space only when
* files.el (insert-directory): Insert free space only when
...
@@ -284,8 +289,9 @@
...
@@ -284,8 +289,9 @@
2002-12-02 Fran,Ag(Bois Pinard <pinard@iro.umontreal.ca>
2002-12-02 Fran,Ag(Bois Pinard <pinard@iro.umontreal.ca>
* (makefile-font-lock-keywords): Highlight more make keywords:
* progmodes/make-mode.el (makefile-font-lock-keywords): Highlight
defined, endef, override, export, unexport and vpath.
more make keywords: defined, endef, override, export, unexport
and vpath.
2002-12-02 Dave Love <fx@gnu.org>
2002-12-02 Dave Love <fx@gnu.org>
...
...
lisp/international/ucs-tables.el
View file @
ad7c69e7
...
@@ -2416,12 +2416,19 @@ Interactively, prompts for a hex string giving the code."
...
@@ -2416,12 +2416,19 @@ Interactively, prompts for a hex string giving the code."
(?(1x(B . ?$,1Dx(B)
(?(1x(B . ?$,1Dx(B)
(?(1y(B . ?$,1Dy(B)
(?(1y(B . ?$,1Dy(B)
(?(1|(B . ?$,1D|(B)
(?(1|(B . ?$,1D|(B)
(?(1}(B . ?$,1D}(B))))
(?(1}(B . ?$,1D}(B))
(other
;; latin-jisx0201 is mostly decoded to ascii, with these
;; exceptions, so we don't bother with tables for the whole
;; thing.
(?(J\(B . ?,A%(B)
(?(J~(B . ?$,1s>(B))))
(let ((table (make-char-table 'safe-chars))
(let ((table (make-char-table 'safe-chars))
safe-charsets)
safe-charsets)
(dolist (cs '(vietnamese-viscii lao chinese-sisheng ipa
(dolist (cs '(vietnamese-viscii lao chinese-sisheng ipa
katakana-jisx0201 thai-tis620 tibetan-iso-8bit
katakana-jisx0201 thai-tis620 tibetan-iso-8bit
indian-is13194 ethiopic))
indian-is13194 ethiopic
other
))
;; These tables could be used as translation-table-for-encode by
;; These tables could be used as translation-table-for-encode by
;; the relevant coding systems.
;; the relevant coding systems.
(let ((encode-translator
(let ((encode-translator
...
@@ -2447,7 +2454,8 @@ Interactively, prompts for a hex string giving the code."
...
@@ -2447,7 +2454,8 @@ Interactively, prompts for a hex string giving the code."
'translation-table-for-input
'translation-table-for-input
encode-translator))
encode-translator))
((memq cs '(lao thai-tis620 tibetan-iso-8bit))
((memq cs '(lao thai-tis620 tibetan-iso-8bit))
(coding-system-put cs 'translation-table-for-input cs)))))
(coding-system-put cs 'translation-table-for-input
encode-translator)))))
(dolist (c safe-charsets)
(dolist (c safe-charsets)
(aset table (make-char c) t))))
(aset table (make-char c) t))))
...
...
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