Mercurial > emacs
comparison lisp/mouse.el @ 6163:f349bcb0ff59
(mouse-choose-completion): Use that as the buffer to edit.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 02 Mar 1994 23:26:06 +0000 |
| parents | e7c900a464d3 |
| children | c2bb4c368553 |
comparison
equal
deleted
inserted
replaced
| 6162:b7172feaf0b9 | 6163:f349bcb0ff59 |
|---|---|
| 1204 (interactive "e") | 1204 (interactive "e") |
| 1205 (let ((buffer (window-buffer)) | 1205 (let ((buffer (window-buffer)) |
| 1206 choice) | 1206 choice) |
| 1207 (save-excursion | 1207 (save-excursion |
| 1208 (set-buffer (window-buffer (posn-window (event-start event)))) | 1208 (set-buffer (window-buffer (posn-window (event-start event)))) |
| 1209 (if completion-reference-buffer | |
| 1210 (setq buffer completion-reference-buffer)) | |
| 1209 (save-excursion | 1211 (save-excursion |
| 1210 (goto-char (posn-point (event-start event))) | 1212 (goto-char (posn-point (event-start event))) |
| 1211 (skip-chars-backward "^ \t\n") | 1213 (skip-chars-backward "^ \t\n") |
| 1212 (let ((beg (point))) | 1214 (let ((beg (point))) |
| 1213 (skip-chars-forward "^ \t\n") | 1215 (skip-chars-forward "^ \t\n") |
| 1214 (setq choice (buffer-substring beg (point)))))) | 1216 (setq choice (buffer-substring beg (point)))))) |
| 1215 (set-buffer buffer) | 1217 (set-buffer buffer) |
| 1216 (mouse-delete-max-match choice) | 1218 (mouse-delete-max-match choice) |
| 1217 (insert choice) | 1219 (insert choice) |
| 1220 ;; Update point in the window that BUFFER is showing in. | |
| 1221 (let ((window (get-buffer-window buffer t))) | |
| 1222 (set-window-point window (point))) | |
| 1218 (and (equal buffer (window-buffer (minibuffer-window))) | 1223 (and (equal buffer (window-buffer (minibuffer-window))) |
| 1219 (minibuffer-complete-and-exit)))) | 1224 (minibuffer-complete-and-exit)))) |
| 1220 | 1225 |
| 1221 ;; Font selection. | 1226 ;; Font selection. |
| 1222 | 1227 |