diff options
| author | Kenichi Handa <handa@m17n.org> | 2001-02-28 12:41:46 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2001-02-28 12:41:46 +0000 |
| commit | b8b2ea31bef2771605938f9c6a732bb2ddbf3382 (patch) | |
| tree | 73afdcb6c9f1817eea7955a924728eb6352a9109 /lisp | |
| parent | af122766135c7923ab6157843c2850630a6e7ac8 (diff) | |
| download | emacs-b8b2ea31bef2771605938f9c6a732bb2ddbf3382.tar.gz | |
(setup-ethiopic-environment-internal): Change bindings of functions
keys to conform to "Emacs Lisp Coding Convention".
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/language/ethio-util.el | 42 |
2 files changed, 34 insertions, 12 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a651dc29d55..858526b424b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,4 @@ -2001-02-28 Kenichi Handa <handa@etl.go.jp> +2001-02-28 TAKAHASHI Naoto <ntakahas@m17n.org> * language/ethio-util.el (setup-ethiopic-environment-internal): Change bindings of functions keys to conform to "Emacs Lisp Coding @@ -6,6 +6,8 @@ * language/ethiopic.el ("Ethiopic"): Add documentation. +2001-02-28 Kenichi Handa <handa@etl.go.jp> + * international/utf-8.el (mule-utf-8): Set coding-category property to coding-category-utf-8. diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index 43f2ad0ee1c..86e07e0c9d8 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el @@ -1,6 +1,6 @@ ;;; ethio-util.el --- utilities for Ethiopic -;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997, 2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Keywords: mule, multilingual, Ethiopic @@ -22,7 +22,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp> +;; Author: TAKAHASHI Naoto <ntakahas@m17n.org> ;;; Code: @@ -34,18 +34,38 @@ (let ((key-bindings '((" " . ethio-insert-space) ([?\S- ] . ethio-insert-ethio-space) ([?\C-'] . ethio-gemination) - ([f2] . ethio-toggle-space) - ([S-f2] . ethio-replace-space) ; as requested - ([f3] . ethio-toggle-punctuation) + + ;; these old bindings conflict + ;; with Emacs' binding policy + + ;; ([f2] . ethio-toggle-space) + ;; ([S-f2] . ethio-replace-space) ; as requested + ;; ([f3] . ethio-toggle-punctuation) + ;; ([f4] . ethio-sera-to-fidel-buffer) + ;; ([S-f4] . ethio-sera-to-fidel-region) + ;; ([C-f4] . ethio-sera-to-fidel-mail-or-marker) + ;; ([f5] . ethio-fidel-to-sera-buffer) + ;; ([S-f5] . ethio-fidel-to-sera-region) + ;; ([C-f5] . ethio-fidel-to-sera-mail-or-marker) + ;; ([f6] . ethio-modify-vowel) + ;; ([f7] . ethio-replace-space) + ;; ([f8] . ethio-input-special-character) + + ;; this is the rewritten bindings + + ([f3] . ethio-fidel-to-sera-buffer) + ([S-f3] . ethio-fidel-to-sera-region) + ([C-f3] . ethio-fidel-to-sera-mail-or-marker) ([f4] . ethio-sera-to-fidel-buffer) ([S-f4] . ethio-sera-to-fidel-region) ([C-f4] . ethio-sera-to-fidel-mail-or-marker) - ([f5] . ethio-fidel-to-sera-buffer) - ([S-f5] . ethio-fidel-to-sera-region) - ([C-f5] . ethio-fidel-to-sera-mail-or-marker) - ([f6] . ethio-modify-vowel) - ([f7] . ethio-replace-space) - ([f8] . ethio-input-special-character))) + ([S-f5] . ethio-toggle-punctuation) + ([S-f6] . ethio-modify-vowel) + ([S-f7] . ethio-replace-space) + ([S-f8] . ethio-input-special-character) + ([C-f9] . ethio-toggle-space) + ([S-f9] . ethio-replace-space) ; as requested + )) kb) (while key-bindings (setq kb (car (car key-bindings))) |