Lines Matching +defs:save +defs:point
69 (let ((point (point)))
74 (goto-char point)))
81 (defun mouse-move-point (window x y)
82 "Move point to mouse cursor."
93 (let ((point (point)))
95 (set-mark (point))
96 (goto-char point)
119 (defun mouse-drag-move-point (window x y)
120 "Move point to mouse cursor, and allow dragging."
121 (mouse-move-point window x y)
127 "The up click handler that goes with mouse-drag-move-point.
129 mouse-drag-move-point was last executed, set the mark at mouse
138 (defun mouse-select-or-drag-move-point (window x y)
139 "Select window if not selected, otherwise do mouse-drag-move-point."
141 (mouse-drag-move-point window x y)
148 "Exchange point and mark."
150 (exchange-point-and-mark)
155 (mouse-move-point window x y)
161 "Set point and mark to text object using syntax table.
165 If it doesn't recognize one of these it marks the character at point."
166 (mouse-move-point window x y)
168 (let* ((char (char-after (point)))
173 (set-mark (point))
184 (exchange-point-and-mark))
186 (set-mark (1+ (point)))
189 (set-mark (1+ (point)))))
195 "Kill thing at mouse, and put point there."
201 "Kill thing at mouse, leave point where it was.
204 (save-excursion
209 (defun mouse-save-thing (window x y &optional quiet)
217 (defun mouse-save-thing-there (window x y &optional quiet)
218 "Put thing at mouse in kill ring, leave point as is.
221 (save-excursion
222 (mouse-save-thing window x y quiet))))
229 "Put thing at mouse in kill ring, yank to point.
232 (mouse-save-thing-there window x y t)
237 "Kill thing at mouse, yank it to point.
244 (defun mouse-yank-at-point (&optional window x y)
245 "Yank from kill-ring at point; then cycle thru kill ring."
247 (let ((before (< (point) (mark))))
248 (delete-region (point) (mark))
250 (if before (exchange-point-and-mark)))
256 (mouse-move-point window x y)
257 (mouse-yank-at-point window x y))
259 (defun mouse-save/delete/yank (&optional window x y)
260 "Context sensitive save/delete/yank.
266 If mouse-move-point is performed after the first or second click,
267 the next click will do a yank, etc. Except for a possible mouse-move-point,
271 (mouse-yank-at-point))
292 "Selects the window, restoring point."
335 (goto-char (point-max))
337 (goto-char (+ (point-min) ; For narrowed regions.
338 (* x (/ (- (point-max) (point-min))
395 ("Quit" save-buffers-kill-emacs))
403 ("Save Buffers" save-some-buffers)
441 (defun mini-move-point (window x y)
443 (mouse-move-point window (- x 6) 0))
457 (save-window-excursion
458 (mouse-move-point w x y)
475 (save-window-excursion
476 (mouse-move-point w x y)
482 (save-window-excursion
483 (mouse-move-point w x y)
494 (save-window-excursion
516 ;;; LEFT operates at point
528 (global-set-mouse '(text left) 'mouse-drag-move-point)
540 (global-set-mouse '(text shift middle) 'mouse-save/delete/yank)
541 (global-set-mouse '(text double middle) 'mouse-save/delete/yank)
545 (global-set-mouse '(text control middle ) 'mouse-save-thing-there)
547 (global-set-mouse '(text control left) 'mouse-yank-at-point)
639 (global-set-mouse '(minibuffer left) 'mini-move-point)