mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(comint-completion, comint-source): Finsh `degroup' descriptions with period.

Browse Source 
(comint-dynamic-list-input-ring, comint-dynamic-list-completions):
"?\ " -> "?\s".
This commit is contained in:
Juanma Barranquero 2005-07-04 01:49:19 +00:00
parent 32463e4d08
commit 9049a096e0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/comint.el
View File

@ -146,11 +146,11 @@
:group 'processes)
(defgroup comint-completion nil
"Completion facilities in comint"
"Completion facilities in comint."
:group 'comint)
(defgroup comint-source nil
"Source finding facilities in comint"
"Source finding facilities in comint."
:prefix "comint-"
:group 'comint)
@ -986,7 +986,7 @@ See also `comint-read-input-ring'."
(message "Hit space to flush")
(setq comint-dynamic-list-input-ring-window-conf conf)
(let ((ch (read-event)))
(if (eq ch ?\ )
(if (eq ch ?\s)
(set-window-configuration conf)
(setq unread-command-events (list ch)))))))
@ -2930,7 +2930,7 @@ Typing SPC flushes the help buffer."
(progn
(mouse-choose-completion first)
(set-window-configuration comint-dynamic-list-completions-config))
(unless (eq first ?\ )
(unless (eq first ?\s)
(setq unread-command-events (listify-key-sequence key)))
(unless (eq first ?\t)
(set-window-configuration comint-dynamic-list-completions-config))))))