Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.324 emacs/lisp/comint.el:1.325
*** emacs/lisp/comint.el:1.324 Tue Jun 28 18:55:00 2005
--- emacs/lisp/comint.el Mon Jul 4 01:49:19 2005
***************
*** 146,156 ****
:group 'processes)
(defgroup comint-completion nil
! "Completion facilities in comint"
:group 'comint)
(defgroup comint-source nil
! "Source finding facilities in comint"
:prefix "comint-"
:group 'comint)
--- 146,156 ----
:group 'processes)
(defgroup comint-completion nil
! "Completion facilities in comint."
:group 'comint)
(defgroup comint-source nil
! "Source finding facilities in comint."
:prefix "comint-"
:group 'comint)
***************
*** 986,992 ****
(message "Hit space to flush")
(setq comint-dynamic-list-input-ring-window-conf conf)
(let ((ch (read-event)))
! (if (eq ch ?\ )
(set-window-configuration conf)
(setq unread-command-events (list ch)))))))
--- 986,992 ----
(message "Hit space to flush")
(setq comint-dynamic-list-input-ring-window-conf conf)
(let ((ch (read-event)))
! (if (eq ch ?\s)
(set-window-configuration conf)
(setq unread-command-events (list ch)))))))
***************
*** 2930,2936 ****
(progn
(mouse-choose-completion first)
(set-window-configuration comint-dynamic-list-completions-config))
! (unless (eq first ?\ )
(setq unread-command-events (listify-key-sequence key)))
(unless (eq first ?\t)
(set-window-configuration comint-dynamic-list-completions-config))))))
--- 2930,2936 ----
(progn
(mouse-choose-completion first)
(set-window-configuration comint-dynamic-list-completions-config))
! (unless (eq first ?\s)
(setq unread-command-events (listify-key-sequence key)))
(unless (eq first ?\t)
(set-window-configuration comint-dynamic-list-completions-config))))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
