mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(comint-last-output-start): Add defvar.

Browse source 
(comint-dynamic-list-completions): Use read-key-sequence.
Special handling for mouse-choose-completion.
This commit is contained in:
Richard M. Stallman 1994-01-03 10:46:53 +00:00
parent 9a474b25f8
commit 7d5d472e5c
1 changed files with 22 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/comint.el
View file

@ -302,6 +302,7 @@ This is to work around a bug in Emacs process signalling.")
(defvar comint-input-ring nil)
(defvar comint-last-input-start)
(defvar comint-last-input-end)
(defvar comint-last-output-start)
(defvar comint-input-ring-index nil
"Index of last matched history element.")
(defvar comint-matching-input-from-input-string ""
@ -1838,6 +1839,8 @@ Completion is dependent on the value of `comint-completion-addsuffix' and
dependent on the value of `comint-completion-autolist'."
(interactive)
(let* ((completion-ignore-case nil)
;; For shell completion, treat all files as equally interesting.
(completion-ignored-extensions nil)
(filename (comint-match-partial-filename))
(pathdir (file-name-directory filename))
(pathnondir (file-name-nondirectory filename))
@ -1990,6 +1993,8 @@ See also `comint-dynamic-complete-filename'."
"List in help buffer possible completions of the filename at point."
(interactive)
(let* ((completion-ignore-case nil)
;; For shell completion, treat all files as equally interesting.
(completion-ignored-extensions nil)
(filename (comint-match-partial-filename))
(pathdir (file-name-directory filename))
(pathnondir (file-name-nondirectory filename))
@ -2007,12 +2012,24 @@ Typing SPC flushes the help buffer."
(let ((conf (current-window-configuration)))
(with-output-to-temp-buffer " *Completions*"
(display-completion-list (sort completions 'string-lessp)))
(sit-for 0)
(message "Hit space to flush")
(let ((ch (read-event)))
(if (eq ch ?\ )
(set-window-configuration conf)
(setq unread-command-events (list ch))))))
(let (key first)
(if (save-excursion
(set-buffer (get-buffer " *Completions*"))
(setq key (read-key-sequence nil)
first (aref key 0))
(and (consp first)
(eq (window-buffer (posn-window (event-start first)))
(get-buffer " *Completions*"))
(eq (key-binding key) 'mouse-choose-completion)))
;; If the user does mouse-choose-completion with the mouse,
;; execute the command, then delete the completion window.
(progn
(mouse-choose-completion first)
(set-window-configuration conf))
(if (eq first ?\ )
(set-window-configuration conf)
(setq unread-command-events (append key nil)))))))
;;; Converting process modes to use comint mode
;;; ===========================================================================