lisp/obsolete/sun-fns.el

49 ;; with three arguments: (window x-pos y-pos)
51 ;; Use the macro "eval-in-window" to execute a function
52 ;; in a temporarily selected window.
54 ;; If you have a function that must be called with other arguments
81 (defun mouse-move-point (window x y)
83   (select-window window)
90 (defun mouse-set-mark (&optional window x y)
92   (eval-in-window window	;; use this to get the unwind protect
100 (defun mouse-set-mark-and-select (window x y)
101   "Set mark at mouse cursor, and select that window."
102   (select-window window)
103   (mouse-set-mark window x y)
115 (defvar *mouse-drag-window* nil)
119 (defun mouse-drag-move-point (window x y)
121   (mouse-move-point window x y)
122   (setq *mouse-drag-window* window
126 (defun mouse-drag-set-mark-stuff (window x y)
131   (if (and (eq *mouse-drag-window* window)
134       (mouse-set-mark-and-stuff window x y)
138 (defun mouse-select-or-drag-move-point (window x y)
139   "Select window if not selected, otherwise do mouse-drag-move-point."
140   (if (eq (selected-window) window)
141       (mouse-drag-move-point window x y)
142     (mouse-select-window window)))
147 (defun mouse-exch-pt-and-mark (window x y)
149   (select-window window)
153 (defun mouse-call-kbd-macro (window x y)
155   (mouse-move-point window x y)
160 (defun mouse-mark-thing (window x y)
162 The resulting region is put in the sun-window stuff buffer.
166   (mouse-move-point window x y)
194 (defun mouse-kill-thing (window x y)
196   (mouse-mark-thing window x y)
200 (defun mouse-kill-thing-there (window x y)
203   (eval-in-window window
205       (mouse-mark-thing window x y)
209 (defun mouse-save-thing (window x y &optional quiet)
212   (mouse-mark-thing window x y)
217 (defun mouse-save-thing-there (window x y &optional quiet)
220   (eval-in-window window
222       (mouse-save-thing window x y quiet))))
228 (defun mouse-copy-thing (window x y)
232   (mouse-save-thing-there window x y t)
236 (defun mouse-move-thing (window x y)
240   (mouse-kill-thing-there window x y)
244 (defun mouse-yank-at-point (&optional window x y)
254 (defun mouse-yank-at-mouse (window x y)
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)
283 (defun mouse-split-horizontally (window x y)
284   "Splits the window horizontally at mouse cursor."
285   (eval-in-window window (split-window-horizontally (1+ x))))
287 (defun mouse-split-vertically (window x y)
288   "Split the window vertically at the mouse cursor."
289   (eval-in-window window (split-window-vertically (1+ y))))
291 (defun mouse-select-window (&optional window x y)
292   "Selects the window, restoring point."
293   (select-window window))
295 (defun mouse-delete-other-windows (&optional window x y)
297   (delete-other-windows window))
299 (defun mouse-delete-window (window &optional x y)
300   "Deletes the window mouse is in."
301   (delete-window window))
303 (defun mouse-undo (window x y)
304   "Invokes undo in the window mouse is in."
305   (eval-in-window window (undo)))
312 ;;; The move-to-window-line is used below because otherwise
313 ;;; scrolling a non-selected process window with the mouse, after
314 ;;; the process has written text past the bottom of the window,
316 ;;; move-to-window-line seems to force recomputing where things are.
317 (defun mouse-scroll-up (window x y)
318   "Scrolls the window upward."
319   (eval-in-window window (move-to-window-line 1) (scroll-up nil)))
321 (defun mouse-scroll-down (window x y)
322   "Scrolls the window downward."
323   (eval-in-window window (scroll-down nil)))
325 (defun mouse-scroll-proportional (window x y)
326   "Scrolls the window proportionally corresponding to window
327 relative X divided by window width."
328   (eval-in-window window
329     (if (>= x (1- (window-width)))
330 	;; When x is maximum (equal to or 1 less than window width),
339 			      (1- (window-width))))))
345 (defun mouse-line-to-top (window x y)
347   (eval-in-window window (scroll-up y)))
349 (defun mouse-top-to-line (window x y)
351   (eval-in-window window (scroll-down y)))
353 (defun mouse-line-to-bottom (window x y)
355   (eval-in-window window (scroll-up (+ y (- 2 (window-height))))))
357 (defun mouse-bottom-to-line (window x y)
359   (eval-in-window window (scroll-down (+ y (- 2 (window-height))))))
361 (defun mouse-line-to-middle (window x y)
363   (eval-in-window window (scroll-up (- y -1 (/ (window-height) 2)))))
365 (defun mouse-middle-to-line (window x y)
367   (eval-in-window window (scroll-up (- (/ (window-height) 2) y 1))))
375   ("Vertically" mouse-expand-vertically *menu-window*)
376   ("Horizontally" mouse-expand-horizontally *menu-window*))
378 (defmenu delete-window-menu
379   ("This One" delete-window *menu-window*)
380   ("All Others" delete-other-windows *menu-window*))
384    mouse-help-region *menu-window* *menu-x* *menu-y* 'text)
386    mouse-help-region *menu-window* *menu-x* *menu-y* 'scrollbar)
388    mouse-help-region *menu-window* *menu-x* *menu-y* 'modeline)
390    mouse-help-region *menu-window* *menu-x* *menu-y* 'minibuffer)
401   ("Delete Window" . delete-window-menu)
402   ("Previous Buffer" mouse-select-previous-buffer *menu-window*)
409 (defun emacs-menu-eval (window x y)
411   (sun-menu-evaluate window (1+ x) (1- y) 'emacs-menu))
413 (defun mouse-expand-horizontally (window)
414   (eval-in-window window
415     (enlarge-window 4 t)
419 (defun mouse-expand-vertically (window)
420   (eval-in-window window (enlarge-window 4)))
422 (defun mouse-select-previous-buffer (window)
423   "Switch buffer in mouse window to most recently selected buffer."
424   (eval-in-window window (switch-to-buffer (other-buffer))))
437 (defun minibuffer-menu-eval (window x y)
439   (sun-menu-evaluate window x (1- y) 'minibuffer-menu))
441 (defun mini-move-point (window x y)
443   (mouse-move-point window (- x 6) 0))
445 (defun mini-set-mark-and-stuff (window x y)
447   (mouse-set-mark-and-stuff window (- x 6) 0))
457   (save-window-excursion
468   "Put the indicated buffer in selected window."
475   (save-window-excursion
482   (save-window-excursion
489     LEFT puts the indicated buffer in the selected window.
494   (save-window-excursion
512 ;;; SHIFT makes an opposite meaning in the scroll bar.
609 ;;; Note: meta of any single button selects window.
611 (global-set-mouse '(modeline      left)	'mouse-scroll-up)
612 (global-set-mouse '(modeline meta left)	'mouse-select-window)
614 (global-set-mouse '(modeline         middle)	'mouse-scroll-proportional)
615 (global-set-mouse '(modeline meta    middle)	'mouse-select-window)
618 (global-set-mouse '(modeline      right)	'mouse-scroll-down)
619 (global-set-mouse '(modeline meta right)	'mouse-select-window)
621 ;;; control-left selects this window, control-right deletes it.
622 (global-set-mouse '(modeline control left)	'mouse-delete-other-windows)
623 (global-set-mouse '(modeline control right)	'mouse-delete-window)
626 (global-set-mouse '(modeline control left right)'mouse-select-window)
629 (global-set-mouse '(modeline left right)	'mouse-select-window)