comparison lisp/mouse.el @ 6548:2b0355912ba6

(mouse-choose-completion): Use choose-completion-string. (mouse-completion-delete-max-match): Moved to simple.el and renamed.

6547:610cde67456a

;;;!! 		(- (car relative-coordinate) (current-column)) " "))
;;;!! 	      ((= (current-column) (car relative-coordinate)) (ding))))))

;; Choose a completion with the mouse.

;; Delete the longest partial match for STRING
;; that can be found before POINT.
(defun mouse-delete-max-match (string)
  (let ((opoint (point))
	(len (min (length string)
		  (- (point) (point-min)))))
    (goto-char (- (point) (length string)))
    (while (and (> len 0)
		(let ((tail (buffer-substring (point)
					      (+ (point) len))))
		  (not (string= tail (substring string 0 len)))))
      (setq len (1- len))
      (forward-char 1))
    (delete-char len)))

(defun mouse-choose-completion (event)
  "Click on an alternative in the `*Completions*' buffer to choose it."
  (interactive "e")
  (let ((buffer (window-buffer))
        choice)

	  (setq choice (buffer-substring beg (point))))))
    (let ((owindow (selected-window)))
      (select-window (posn-window (event-start event)))
      (bury-buffer)
      (select-window owindow))
    (set-buffer buffer)
    (mouse-delete-max-match choice)
    (insert choice)
    ;; Update point in the window that BUFFER is showing in.
    (let ((window (get-buffer-window buffer t)))
      (set-window-point window (point)))
    (and (equal buffer (window-buffer (minibuffer-window)))
	 (minibuffer-complete-and-exit))))

;; Font selection.

(defun font-menu-add-default ()
  (let* ((default (cdr (assq 'font (frame-parameters (selected-frame)))))

6548:2b0355912ba6

;;;!! 		(- (car relative-coordinate) (current-column)) " "))
;;;!! 	      ((= (current-column) (car relative-coordinate)) (ding))))))

;; Choose a completion with the mouse.

(defun mouse-choose-completion (event)
  "Click on an alternative in the `*Completions*' buffer to choose it."
  (interactive "e")
  (let ((buffer (window-buffer))
        choice)

	  (setq choice (buffer-substring beg (point))))))
    (let ((owindow (selected-window)))
      (select-window (posn-window (event-start event)))
      (bury-buffer)
      (select-window owindow))
    (choose-completion-string choice buffer)))

;; Font selection.

(defun font-menu-add-default ()
  (let* ((default (cdr (assq 'font (frame-parameters (selected-frame)))))