;ELC ;;; compiled by erik@naggum.no on Sat May 18 16:43:01 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/sun-fns.el ;;; emacs version 19.30.99.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`sun-fns.el' was compiled for Emacs 19.29 or later")) (require (quote sun-mouse)) #@72 *Number of milliseconds to display alternate cursor (usually the mark) (defconst cursor-pause-milliseconds 300 (#$ . -492)) #@68 Bounce cursor to mark for cursor-pause-milliseconds and back again (defalias 'indicate-region #[(&optional pause) " ` b!\nb)" [pause cursor-pause-milliseconds point mark sit-for-millisecs] 2 (#$ . 622)]) #@29 Move point to mouse cursor. (defalias 'mouse-move-point #[(window x y) " ! \f\" >lj" [select-window window move-to-loc x y last-command (mouse-copy mouse-delete mouse-yank-move) mouse-yank-move this-command] 3 (#$ . 844)]) #@27 Set mark at mouse cursor. (defalias 'mouse-set-mark #[(window x y) " Ž\f!`\"`! b +" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window point move-to-loc x y set-mark indicate-region] 3 (#$ . 1084)]) #@51 Set mark at mouse cursor, and select that window. (defalias 'mouse-set-mark-and-select #[(window x y) " ! \f#" [select-window window mouse-set-mark x y] 4 (#$ . 1361)]) #@59 Set mark at mouse cursor, and put region in stuff buffer. (defalias 'mouse-set-mark-and-stuff #[(w x y) " \n # \"" [mouse-set-mark-and-select w x y sun-select-region region-beginning region-end] 4 (#$ . 1541)]) (byte-code "! B! B!! B‡" [boundp *mouse-drag-window* nil current-load-list *mouse-drag-x* -1 *mouse-drag-y*] 2) #@49 Move point to mouse cursor, and allow dragging. (defalias 'mouse-drag-move-point #[(window x y) " \n # \n " [mouse-move-point window x y *mouse-drag-window* *mouse-drag-x* *mouse-drag-y*] 4 (#$ . 1905)]) #@224 The up click handler that goes with mouse-drag-move-point. If mouse is in same WINDOW but at different X or Y than when mouse-drag-move-point was last executed, set the mark at mouse and put the region in the stuff buffer. (defalias 'mouse-drag-set-mark-stuff #[(window x y) " =\n \f  #" [*mouse-drag-window* window *mouse-drag-x* x *mouse-drag-y* y mouse-set-mark-and-stuff last-command this-command] 4 (#$ . 2124)]) #@68 Select window if not selected, otherwise do mouse-drag-move-point. (defalias 'mouse-select-or-drag-move-point #[(window x y) " = \f# \f#" [selected-window window mouse-drag-move-point x y mouse-select-window] 4 (#$ . 2570)]) #@26 Exchange point and mark. (defalias 'mouse-exch-pt-and-mark #[(window x y) " ! " [select-window window exchange-point-and-mark] 2 (#$ . 2812)]) #@46 Invokes last keyboard macro at mouse cursor. (defalias 'mouse-call-kbd-macro #[(window x y) " \n # " [mouse-move-point window x y call-last-kbd-macro] 4 (#$ . 2965)]) #@314 Set point and mark to text object using syntax table. The resulting region is put in the sun-window stuff buffer. Left or right Paren syntax marks an s-expression. Clicking at the end of a line marks the line including a trailing newline. If it doesn't recognize one of these it marks the character at point. (defalias 'mouse-mark-thing #[(window x y) " \n #m!`fz=)v`!v_=7!_=Ku! _lZ`T!y_`T! * \"" [mouse-move-point window x y open-line 1 char syntax 119 set-mark -1 40 mark-sexp 41 exchange-point-and-mark 0 indicate-region sun-select-region region-beginning region-end] 5 (#$ . 3143)]) #@43 Kill thing at mouse, and put point there. (defalias 'mouse-kill-thing #[(window x y) " \n # \"" [mouse-mark-thing window x y kill-region-and-unmark region-beginning region-end] 4 (#$ . 3806)]) #@114 Kill thing at mouse, leave point where it was. See mouse-mark-thing for a description of the objects recognized. (defalias 'mouse-kill-thing-there #[(window x y) " Ž\f!\f# \"+" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window mouse-mark-thing x y kill-region region-beginning region-end] 4 (#$ . 4013)]) #@100 Put thing at mouse in kill ring. See mouse-mark-thing for a description of the objects recognized. (defalias 'mouse-save-thing #[(window x y &optional quiet) " \n # \"?!" [mouse-mark-thing window x y copy-region-as-kill region-beginning region-end quiet message "Thing saved"] 4 (#$ . 4398)]) #@119 Put thing at mouse in kill ring, leave point as is. See mouse-mark-thing for a description of the objects recognized. (defalias 'mouse-save-thing-there #[(window x y &optional quiet) " Ž\f!\f$+" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window mouse-save-thing x y quiet] 5 (#$ . 4713)]) #@115 Put thing at mouse in kill ring, yank to point. See mouse-mark-thing for a description of the objects recognized. (defalias 'mouse-copy-thing #[(window x y) " \f $ lj" [not-kill last-command mouse-save-thing-there window x y t yank this-command] 5 (#$ . 5079)]) #@106 Kill thing at mouse, yank it to point. See mouse-mark-thing for a description of the objects recognized. (defalias 'mouse-move-thing #[(window x y) " \f # Ɖ" [not-kill last-command mouse-kill-thing-there window x y yank this-command] 4 (#$ . 5358)]) #@58 Yank from kill-ring at point; then cycle thru kill ring. (defalias 'mouse-yank-at-point #[(&optional window x y) "= ` W` |!c  )# " [last-command yank mark before current-kill 1 exchange-point-and-mark this-command] 2 (#$ . 5624)]) #@58 Yank from kill-ring at mouse; then cycle thru kill ring. (defalias 'mouse-yank-at-mouse #[(window x y) " \n # \n #" [mouse-move-point window x y mouse-yank-at-point] 4 (#$ . 5886)]) #@430 Context sensitive save/delete/yank. Consecutive clicks perform as follows: * first click saves region to kill ring, * second click kills region, * third click yanks from kill ring, * subsequent clicks cycle thru kill ring. If mouse-move-point is performed after the first or second click, the next click will do a yank, etc. Except for a possible mouse-move-point, this command is insensitive to mouse location. (defalias 'mouse-save/delete/yank #[(&optional window x y) "> = \"lj \"!É" [last-command (mouse-delete yank mouse-yank-move) mouse-yank-at-point mouse-copy kill-region region-beginning region-end mouse-delete this-command copy-region-as-kill message "Region saved"] 3 (#$ . 6079)]) #@49 Splits the window horizontally at mouse cursor. (defalias 'mouse-split-horizontally #[(window x y) " Ž\f!T!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window split-window-horizontally x] 2 (#$ . 6828)]) #@50 Split the window vertically at the mouse cursor. (defalias 'mouse-split-vertically #[(window x y) " Ž\f!T!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window split-window-vertically y] 2 (#$ . 7104)]) #@38 Selects the window, restoring point. (defalias 'mouse-select-window #[(window x y) " !" [select-window window] 2 (#$ . 7377)]) #@49 Deletes all windows except the one mouse is in. (defalias 'mouse-delete-other-windows #[(window x y) " !" [delete-other-windows window] 2 (#$ . 7512)]) #@33 Deletes the window mouse is in. (defalias 'mouse-delete-window #[(window x y) " !" [delete-window window] 2 (#$ . 7672)]) #@41 Invokes undo in the window mouse is in. (defalias 'mouse-undo #[(window x y) " Ž\f! *" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window undo] 2 (#$ . 7802)]) #@28 Scrolls the window upward. (defalias 'mouse-scroll-up #[(window x y) " Ž\f!!!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window move-to-window-line 1 scroll-up nil] 2 (#$ . 8030)]) #@30 Scrolls the window downward. (defalias 'mouse-scroll-down #[(window x y) " Ž\f!!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window scroll-down nil] 2 (#$ . 8286)]) #@95 Scrolls the window proportionally corresponding to window relative X divided by window width. (defalias 'mouse-scroll-proportional #[(window x y) " Ž\f! SYdb'e deZ S_\\by *" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window x window-width 0 what-cursor-position] 4 (#$ . 8522)]) #@53 Scrolls the line at the mouse cursor up to the top. (defalias 'mouse-line-to-top #[(window x y) " Ž\f!!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window scroll-up y] 2 (#$ . 8883)]) #@48 Scrolls the top line down to the mouse cursor. (defalias 'mouse-top-to-line #[(window x y) " Ž\f!!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window scroll-down y] 2 (#$ . 9139)]) #@53 Scrolls the line at the mouse cursor to the bottom. (defalias 'mouse-line-to-bottom #[(window x y) " Ž\f! Z\\!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window scroll-up y 2 window-height] 4 (#$ . 9392)]) #@49 Scrolls the bottom line up to the mouse cursor. (defalias 'mouse-bottom-to-line #[(window x y) " Ž\f! Z\\!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window scroll-down y 2 window-height] 4 (#$ . 9673)]) #@53 Scrolls the line at the mouse cursor to the middle. (defalias 'mouse-line-to-middle #[(window x y) " Ž\f! ȥZZ!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window scroll-up y window-height 2 -1] 4 (#$ . 9952)]) #@53 Scrolls the line at the middle to the mouse cursor. (defalias 'mouse-middle-to-line #[(window x y) " Ž\f! ǥZZ!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window scroll-up window-height 2 y 1] 3 (#$ . 10237)]) (byte-code "\nB\nB\nB\nB\n\nB" [[("Vertically" mouse-expand-vertically *menu-window*) ("Horizontally" mouse-expand-horizontally *menu-window*)] expand-menu current-load-list [("This One" delete-window *menu-window*) ("All Others" delete-other-windows *menu-window*)] delete-window-menu [("Text Region" mouse-help-region *menu-window* *menu-x* *menu-y* (quote text)) ("Scrollbar" mouse-help-region *menu-window* *menu-x* *menu-y* (quote scrollbar)) ("Modeline" mouse-help-region *menu-window* *menu-x* *menu-y* (quote modeline)) ("Minibuffer" mouse-help-region *menu-window* *menu-x* *menu-y* (quote minibuffer))] mouse-help-menu [("Suspend" suspend-emacstool) ("Quit" save-buffers-kill-emacs)] emacs-quit-menu [("Emacs Menu") ("Stuff Selection" sun-yank-selection) ("Expand" . expand-menu) ("Delete Window" . delete-window-menu) ("Previous Buffer" mouse-select-previous-buffer *menu-window*) ("Save Buffers" save-some-buffers) ("List Directory" list-directory nil) ("Dired" dired nil) ("Mouse Help" . mouse-help-menu) ("Quit" . emacs-quit-menu)] emacs-menu] 2) #@33 Pop-up menu of editor commands. (defalias 'emacs-menu-eval #[(window x y) " \nT S$" [sun-menu-evaluate window x y emacs-menu] 5 (#$ . 11607)]) (defalias 'mouse-expand-horizontally #[(window) " Ž\f!\" *" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window enlarge-window 4 t update-display] 3]) (defalias 'mouse-expand-vertically #[(window) " Ž\f!!*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window enlarge-window 4] 2]) #@65 Switch buffer in mouse window to most recently selected buffer. (defalias 'mouse-select-previous-buffer #[(window) " Ž\f! !*" [selected-window OriginallySelectedWindow ((select-window OriginallySelectedWindow)) select-window window switch-to-buffer other-buffer] 2 (#$ . 12167)]) (byte-code "\nB" [[("Minibuffer" message "Just some miscellaneous minibuffer commands") ("Stuff" sun-yank-selection) ("Do-It" exit-minibuffer) ("Abort" abort-recursive-edit) ("Suspend" suspend-emacs)] minibuffer-menu current-load-list] 2) #@26 Pop-up menu of commands. (defalias 'minibuffer-menu-eval #[(window x y) " \n S$" [sun-menu-evaluate window x y minibuffer-menu] 5 (#$ . 12706)]) (defalias 'mini-move-point #[(window x y) " \nZ#" [mouse-move-point window x 6 0] 4]) (defalias 'mini-set-mark-and-stuff #[(window x y) " \nZ#" [mouse-set-mark-and-stuff window x 6 0] 4]) #@44 Calls Buffer-menu-buffer from mouse click. (defalias 'Buffer-at-mouse #[(w x y) "" [((byte-code " \n #y!" [mouse-move-point w x y 0 Buffer-menu-buffer t] 4))] 1 (#$ . 13056)]) #@28 Bury the indicated buffer. (defalias 'mouse-buffer-bury #[(w x y) "\n \f#!" [bury-buffer Buffer-at-mouse w x y] 5 (#$ . 13248)]) #@46 Put the indicated buffer in selected window. (defalias 'mouse-buffer-select #[(w x y) "\n \f#! " [switch-to-buffer Buffer-at-mouse w x y list-buffers] 5 (#$ . 13386)]) #@34 mark indicated buffer for delete (defalias 'mouse-buffer-delete #[(w x y) "" [((byte-code " \n # " [mouse-move-point w x y Buffer-menu-delete] 4))] 1 (#$ . 13565)]) #@32 execute buffer-menu selections (defalias 'mouse-buffer-execute #[(w x y) "" [((byte-code " \n # " [mouse-move-point w x y Buffer-menu-execute] 4))] 1 (#$ . 13743)]) #@311 Call this to enable mouse selections in *Buffer List* LEFT puts the indicated buffer in the selected window. MIDDLE buries the indicated buffer. RIGHT marks the indicated buffer for deletion. MIDDLE-RIGHT deletes the marked buffers. To unmark a buffer marked for deletion, select it with LEFT. (defalias 'enable-mouse-in-buffer-list #[nil "" [((byte-code " q\"\"\"\"" [list-buffers "*Buffer List*" local-set-mouse (text middle) mouse-buffer-bury (text left) mouse-buffer-select (text right) mouse-buffer-delete (text middle right) mouse-buffer-execute] 3))] 1 (#$ . 13922)]) (byte-code "\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"@\"A\"B\"C\"D\"E\"F\"G\"H\"I\"J\"K\"L\"MN\"OP\"QR\"SP\"TU\"VW\"XP\"YZ\"[\\\"]P\"^P\"_\"`\"ab\"cd\"ef\"gh\"ij\"kl\"mn\"o\"p\"qr!" [global-set-mouse (text left) mouse-drag-move-point (text up left) mouse-drag-set-mark-stuff (text shift left) mouse-exch-pt-and-mark (text double left) (text middle) mouse-set-mark-and-stuff (text right) emacs-menu-eval (text shift right) (sun-yank-selection) (text double right) (sun-yank-selection) (text shift middle) mouse-save/delete/yank (text double middle) (text control middle) mouse-save-thing-there (text control right) mouse-kill-thing-there (text control left) mouse-yank-at-point (text control middle left) mouse-copy-thing (text control right left) mouse-move-thing (text control right middle) mouse-mark-thing (text shift control meta right) mouse-help-region (text double control meta right) (text meta left) mouse-line-to-top (text meta shift left) mouse-line-to-bottom (text meta double left) (text meta middle) mouse-line-to-middle (text meta shift middle) mouse-middle-to-line (text meta double middle) (text meta control middle) mouse-split-vertically (text meta right) mouse-top-to-line (text meta shift right) mouse-bottom-to-line (text meta double right) (text meta control left) mouse-call-kbd-macro (text meta control right) mouse-undo (scrollbar left) (scrollbar shift left) (scrollbar double left) (scrollbar middle) (scrollbar shift middle) (scrollbar double middle) (scrollbar control middle) (scrollbar right) (scrollbar shift right) (scrollbar double right) (scrollbar meta left) (scrollbar meta shift left) (scrollbar meta double left) (scrollbar meta middle) (scrollbar meta shift middle) (scrollbar meta double middle) (scrollbar meta control middle) (scrollbar meta right) (scrollbar meta shift right) (scrollbar meta double right) (scrollbar shift control meta right) (scrollbar double control meta right) (modeline left) mouse-scroll-up (modeline meta left) mouse-select-window (modeline middle) mouse-scroll-proportional (modeline meta middle) (modeline control middle) mouse-split-horizontally (modeline right) mouse-scroll-down (modeline meta right) (modeline control left) mouse-delete-other-windows (modeline control right) mouse-delete-window (modeline control left right) (modeline left right) (modeline shift control meta right) (modeline double control meta right) (minibuffer left) mini-move-point (minibuffer middle) mini-set-mark-and-stuff (minibuffer shift middle) (select-previous-complex-command) (minibuffer double middle) (select-previous-complex-command) (minibuffer control middle) (next-complex-command 1) (minibuffer meta middle) (previous-complex-command 1) (minibuffer right) minibuffer-menu-eval (minibuffer shift control meta right) (minibuffer double control meta right) provide sun-fns] 3)