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 ;;; ===========================================================================