home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / mouse.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  11.9 KB  |  80 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:44:40 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/mouse.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê┬├!ê─┼╞\"ê─╟╚\"ê─╔╩\"ê─╦╠\"ç" [provide mouse require mode-motion global-set-key button1 mouse-track (shift button1) mouse-track-adjust (control button1) mouse-track-insert (control shift button1) mouse-track-delete-and-insert] 3)
  14. (defun mouse-select nil "\
  15. Select Emacs window the mouse is on." (interactive "@"))
  16. (fset 'mouse-delete-window #[nil "└ ç" [delete-window] 1 "\
  17. Delete the Emacs window the mouse is on." "@"])
  18. (fset 'mouse-keep-one-window #[nil "└ ç" [delete-other-windows] 1 "\
  19. Select Emacs window mouse is on, then kill all other Emacs windows." "@"])
  20. (fset 'mouse-select-and-split #[nil "└┴!ç" [split-window-vertically nil] 2 "\
  21. Select Emacs window mouse is on, then split it vertically in half." "@"])
  22. (fset 'mouse-set-point #[(event) "└    !┬    !ë¼ä┼╞!ê╟ !ê ½ë ╚V½ä b¬Ä╔╩    !╦ !A@Z!ê╠*ç" [event-window event event-point pos window error "not in a window" select-window 0 move-to-window-line event-y window-edges nil] 5 "\
  23. Select Emacs window mouse is on, and move point to mouse position." "@e"])
  24. (fset 'mouse-eval-last-sexpr #[(event) "è└    !ê┬├!)ç" [mouse-set-point event eval-last-sexp nil] 2 nil "@e"])
  25. (fset 'mouse-line-length #[(event) "è└    !ê┬├─ê`┼yê`Z\"ê)╞╟!ç" [mouse-set-point event message "Line length: %d" nil 0 sleep-for 1] 4 "\
  26. Print the length of the line indicated by the pointer." "@e"])
  27. (fset 'mouse-set-mark #[(event) "`┴Ä┬ !ê─┼╞\"ê╟╚!*ç" [point-save ((goto-char point-save)) mouse-set-point event push-mark nil t sit-for 1] 3 "\
  28. Select Emacs window mouse is on, and set mark at mouse position.
  29. Display cursor at that position for a second." "@e"])
  30. (fset 'mouse-scroll #[(event) "è└    !ê┬├!ê─┼    !!)ç" [mouse-set-point event recenter 0 scroll-right event-x] 3 "\
  31. Scroll point to the mouse position." "@e"])
  32. (fset 'mouse-del-char #[(event) "è└    !ê┬├─\")ç" [mouse-set-point event delete-char 1 nil] 3 "\
  33. Delete the char pointed to by the mouse." "@e"])
  34. (fset 'mouse-kill-line #[(event) "è└    !ê┬├!)ç" [mouse-set-point event kill-line nil] 2 "\
  35. Kill the line pointed to by the mouse." "@e"])
  36. (fset 'narrow-window-to-region #[(m n) "èî└ ┴ =½â┬ ê bê─┼!ê└ ╞ ┼U¡é┴ =?¡î╟╚ ╔ \n\"Z╦Z!*ç" [selected-window next-window split-window m recenter 0 minibuffer-depth shrink-window window-height count-lines n 1] 5 "\
  37. Narrow window to region between point and last mark" "r"])
  38. (fset 'mouse-window-to-region #[(event) "`┴Ä┬ !ê─┼╞\"ê╟╚!*ç" [point-save ((byte-code "bê┴┬ ├ \"ç" [point-save narrow-window-to-region region-beginning region-end] 3)) mouse-set-point event push-mark nil t sit-for 1] 3 "\
  39. Narrow window to region between cursor and mouse pointer." "@e"])
  40. (defun mouse-ignore nil "\
  41. Don't do anything." (interactive))
  42. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═!¼â╬╠╧!¼â╨╤╥Mê╙╘Mê╒╓Mê╫╪Mê┘┌Mê█▄Mê▌▐Mê▀αMêßΓMêπΣMê╠σ!¼â╬%╠µ!¼â╬&╠τ!¼â╬'╠Φ!¼âΘ(╠Ω!¼âδ*╠∞!¼âΘ,╠φ!¼Äε∩!½å≡±!@¬ü╨-≥≤Mê⌠⌡Mê÷≈Mê°∙Mê·√Mêⁿ·²■#ê ü@MêüAüBMêüCüDMêüEüFMêüGüHMêüIüJMêüKüLMêüMüNMç" [mouse-scroll-down #[(nlines) "└    !ç" [scroll-down nlines] 2 nil "@p"] mouse-scroll-up #[(nlines) "└    !ç" [scroll-up nlines] 2 nil "@p"] mouse-scroll-down-full #[nil "└┴!ç" [scroll-down nil] 2 nil "@"] mouse-scroll-up-full #[nil "└┴!ç" [scroll-up nil] 2 nil "@"] mouse-scroll-move-cursor #[(nlines) "└    !ç" [move-to-window-line nlines] 2 nil "@p"] mouse-scroll-absolute #[(event) "└    !├    !┼ ╟╚Ñ]        Ñ\n_ Ñ    _ë\nbê╦╠!-ç" [event-x event position event-y length buffer-size size 1 8000000 scale-factor newpos recenter (4)] 4 nil "@e"] boundp scrolled-lines 0 scroll-speed 1 incr-scroll-down #[(event) "└┬ !ç" [0 scrolled-lines incremental-scroll scroll-speed] 2 nil "@e"] incr-scroll-up #[(event) "└┬ [!ç" [0 scrolled-lines incremental-scroll scroll-speed] 2 nil "@e"] incremental-scroll #[(n) "└ ┴\n¡½─!ê╞ ½ö╟ !ê╚ !¼à╔ !½é╩╦ !ê _T╬!ê¬R*ç" [allocate-event t down event sit-for mouse-track-scroll-delay input-pending-p next-event button-press-event-p button-release-event-p nil dispatch-event scroll-speed scrolled-lines scroll-down n] 2] incr-scroll-stop #[(event) "└┬├!ç" [0 scrolled-lines sleep-for 1] 2 nil "@e"] mouse-scroll-left #[(ncolumns) "└    !ç" [scroll-left ncolumns] 2 nil "@p"] mouse-scroll-right #[(ncolumns) "└    !ç" [scroll-right ncolumns] 2 nil "@p"] mouse-scroll-left-full #[nil "└┴!ç" [scroll-left nil] 2 nil "@"] mouse-scroll-right-full #[nil "└┴!ç" [scroll-right nil] 2 nil "@"] mouse-scroll-move-cursor-horizontally #[(ncolumns) "└    !ç" [move-to-column ncolumns] 2 nil "@p"] mouse-scroll-absolute-horizontally #[(event) "└    !├    !┼╞ ╟\"*ç" [event-x event position event-y length set-window-hscroll selected-window 33] 3 nil "@e"] mouse-track-up-time mouse-track-up-x mouse-track-up-y mouse-track-type nil mouse-track-multiclick-time 400 mouse-track-timeout-id mouse-track-scroll-delay featurep lisp-float-type read-from-string "0.3" mouse-track-set-point-in-window #[(event window) "└    !\n=¡¼├    !ë½à bê¬₧┼╞    !╟\n!A@Z!ê╚    !╔╩ \"A«ü╠V½â═ê)╬ç" [event-window event window event-point point move-to-window-line event-y window-edges event-x-pixel assoc internal-border-width x-screen-defaults 5 nil t] 5] mouse-track-scroll-and-set-point #[(event window) "└    !┬ !─┼ !╞ ÑÑA@X½öA@Z    ╩╦╠Åê═ b)¬¼`dY«º╬8SY¡¥╧\\╬8Z    ╩╨╤Åê╥ bê╙    !ê╘╒!)*ç" [window-edges window event-y-pixel event x-pixel-height selected-screen screen-height row edges delta nil (scroll-down delta) ((error)) window-start 3 2 (scroll-up delta) ((error)) window-end vertical-motion backward-char 1] 4] mouse-track-set-point-and-timeout #[(event window) "└    \n\"?¡Å ¼ê─╞╟    !#╚    \n\"ç" [mouse-track-set-point-in-window event window mouse-track-timeout-id add-timeout mouse-track-scroll-delay mouse-track-scroll-undefined copy-event mouse-track-scroll-and-set-point] 5] mouse-track-cleanup-timeout #[nil "¡ç┴!ê┬ëç" [mouse-track-timeout-id disable-timeout nil] 2] mouse-track-beginning-of-word #[(symbolp) "┴=½â┬¬ç¼â├¬ü─┼o½â╚¬╗╔!½ƒ╩ êo¼ï╔!½à╩ ê¬ro½ç╔!?¡Ü╚u¬û╔!¡É╩ ê╔!½à╩ ê¬u╚u*ç" [symbolp t "\\w\\|\\s_\\|\\s'" "\\w" "[^     \n]" "[     ]" white-space word-constituent nil looking-at backward-char] 2] put byte-optimizer byte-compile-inline-expand mouse-track-end-of-word #[(symbolp) "┴=½â┬¬ç¼â├¬ü─┼╚!½ï╚!¡û╔uê¬u╚!¡ï╚!¡à╔uê¬u*ç" [symbolp t "\\w\\|\\s_\\|\\s'" "\\w" "[^     \n]" "[     ]" white-space word-constituent looking-at nil] 2] mouse-track-normalize-point #[(type forwardp) "┴=½à┬├─Åç┼=¡ï½â┬ç╟yê┬ç" [type word nil (byte-code "½ä┴┬!ç┬┬ë=½â─¬ç ¼â┼¬ü╞╟    o½â╩¬╗╦    !½ƒ╠ êo¼ï╦    !½à╠ ê¬ro½ç╦    !?¡Ü╩u¬û╦!¡É╠ ê╦!½à╠ ê¬u╩u+ç" [forwardp mouse-track-end-of-word t symbolp "\\w\\|\\s_\\|\\s'" "\\w" "[^     \n]" "[     ]" white-space word-constituent nil looking-at backward-char] 2) ((error)) line forwardp 0] 3] mouse-track-next-move #[(min-anchor max-anchor extent) "`X½â    ¬ü├ `\nV\"ê\n`X½ê┼\n`#¬å┼`\n#)ç" [min-anchor max-anchor anchor mouse-track-normalize-point mouse-track-type set-extent-endpoints extent] 4] mouse-track-has-selection-p #[(buffer) "┴=½ä┬ ¡è├ !¡à╞ !=ç" [window-system x x-selection-owner-p extentp primary-selection-extent buffer extent-buffer] 3] mouse-track-anchor #[(adjust previous-point) "½┤┴p!½¼┬ !─ !`W½â¬ÿ`V½ä¬Å`Z`ZV½ä¬ü*çç`ç" [adjust mouse-track-has-selection-p extent-start-position primary-selection-extent extent-end-position end start previous-point] 3] mouse-track-next-type #[(type) "¼é┴ç┴=½é┬ç┬=½é├ç├=¡ü┴ç" [type char word line] 2] mouse-track-select #[(event adjust face) "└    !¼à┬├ \"ê┼    !╟╚ë╔!#\n╦ ════╥\n\"ê╘\nT\"ê╓    !ZW½ÿ┘    !U½É█    !U½ê▌!¬ç¼âαß!ê`Γ    \"êπ\"$è$bêσ═\"ê`)è$bêσ╦\"ê`))&½àτ ê¬ë(Θ=½âΩ êδÄ ½φ∞\n#êφ    !êε ê∩    !½êΓ    \"ê¬_≡    !½æ±    !≥=½èΓ≤    !\"ê¬I⌠    !½ñ╓    !┘    !█    !⌡    \"ê∞\n#ê═ë ¬\"÷    !½å┬≈!ꬰ    !ê¬∙\n!·\n!B).ç" [button-press-event-p event error "%s must be invoked by a mouse-press" this-command event-window window make-extent 1 window-buffer extent t mouse-down nil min-anchor max-anchor result previous-point set-extent-face face set-extent-priority mouse-highlight-priority event-timestamp mouse-track-up-time mouse-track-multiclick-time event-x mouse-track-up-x event-y mouse-track-up-y mouse-track-next-type mouse-track-type adjust char select-window mouse-track-set-point-and-timeout mouse-track-anchor anchor mouse-track-normalize-point zmacs-regions zmacs-deactivate-region window-system x x-disown-selection ((byte-code "└    !ê┬ ç" [delete-extent extent mouse-track-cleanup-timeout] 2)) mouse-track-next-move next-event mouse-track-cleanup-timeout motion-event-p timeout-event-p event-function mouse-track-scroll-undefined event-object button-release-event-p mouse-track-set-point-in-window key-press-event-p "Selection aborted" dispatch-event extent-start-position extent-end-position] 6] mouse-track-maybe-own-selection #[(pair type) "@Aë    U¼î├`\nU½â    ¬ü\n!ê ½ì\n    U¼¬┼ ê╞¬ó╔=½£\n    U½ç╩ !ê¬É╠═ \n╬ô═     ╬ôB \"ê╔=¡ï\n    U?¡à╧\n    {!*ç" [pair end start push-mark zmacs-regions zmacs-activate-region t zmacs-region-stays window-system x x-disown-selection type x-own-selection make-marker nil x-store-cutbuffer] 6]] 4)
  43. (fset 'mouse-track #[(event) "┴=½ê┬├─!!!ê`p╞╟╚#    \n     @    Aܽô\np=½ì     @ܼà╠ !ê═    ╬\"+ç" [window-system x x-focus-screen window-screen event-window event mouse-track-select nil primary-selection pair b p push-mark mouse-track-maybe-own-selection PRIMARY] 6 "\
  44. Make a selection with the mouse.  This should be bound to a mouse button.
  45. If you click-and-drag, the selection will be set to the region between the
  46. point of the initial click and the point at which you release the button.
  47. These positions need not be ordered.
  48.  
  49. If you click-and-release without moving the mouse, then the point is moved,
  50. and the selection is disowned (there will be no selection owner.)  The mark
  51. will be set to the previous position of point.
  52.  
  53. If you double-click, the selection will extend by symbols instead of by
  54. characters.  If you triple-click, the selection will extend by lines.
  55.  
  56. If you drag the mouse off the top or bottom of the window, you can select
  57. pieces of text which are larger than the visible part of the buffer; the 
  58. buffer will scroll as necessary.
  59.  
  60. The selected text becomes the current X Selection, and is also copied to the
  61. top of the kill ring.  The point will be left at the position at which you
  62. released the button, and the mark will be left at the initial click position.
  63.  
  64. See also the `mouse-track-adjust' command, on \\[mouse-track-adjust]." "e"])
  65. (fset 'mouse-track-adjust #[(event) "┴=½ê┬├─!!!ê╞╟╚╔#╩\"ç" [window-system x x-focus-screen window-screen event-window event mouse-track-maybe-own-selection mouse-track-select t primary-selection PRIMARY] 5 "\
  66. Extend the existing selection.  This should be bound to a mouse button.
  67. The selection will be enlarged or shrunk so that the point of the mouse
  68. click is one of its endpoints.  This is only really meaningful after the
  69. `mouse-track' command (\\[mouse-track]) has been executed." "e"])
  70. (fset 'mouse-track-insert #[(event &optional delete) "è└ï)ë┬Ü«é    c)ç" [((byte-code "└    ┬├#ë@ A{½ç╞ @ A\"ê)ç" [mouse-track-select event nil primary-selection pair delete kill-region] 5)) s ""] 3 "\
  71. Make a selection with the mouse and insert it at point.
  72. This is exactly the same as the `mouse-track' command on \\[mouse-track], 
  73. except that point is not moved; the selected text is immediately inserted
  74. after being selected; and the selection is immediately disowned afterwards." "*e"])
  75. (fset 'mouse-track-delete-and-insert #[(event) "└    ┬\"ç" [mouse-track-insert event t] 3 "\
  76. Make a selection with the mouse and insert it at point.
  77. This is exactly the same as the `mouse-track' command on \\[mouse-track], 
  78. except that point is not moved; the selected text is immediately inserted
  79. after being selected; and the text of the selection is deleted." "*e"])
  80.