Mercurial > emacs
comparison lisp/comint.el @ 2025:3f02dc3e10a8
Fix bug in previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 06 Mar 1993 06:03:19 +0000 |
parents | 9a765951a9b9 |
children | 2c7997f249eb |
comparison
equal
deleted
inserted
replaced
2024:357941278904 | 2025:3f02dc3e10a8 |
---|---|
1092 (with-output-to-temp-buffer "*Help*" | 1092 (with-output-to-temp-buffer "*Help*" |
1093 (display-completion-list completions)) | 1093 (display-completion-list completions)) |
1094 (sit-for 0) | 1094 (sit-for 0) |
1095 (message "Hit space to flush") | 1095 (message "Hit space to flush") |
1096 (let ((ch (read-event))) | 1096 (let ((ch (read-event))) |
1097 (if (= ch ?\ ) | 1097 (if (eq ch ?\ ) |
1098 (set-window-configuration conf) | 1098 (set-window-configuration conf) |
1099 (setq unread-command-events (list ch))))))))) | 1099 (setq unread-command-events (list ch))))))))) |
1100 | 1100 |
1101 ;;; Converting process modes to use comint mode | 1101 ;;; Converting process modes to use comint mode |
1102 ;;; =========================================================================== | 1102 ;;; =========================================================================== |