Mercurial > emacs
comparison lisp/international/iso-acc.el @ 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 | e08944e83eb7 |
| children | 599ab8f1aa84 |
comparison
equal
deleted
inserted
replaced
| 17700:d28dbbfabfb1 | 17701:1240e27fbb13 |
|---|---|
| 263 (entry (cdr (assq second-char list)))) | 263 (entry (cdr (assq second-char list)))) |
| 264 (if entry | 264 (if entry |
| 265 ;; Found it: return the mapped char | 265 ;; Found it: return the mapped char |
| 266 (vector entry) | 266 (vector entry) |
| 267 ;; Otherwise, advance and schedule the second key for execution. | 267 ;; Otherwise, advance and schedule the second key for execution. |
| 268 (setq unread-command-events (list second-char)) | 268 (setq unread-command-events |
| 269 (cons (list second-char) unread-command-events)) | |
| 269 (vector first-char)))) | 270 (vector first-char)))) |
| 270 | 271 |
| 271 ;; It is a matter of taste if you want the minor mode indicated | 272 ;; It is a matter of taste if you want the minor mode indicated |
| 272 ;; in the mode line... | 273 ;; in the mode line... |
| 273 ;; If so, uncomment the next four lines. | 274 ;; If so, uncomment the next four lines. |
| 274 ;; (or (assq 'iso-accents-mode minor-mode-map-alist) | 275 ;; (or (assq 'iso-accents-mode minor-mode-alist) |
| 275 ;; (setq minor-mode-alist | 276 ;; (setq minor-mode-alist |
| 276 ;; (append minor-mode-alist | 277 ;; (append minor-mode-alist |
| 277 ;; '((iso-accents-mode " ISO-Acc"))))) | 278 ;; '((iso-accents-mode " ISO-Acc"))))) |
| 278 | 279 |
| 279 ;;;###autoload | 280 ;;;###autoload |