Mercurial > hg > xemacs-beta

comparison lisp/mule/ethio-util.el @ 5819:ba0ff364bd94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Repair invalid GNU-style key-bindings.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sat, 18 Oct 2014 23:21:30 +0900
parents 308d34e9f07d
children
comparison
equal deleted inserted replaced
5818:15b0715c204d 5819:ba0ff364bd94
37 (defvar exit-ethiopic-environment-data nil) 37 (defvar exit-ethiopic-environment-data nil)
38 38
39 ;;;###autoload 39 ;;;###autoload
40 (defun setup-ethiopic-environment-internal () 40 (defun setup-ethiopic-environment-internal ()
41 (let ((key-bindings '((" " . ethio-insert-space) 41 (let ((key-bindings '((" " . ethio-insert-space)
42 ([?\S- ] . ethio-insert-ethio-space) 42 ([(shift space)] . ethio-insert-ethio-space)
43 ([?\C-'] . ethio-gemination) 43 ([(control ?\')] . ethio-gemination)
44 44
45 ;; these old bindings conflict 45 ;; these old bindings conflict
46 ;; with Emacs' binding policy 46 ;; with Emacs' binding policy
47 47
48 ;; These are GNU-style bindings that fail in XEmacs
49 ;; but I didn't feel like fixing them
48 ;; ([f2] . ethio-toggle-space) 50 ;; ([f2] . ethio-toggle-space)
49 ;; ([S-f2] . ethio-replace-space) ; as requested 51 ;; ([S-f2] . ethio-replace-space) ; as requested
50 ;; ([f3] . ethio-toggle-punctuation) 52 ;; ([f3] . ethio-toggle-punctuation)
51 ;; ([f4] . ethio-sera-to-fidel-buffer) 53 ;; ([f4] . ethio-sera-to-fidel-buffer)
52 ;; ([S-f4] . ethio-sera-to-fidel-region) 54 ;; ([S-f4] . ethio-sera-to-fidel-region)
59 ;; ([f8] . ethio-input-special-character) 61 ;; ([f8] . ethio-input-special-character)
60 62
61 ;; this is the rewritten bindings 63 ;; this is the rewritten bindings
62 64
63 ([f3] . ethio-fidel-to-sera-buffer) 65 ([f3] . ethio-fidel-to-sera-buffer)
64 ([S-f3] . ethio-fidel-to-sera-region) 66 ([(shift f3)] . ethio-fidel-to-sera-region)
65 ([C-f3] . ethio-fidel-to-sera-mail-or-marker) 67 ([(control f3)] . ethio-fidel-to-sera-mail-or-marker)
66 ([f4] . ethio-sera-to-fidel-buffer) 68 ([f4] . ethio-sera-to-fidel-buffer)
67 ([S-f4] . ethio-sera-to-fidel-region) 69 ([(shift f4)] . ethio-sera-to-fidel-region)
68 ([C-f4] . ethio-sera-to-fidel-mail-or-marker) 70 ([(control f4)] . ethio-sera-to-fidel-mail-or-marker)
69 ([S-f5] . ethio-toggle-punctuation) 71 ([(shift f5)] . ethio-toggle-punctuation)
70 ([S-f6] . ethio-modify-vowel) 72 ([(shift f6)] . ethio-modify-vowel)
71 ([S-f7] . ethio-replace-space) 73 ([(shift f7)] . ethio-replace-space)
72 ([S-f8] . ethio-input-special-character) 74 ([(shift f8)] . ethio-input-special-character)
73 ([C-f9] . ethio-toggle-space) 75 ([(control f9)] . ethio-toggle-space)
74 ([S-f9] . ethio-replace-space) ; as requested 76 ([(shift f9)] . ethio-replace-space) ; as requested
75 )) 77 ))
76 kb) 78 kb)
77 (while key-bindings 79 (while key-bindings
78 (setq kb (car (car key-bindings))) 80 (setq kb (car (car key-bindings)))
79 (setq exit-ethiopic-environment-data 81 (setq exit-ethiopic-environment-data