mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(iso-accents-enable): New variable.

Browse Source 
(key-translation-map): Enable an accent only if in iso-accents-enable.
This commit is contained in:
Richard M. Stallman 1993-11-21 22:54:37 +00:00
parent c818754bc1
commit 6da676adec
1 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lisp/international/iso-acc.el
View File

@ -55,6 +55,9 @@
;;
;; Function `iso-accents-mode' can be used to enable the iso accents
;; minor mode, or disable it.
;; If you want only some of these characters to serve as accents,
;; set iso-accents-enable to the list of characters that should be special.
;;; Code:
@ -181,15 +184,27 @@ See `iso-accents-mode'.")
(setq unread-command-events (list second-char))
(vector first-char))))
(defvar iso-accents-enable '(?' ?` ?^ ?\" ?~ ?/)
"*List of accent keys that become prefixes in ISO Accents mode.
The default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported
accent keys. For certain languages, you might want to remove some of
those characters that are not actually used.")
(or key-translation-map (setq key-translation-map (make-sparse-keymap)))
;; For sequences starting with an accent character,
;; use a function that tests iso-accents-minor-mode.
(define-key key-translation-map "'" 'iso-accents-accent-key)
(define-key key-translation-map "`" 'iso-accents-accent-key)
(define-key key-translation-map "^" 'iso-accents-accent-key)
(define-key key-translation-map "\"" 'iso-accents-accent-key)
(define-key key-translation-map "~" 'iso-accents-accent-key)
(define-key key-translation-map "/" 'iso-accents-accent-key)
(if (memq ?' iso-accents-enable)
(define-key key-translation-map "'" 'iso-accents-accent-key))
(if (memq ?` iso-accents-enable)
(define-key key-translation-map "`" 'iso-accents-accent-key))
(if (memq ?^ iso-accents-enable)
(define-key key-translation-map "^" 'iso-accents-accent-key))
(if (memq ?\" iso-accents-enable)
(define-key key-translation-map "\"" 'iso-accents-accent-key))
(if (memq ?~ iso-accents-enable)
(define-key key-translation-map "~" 'iso-accents-accent-key))
(if (memq ?/ iso-accents-enable)
(define-key key-translation-map "/" 'iso-accents-accent-key))
;; It is a matter of taste if you want the minor mode indicated
;; in the mode line...
@ -207,6 +222,10 @@ When Iso-accents mode is enabled, accent character keys
\(`, ', \", ^, / and ~) do not self-insert; instead, they modify the following
letter key so that it inserts an ISO accented letter.
The variable `iso-accents-enable' specifies the list of characters to
enable as accents. If you don't need all of them, remove the ones you
don't need from that list.
Special combinations: ~c gives a c with cedilla,
~d gives a d with dash.
\"s gives German sharp s.
@ -214,7 +233,7 @@ Special combinations: ~c gives a c with cedilla,
/e gives an a-e ligature.
~< and ~> give guillemets.
With an argument, a positive argument enables ISO-accents mode,
With an argument, a positive argument enables ISO Accents mode,
and a negative argument disables it."
(interactive "P")