diff options
| author | Kim F. Storm | 2005-02-28 22:49:46 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-02-28 22:49:46 +0000 |
| commit | 18d2b950c9ee71448bed9b6dc7f2608a1fa7f2cc (patch) | |
| tree | 9b1a45633740c0f09ad8bf0e7e92e31976d2e7a7 | |
| parent | 77032434ced576b35536acb209e13ea5149bda09 (diff) | |
| download | emacs-18d2b950c9ee71448bed9b6dc7f2608a1fa7f2cc.tar.gz emacs-18d2b950c9ee71448bed9b6dc7f2608a1fa7f2cc.zip | |
(double-translate-key): Call force-window-update after
read-event to avoid crash in redisplay.
| -rw-r--r-- | lisp/double.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/double.el b/lisp/double.el index fc931992bd1..c9c27203344 100644 --- a/lisp/double.el +++ b/lisp/double.el | |||
| @@ -116,6 +116,7 @@ but not `C-u X' or `ESC X' since the X is not the prefix key." | |||
| 116 | ;; End of generated event. See if he will repeat it... | 116 | ;; End of generated event. See if he will repeat it... |
| 117 | (let ((new (double-read-event prompt)) | 117 | (let ((new (double-read-event prompt)) |
| 118 | (entry (assoc double-last-event double-map))) | 118 | (entry (assoc double-last-event double-map))) |
| 119 | (force-window-update (selected-window)) | ||
| 119 | (if (eq new double-last-event) | 120 | (if (eq new double-last-event) |
| 120 | (progn | 121 | (progn |
| 121 | (setq unread-command-events | 122 | (setq unread-command-events |