;ELC ;;; compiled by jwz@thalidomide on Thu May 5 16:29:18 1994 ;;; from file /th/jwz/emacs19/lisp/x11/x-mouse.el ;;; emacs version 19.10 Lucid (beta20). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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"))) (error "This file was compiled for Emacs 19.")) (byte-code "! # #" [require mouse define-key global-map button2 x-set-point-and-insert-selection (control button2) x-mouse-kill] 4) (fset 'x-mouse-kill #[(event) "`\n!`{ ! !)`\")" [old-point mouse-set-point event s x-own-clipboard x-store-cutbuffer kill-region] 3 "\ Kill the text between the point and mouse and copy it to the clipboard and to the cut buffer" "@e"]) (fset 'x-insert-selection #[(&optional check-cutbuffer-p move-point-event) "Ï !   !`!c)" [check-cutbuffer-p nil (x-get-selection) ((error)) x-get-cutbuffer error "No selection or cut buffer available" x-get-selection text move-point-event mouse-set-point push-mark] 3 "\ Insert the current selection into buffer at point." nil]) (fset 'x-set-point-and-insert-selection #[(event) "\n\"" [x-insert-selection t event] 3 "\ Sets point where clicked and insert the primary selection or the cut buffer" "e"]) (fset 'mouse-track-and-copy-to-cutbuffer #[(event) " !\nÇ\n:\n@!q\n@!\n!@!\"#!)\n!q\n!\n!{!)" [mouse-track event primary-selection-extent nil extent-buffer x-store-cutbuffer mapconcat identity extract-rectangle extent-start-position extent-end-position reverse "\n"] 8 "\ Makes a selection like `mouse-track', but also copies it to the cutbuffer." "e"]) (defvar x-pointer-shape nil "\ *The shape of the mouse-pointer when over text. This string may be any of the standard cursor names from appendix B of the Xlib manual (also known as the file ) minus the XC_ prefix, or it may be a font name and glyph index of the form \"FONT fontname index [[font] index]\", or it may be the name of a bitmap file acceptable to XmuLocateBitmapFile(). If it is a bitmap file, and if a bitmap file whose name is the name of the cursor with \"msk\" exists, then it is used as the mask. For example, a pair of files may be named \"cursor.xbm\" and \"cursor.xbmmsk\".") (defvar x-nontext-pointer-shape nil "\ *The shape of the mouse-pointer when over a buffer, but not over text. If this is nil, then `x-pointer-shape' is used.") (defvar x-mode-pointer-shape nil "\ *The shape of the mouse-pointer when over the modeline. If this is nil, then either `x-nontext-pointer-shape' or `x-pointer-shape' will be used.") (defvar x-selection-pointer-shape nil "\ *The shape of the mouse-pointer when over a selectable text region.") (defvar x-pointer-foreground-color nil "\ *The foreground color of the mouse pointer.") (defvar x-pointer-background-color nil "\ *The background color of the mouse pointer.") (byte-code "!!\"M" [boundp x-pointer-cache nil x-pointer-cache-key make-vector 4 #[(name fg bg screen) "? ?= \"! \"! II I I\"A!  $BB@A͡))" [fg bg pixel-name face-foreground default screen face-background x-pointer-cache-key 0 name 1 2 3 nil pointer assoc x-pointer-cache tail copy-sequence make-cursor 10] 7]] 3) (fset 'x-track-pointer #[(event) " !\n! ! \n\n! !\n\n# ! ЪЪ\nѪҪѪӪҪڏ܏  \"Չ\"q \"\n \n\n!#  \"). Շ" [event-window event window window-screen event-screen selected-screen screen window-buffer buffer event-point point extent-at highlight extent event-glyph glyph x-selection-pointer-shape x-pointer-shape x-nontext-pointer-shape x-mode-pointer-shape var nil pointer scrollbar-pointer c (byte-code " J\n $ \"" [x-pointer-cache var x-pointer-foreground-color x-pointer-background-color screen pointer x-set-screen-pointer] 5) ((error (x-track-pointer-damage-control c var))) (byte-code "\n $  \"" [x-scrollbar-pointer-shape x-pointer-cache x-pointer-foreground-color x-pointer-background-color screen pointer scrollbar-pointer x-set-scrollbar-pointer] 5) ((error (byte-code " \"" [x-track-pointer-damage-control c x-scrollbar-pointer-shape] 3))) highlight-extent t mouse-grabbed-buffer run-hook-with-args mode-motion-hook] 5 "\ For use as the value of `mouse-motion-handler'. This implements `x-pointer-shape' and related variables, as well as extent highlighting, and `mode-motion-hook'."]) (byte-code "MM\"!ȇ" [x-track-pointer-damage-control #[(c var) "A@;A@A@\" L 8#A@ɘ ! !\" L 8#A@Ϙ8 8 \" L 8#@=@J@J;@L@8#A[\")@A\"" [c "unknown cursor" string-match "xpm\\|XPM\\|pixmap\\|bitmap" var nil error "%S was %S, which is an invalid X cursor name. Reset." 2 "unrecognised color" x-valid-color-name-p x-pointer-foreground-color x-pointer-background-color "got %S and I don't know why!" "%S was %S, which was an invalid color name. Reset." "couldn't allocate color" "%S was %S, which cannot be allocated. Reset." wrong-type-argument (x-pointer-foreground-color x-pointer-background-color x-pointer-shape x-nontext-pointer-shape x-mode-pointer-shape x-scrollbar-pointer-shape) rest "%S was %S, not a string. Reset." signal] 6] x-set-pointer-for-gc #[nil "=\nÉǏ" [window-system x x-gc-pointer-shape nil gc-message error (byte-code " \n $" [x-pointer-cache x-gc-pointer-shape x-pointer-foreground-color x-pointer-background-color selected-screen gc-message] 5) ((error (byte-code "! q c \" ) !)" [nil gc-message get-buffer-create " *gc-pointer-error*" b erase-buffer "Garbage collecting... ERROR setting GC pointer: " display-error error buffer-string kill-buffer] 3)))] 3] add-hook pre-gc-hook boundp x-pointers-initialized nil] 3) (fset 'x-initialize-pointer-shape #[(screen) " $ $\n $ $ $ $ $ $݇" [x-pointers-initialized x-get-resource "textPointer" "Cursor" string screen "xterm" x-pointer-shape "selectionPointer" "top_left_arrow" x-selection-pointer-shape "spacePointer" "crosshair" x-nontext-pointer-shape "modeLinePointer" "sb_v_double_arrow" x-mode-pointer-shape "gcPointer" "watch" x-gc-pointer-shape "scrollbarPointer" x-scrollbar-pointer-shape "pointerColor" "Foreground" x-pointer-foreground-color "pointerBackground" "Background" x-pointer-background-color t nil] 5 "\ Initializes the mouse-pointers of the given screen from the resource database."]) (provide 'x-mouse)