Mercurial > emacs
comparison lisp/subr.el @ 2033:10cdd2928c7d
(momentary-string-display): Handle any event when flushing the display.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 06 Mar 1993 06:16:06 +0000 |
| parents | 8b9286bffef8 |
| children | aa926beb4caa |
comparison
equal
deleted
inserted
replaced
| 2032:20cc6c34421c | 2033:10cdd2928c7d |
|---|---|
| 346 (setq buffer-file-name nil) | 346 (setq buffer-file-name nil) |
| 347 (insert-before-markers string) | 347 (insert-before-markers string) |
| 348 (setq insert-end (point))) | 348 (setq insert-end (point))) |
| 349 (message (or message "Type %s to continue editing.") | 349 (message (or message "Type %s to continue editing.") |
| 350 (single-key-description exit-char)) | 350 (single-key-description exit-char)) |
| 351 (let ((char (read-char))) | 351 (let ((char (read-event))) |
| 352 (or (eq char exit-char) | 352 (or (eq char exit-char) |
| 353 (setq unread-command-events (list char))))) | 353 (setq unread-command-events (list char))))) |
| 354 (if insert-end | 354 (if insert-end |
| 355 (save-excursion | 355 (save-excursion |
| 356 (delete-region pos insert-end))) | 356 (delete-region pos insert-end))) |