Mercurial > emacs
changeset 17701:1240e27fbb13
(iso-accents-compose):
Handle case where unread-command-events is already nonempty.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 08 May 1997 14:51:57 +0000 |
| parents | d28dbbfabfb1 |
| children | 7135a76049c9 |
| files | lisp/international/iso-acc.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/iso-acc.el Thu May 08 06:02:42 1997 +0000 +++ b/lisp/international/iso-acc.el Thu May 08 14:51:57 1997 +0000 @@ -265,13 +265,14 @@ ;; 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")))))