Commit ab63960f authored by Richard M. Stallman's avatar Richard M. Stallman

(choose-completion): Bury or iconify the completion list

using code copied from mouse-choose-completion.
parent 62057cef
......@@ -2483,7 +2483,7 @@ it were the arg to `interactive' (which see) to interactively read the value."
(defun choose-completion ()
"Choose the completion that point is in or next to."
(interactive)
(let (beg end)
(let (beg end completion (buffer completion-reference-buffer))
(if (and (not (eobp)) (get-text-property (point) 'mouse-face))
(setq end (point) beg (1+ (point))))
(if (and (not (bobp)) (get-text-property (1- (point)) 'mouse-face))
......@@ -2492,7 +2492,16 @@ it were the arg to `interactive' (which see) to interactively read the value."
(error "No completion here"))
(setq beg (previous-single-property-change beg 'mouse-face))
(setq end (or (next-single-property-change end 'mouse-face) (point-max)))
(choose-completion-string (buffer-substring beg end))))
(setq completion (buffer-substring beg end))
(let ((owindow (selected-window)))
(if (and (one-window-p t 'selected-frame)
(window-dedicated-p (selected-window)))
;; This is a special buffer's frame
(iconify-frame (selected-frame))
(or (window-dedicated-p (selected-window))
(bury-buffer)))
(select-window owindow))
(choose-completion-string completion buffer)))
;; Delete the longest partial match for STRING
;; that can be found before POINT.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment