diff options
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 38 |
1 files changed, 2 insertions, 36 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 0101cacefbf..9fa5e8cd284 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2337,43 +2337,9 @@ and selects that window." ;;!! (- (car relative-coordinate) (current-column)) " ")) ;;!! ((= (current-column) (car relative-coordinate)) (ding)))))) -;; Choose a completion with the mouse. +(define-obsolete-function-alias + 'mouse-choose-completion 'choose-completion "23.2") -(defun mouse-choose-completion (event) - "Click on an alternative in the `*Completions*' buffer to choose it." - (interactive "e") - ;; Give temporary modes such as isearch a chance to turn off. - (run-hooks 'mouse-leave-buffer-hook) - (let ((buffer (window-buffer)) - choice - base-size) - (save-excursion - (set-buffer (window-buffer (posn-window (event-start event)))) - (if completion-reference-buffer - (setq buffer completion-reference-buffer)) - (setq base-size completion-base-size) - (save-excursion - (goto-char (posn-point (event-start event))) - (let (beg end) - (if (and (not (eobp)) (get-text-property (point) 'mouse-face)) - (setq end (point) beg (1+ (point)))) - (if (null beg) - (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))) - (setq choice (buffer-substring-no-properties beg end))))) - (let ((owindow (selected-window))) - (select-window (posn-window (event-start event))) - (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 choice buffer base-size))) - ;; Font selection. (defun font-menu-add-default () |