diff options
| author | Daniel Bergey | 2012-08-17 00:28:23 -0700 |
|---|---|---|
| committer | Glenn Morris | 2012-08-17 00:28:23 -0700 |
| commit | 0df648f9869d11681df46502f7eef2bee1c7ae39 (patch) | |
| tree | 02a86509f4d37c39658bb9375b667fc8ae1361d0 | |
| parent | a09710e913297f40c320c93689391a0a8fe4bc3a (diff) | |
| download | emacs-0df648f9869d11681df46502f7eef2bee1c7ae39.tar.gz emacs-0df648f9869d11681df46502f7eef2bee1c7ae39.zip | |
quail-define-inscript-package tiny change
* leim/quail/indian.el (quail-define-inscript-package):
Set kbd-translate for all Inscript layouts. It's a positional
layout: vowels should be on the left hand regardless of the
underlying characters produced by those keys.
Fixes: debbugs:12072
| -rw-r--r-- | leim/ChangeLog | 7 | ||||
| -rw-r--r-- | leim/quail/indian.el | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/leim/ChangeLog b/leim/ChangeLog index fcf0e72c3f4..5c29052d98b 100644 --- a/leim/ChangeLog +++ b/leim/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2012-08-17 Daniel Bergey <bergey@alum.mit.edu> (tiny change) | ||
| 2 | |||
| 3 | * quail/indian.el (quail-define-inscript-package): | ||
| 4 | Set kbd-translate for all Inscript layouts. It's a positional | ||
| 5 | layout: vowels should be on the left hand regardless of the | ||
| 6 | underlying characters produced by those keys. (Bug#12072) | ||
| 7 | |||
| 1 | 2012-08-06 Mohsen BANAN <libre@mohsen.1.banan.byname.net> | 8 | 2012-08-06 Mohsen BANAN <libre@mohsen.1.banan.byname.net> |
| 2 | 9 | ||
| 3 | * quail/persian.el: Add some mappings. (Bug#11812) | 10 | * quail/persian.el: Add some mappings. (Bug#11812) |
diff --git a/leim/quail/indian.el b/leim/quail/indian.el index 1c01693478b..2541e60c57d 100644 --- a/leim/quail/indian.el +++ b/leim/quail/indian.el | |||
| @@ -309,7 +309,7 @@ Full key sequences are listed below:") | |||
| 309 | (defun quail-define-inscript-package (char-tables key-tables pkgname lang | 309 | (defun quail-define-inscript-package (char-tables key-tables pkgname lang |
| 310 | title docstring) | 310 | title docstring) |
| 311 | (funcall 'quail-define-package pkgname lang title nil docstring | 311 | (funcall 'quail-define-package pkgname lang title nil docstring |
| 312 | nil nil nil nil nil nil nil nil) | 312 | nil nil nil t nil nil nil nil) |
| 313 | (let (char-table key-table char key) | 313 | (let (char-table key-table char key) |
| 314 | (while (and char-tables key-tables) | 314 | (while (and char-tables key-tables) |
| 315 | (setq char-table (car char-tables) | 315 | (setq char-table (car char-tables) |