mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 04:10:27 -08:00
Code Issues Projects Releases Wiki Activity

(iso-accents-compose):

Browse source 
Handle case where unread-command-events is already nonempty.
This commit is contained in:
Richard M. Stallman 1997-05-08 14:51:57 +00:00
parent 43a8874dac
commit 5f7480417e
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/international/iso-acc.el
View file

@ -265,13 +265,14 @@ the language you choose).")
;; Found it: return the mapped char
(vector entry)
;; Otherwise, advance and schedule the second key for execution.
(setq unread-command-events (list second-char))
(setq unread-command-events
(cons (list second-char) unread-command-events))
(vector first-char))))
;; It is a matter of taste if you want the minor mode indicated
;; in the mode line...
;; If so, uncomment the next four lines.
;; (or (assq 'iso-accents-mode minor-mode-map-alist)
;; (or (assq 'iso-accents-mode minor-mode-alist)
;; (setq minor-mode-alist
;; (append minor-mode-alist
;; '((iso-accents-mode " ISO-Acc")))))