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
b8b2ea31
Commit
b8b2ea31
authored
Feb 28, 2001
by
Kenichi Handa
Browse files
(setup-ethiopic-environment-internal): Change bindings of functions
keys to conform to "Emacs Lisp Coding Convention".
parent
af122766
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
55 additions
and
12 deletions
+55
-12
etc/NEWS
etc/NEWS
+21
-0
lisp/ChangeLog
lisp/ChangeLog
+3
-1
lisp/language/ethio-util.el
lisp/language/ethio-util.el
+31
-11
No files found.
etc/NEWS
View file @
b8b2ea31
...
...
@@ -1502,6 +1502,27 @@ methods in Leim.
These new environments mainly select appropriate translations
of the tutorial.
** In Ethiopic language environment, special key bindings for
function keys are changed as follows. This is to conform to "Emacs
Lisp Coding Convention".
new command old-binding
--- ------- -----------
f3 ethio-fidel-to-sera-buffer f5
S-f3 ethio-fidel-to-sera-region f5
C-f3 ethio-fidel-to-sera-mail-or-marker f5
f4 ethio-sera-to-fidel-buffer unchanged
S-f4 ethio-sera-to-fidel-region unchanged
C-f4 ethio-sera-to-fidel-mail-or-marker unchanged
S-f5 ethio-toggle-punctuation f3
S-f6 ethio-modify-vowel f6
S-f7 ethio-replace-space f7
S-f8 ethio-input-special-character f8
S-f9 ethio-replace-space unchanged
C-f9 ethio-toggle-space f2
+++
**
Fortran mode has a new command `fortran-strip-sequence-nos' to
remove text past column 72. The syntax class of `\' in Fortran is now
...
...
lisp/ChangeLog
View file @
b8b2ea31
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.
...
...
lisp/language/ethio-util.el
View file @
b8b2ea31
;;; 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
)))
...
...
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