;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:32 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-mouse.el ;;; in Emacs version 22.0.50.7 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`vm-mouse.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'vm-mouse-set-mouse-track-highlight #[(start end &optional overlay) "\2044 \203\306\n \"\307\f\310\311#\210\f)\207 \205G\312\n \"\313\f\314\315#\210\313\f\316\317#\210\313\f\311\315#\210\f)\207 \203>\320\n #\207 \205G\321\n #\207" [overlay vm-fsfemacs-p start end o vm-xemacs-p make-overlay overlay-put mouse-face highlight make-extent set-extent-property start-open t priority 10 move-overlay set-extent-endpoints] 4]) (defalias 'vm-mouse-button-2 #[(event) "\305 \203\306\307!!q\210\310!\203j\310!b\210\202j\311 \203j\306\211:\203-A@\2023\312 `\313\314F)\211@)!q\210\211:\203HA@\202N\312 `\313\314F)\315 8\206g A@:\203d A@@\202g A@)b\210\n\316=\203\206\317!\210\320 \210\321\303 )?\205\237\322\323\322!\207\n\324=\203\226\317!\210\320 \210\325 \207\n\326>\205\237\327!\207" [event position major-mode vm-follow-summary-cursor this-command vm-mouse-xemacs-mouse-p window-buffer event-window event-point vm-mouse-fsfemacs-mouse-p selected-window (0 . 0) 0 5 vm-summary-mode mouse-set-point beginning-of-line t vm-scroll-forward call-interactively vm-folders-summary-mode vm-follow-folders-summary-cursor (vm-mode vm-virtual-mode vm-presentation-mode) vm-mouse-popup-or-select] 6 nil "e"]) (defalias 'vm-mouse-button-3 #[(event) "\205\237\304 \203\305\306 !!q\210\307 !\203n\307 !b\210\202n\310 \203n\305 \211:\2031 A@\2027\311 `\312\313F)\211@)!q\210 \211:\203L A@\202R\311 `\312\313F)\314\n8\206k\nA@:\203h\nA@@\202k\nA@)b\210 \315=\203x\316 !\207 \317=\203\202\320 !\207 \321=\203\214\320 !\207 \322=\203\226\320 !\207 \323=\205\237\320 !\207" [vm-use-menus event position major-mode vm-mouse-xemacs-mouse-p window-buffer event-window event-point vm-mouse-fsfemacs-mouse-p selected-window (0 . 0) 0 5 vm-summary-mode vm-menu-popup-mode-menu vm-mode vm-menu-popup-context-menu vm-presentation-mode vm-virtual-mode mail-mode] 6 nil "e"]) (defalias 'vm-mouse-3-help #[(object) "\300\207" ["Use mouse button 3 to see a menu of options."] 1]) (defalias 'vm-mouse-get-mouse-track-string #[(event) "\212\306 \203\307\310!!q\210\311!\203k\311!b\210\202k\312 \203k\307\211:\203.A@\2024\313 `\314\315F)\211@)!q\210\211:\203IA@\202O\313 `\314\315F)\316 8\206h A@:\203e A@@\202h A@)b\210\n\203\236\317`!\320\211\203\231\321\f@\322\"\203\222\323\324\f@!\325\f@!\"\320\211\202v\fA\211\204y *\202\273 \203\272\326`\320\327#\211\205\266\330!\331!{)\202\273\320)\207" [event position vm-fsfemacs-p string o-list vm-xemacs-p vm-mouse-xemacs-mouse-p window-buffer event-window event-point vm-mouse-fsfemacs-mouse-p selected-window (0 . 0) 0 5 overlays-at nil overlay-get mouse-face vm-buffer-substring-no-properties overlay-start overlay-end extent-at highlight extent-start-position extent-end-position e] 6]) (defalias 'vm-mouse-popup-or-select #[(event) "\305 \203\225\306\211:\203A@\202\307 `\310\311F)\211@)!q\210\211:\203.A@\2024\307 `\310\311F)\312 8\206M A@:\203J A@@\202M A@)b\210\313\211\314`!\211\203\213\n\204\213\315 @\316\"\203q\317\320!\210\202\204\315 @\321\"\203\204\317\315 @\321\" @!\210 A\211\204\\\n?\205\223\322!*\207\323 \205\323\306\324!!q\210\325!\203\254\325!b\210\313\326`p\316#\203\274\320!\202\322\326`\313\321#\211\203\317\327\f\321\"\f!\202\322\322!)\207" [event position found o-list e vm-mouse-fsfemacs-mouse-p window-buffer selected-window (0 . 0) 0 5 nil overlays-at overlay-get vm-url t vm-mouse-send-url-at-event vm-mime-function vm-menu-popup-context-menu vm-mouse-xemacs-mouse-p event-window event-point extent-at extent-property] 6 nil "e"]) (defalias 'vm-mouse-send-url-at-event #[(event) "\302 \203\303\304!!q\210\305!\203\305!b\210\306\305!!\207\307 \205\234\303\211:\2030A@\2026\310 `\311\312F)\211@)!q\210\211:\203KA@\202Q\310 `\311\312F)\313 8\206j A@:\203g A@@\202j A@)b\210\306\211:\203{A@\202\201\310 `\311\312F)\313 8\206\232 A@:\203\227 A@@\202\232 A@)!\207" [event position vm-mouse-xemacs-mouse-p window-buffer event-window event-point vm-mouse-send-url-at-position vm-mouse-fsfemacs-mouse-p selected-window (0 . 0) 0 5] 6 nil "e"]) (defalias 'vm-mouse-send-url-at-position #[(pos &optional browser) "\214~\210\306 \203$\307p\310#\311\211\205 \312\n!\313\n!{\314 \"*\202[\315 \205[\311\211\211\316!\211\203F\317 @\310\"\204F A\211\2047 \205Z @\320\321\f!\322\f!\"\314 \"+)\207" [pos url e browser o o-list vm-mouse-xemacs-mouse-p extent-at vm-url nil extent-start-position extent-end-position vm-mouse-send-url vm-mouse-fsfemacs-mouse-p overlays-at overlay-get vm-buffer-substring-no-properties overlay-start overlay-end] 5]) (defalias 'vm-mouse-send-url #[(url &optional browser switches) "\305\306\"\203 \307!\207 \206\n \206\f\2119\203\" !\202: ;\205:\310\311 \"\210\312\313 \314 C\"#\210\310\315 \"*\207" [url browser vm-url-browser switches vm-url-browser-switches string-match "^mailto:" vm-mail-to-mailto-url message "Sending URL to %s..." apply vm-run-background-command append "Sending URL to %s... done"] 7]) (defalias 'vm-mouse-send-url-to-netscape #[(url &optional new-netscape new-window) "\305\306\"\203\307\310\311\312$\202\313\314!\210 \203&\315\316\n\317 C\"#\210\202G\315\320\n\317 \321\322\f\2036\323\2027\324\325RD\"#\326\232\204G\327\312\f#\210\313\330!\207" [url new-netscape vm-netscape-program vm-netscape-program-switches new-window string-match "," replace-match "%2C" nil t message "Sending URL to Netscape..." apply vm-run-background-command append vm-run-command "-remote" "openURL(" ",new-window" "" ")" 0 vm-mouse-send-url-to-netscape "Sending URL to Netscape... done"] 10]) (defalias 'vm-mouse-send-url-to-netscape-new-window #[(url) "\301\302\303#\207" [url vm-mouse-send-url-to-netscape nil t] 4]) (defalias 'vm-mouse-send-url-to-mosaic #[(url &optional new-mosaic new-window) "\303\304 \n$\207" [url new-mosaic new-window vm-mouse-send-url-to-xxxx-mosaic mosaic] 5]) (defalias 'vm-mouse-send-url-to-mmosaic #[(url &optional new-mosaic new-window) "\303\304 \n$\207" [url new-mosaic new-window vm-mouse-send-url-to-xxxx-mosaic mmosaic] 5]) (defalias 'vm-mouse-send-url-to-xxxx-mosaic #[(m-type url &optional new-mosaic new-window) "\306=\203\n\307\202 \310\311\312 \"\210\n\204\305\306=\203\313\202 \314\315 \203)\316\2022\f\2031\316\2022\317 \203:\316\202C\f\203B\316\202C\317\320*+,-\321-!\203\264\322,!q\210\320.\323 \210\324-!\210\325\326\327 !!\323 \210/\203x\330\202y\331\332\261\2100\332\261\210\3201\333\334!\203\241\334 \203\225\316\202\236\f\203\235\316\202\236\317\320\"\210\335ed\336 P\320\337%\210\340\320!\210\341,!\210 \203\302\342\343\344 #\337\232\204\304\345-\n\203\354\346\347\306=\203\3262\202\3303\350\306=\203\3444\202\34650C\"#\210\311\351 \")\207" [m-type what new-mosaic vm-xemacs-mule-p vm-xemacs-file-coding-p pid mmosaic "mMosaic" "Mosaic" message "Sending URL to %s..." "~/.mMosaic/.mosaicpid" "~/.mosaicpid" " *mosaic work*" no-conversion raw-text nil file-exists-p get-buffer-create erase-buffer insert-file-contents int-to-string string-to-int buffer-string "newwin" "goto" 10 fboundp set-buffer-file-coding-system write-region "/tmp/Mosaic." 0 set-buffer-modified-p kill-buffer vm-run-command "kill" "-USR1" t apply vm-run-background-command append "Sending URL to %s... done" coding-system-for-write coding-system-for-read work-buffer pid-file selective-display new-window url buffer-file-type vm-mmosaic-program vm-mosaic-program vm-mmosaic-program-switches vm-mosaic-program-switches] 6]) (defalias 'vm-mouse-send-url-to-mosaic-new-window #[(url) "\301\302\303#\207" [url vm-mouse-send-url-to-mosaic nil t] 4]) (defalias 'vm-mouse-send-url-to-konqueror #[(url &optional new-konqueror) "\306\307!\210\203\310\311 \312\n C\"#\210\202)\310\313\f\312 \314 D\"#\315\232\204)\316 \317\"\210\306\320!\207" [new-konqueror vm-konqueror-program vm-konqueror-program-switches url vm-konqueror-client-program vm-konqueror-client-program-switches message "Sending URL to Konqueror..." apply vm-run-background-command append vm-run-command "openURL" 0 vm-mouse-send-url-to-konqueror t "Sending URL to Konqueror... done"] 7]) (defalias 'vm-mouse-send-url-to-konqueror-new-browser #[(url) "\301\302\"\207" [url vm-mouse-send-url-to-konqueror t] 3]) (defalias 'vm-mouse-send-url-to-clipboard #[(url) "\301\302!\210\303\304!\203\304\305\"\210\202*\303\306!\203\306!\210\202*\303\307!\203*\307\305\"\210\301\310!\207" [url message "Sending URL to X Clipboard..." fboundp own-selection CLIPBOARD x-own-clipboard x-own-selection-internal "Sending URL to X Clipboard... done"] 3]) (defalias 'vm-mouse-send-url-to-safari #[(url) "\302\303!\210\304\305!\306\216rq\210\307c\210\310c\210\311c\210\312\313 \"c\210\314c\210\315ed\316#\210+\302\317!\207" [#1=#:temp-buffer url message "Sending URL to Safari..." generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "tell application \"Safari\"\n" " activate\n" " make new document at the beginning of documents\n" format " set the URL of the front document to \"%s\"\n" "end tell\n" call-process-region "/usr/bin/osascript" "Sending URL to Safari... done"] 4 "\ Sends URL to Safari, using Apple's Open Scripting Architecture."]) (defalias 'vm-mouse-install-mouse #[nil "\302 \203\303\304\"?\2054\305\304\306#\207\307 \2054\303\310\"\204%\305\311\306#\210 \2054\305\312\313#\210\305\314\315#\207" [vm-mode-map vm-popup-menu-on-mouse-3 vm-mouse-xemacs-mouse-p lookup-key button2 define-key vm-mouse-button-2 vm-mouse-fsfemacs-mouse-p [mouse-2] [mouse-2] [mouse-3] ignore [down-mouse-3] vm-mouse-button-3] 4]) (defalias 'vm-run-background-command #[(command &rest arg-list) "\302\303\304\305\304 &\207" [command arg-list apply call-process nil 0] 7]) (defalias 'vm-run-command #[(command &rest arg-list) "\302\303\304\211\211 &\207" [command arg-list apply call-process nil] 7]) (defalias 'vm-run-command-on-region #[(start end output-buffer command &rest arg-list) "\306\203 \307\202 \203\307\202\310\203\307\202# \203\"\307\202#\310\311\306\211\211\312\216\313 \314\315\306D\306&\211\316\232\203U\311\202\204\317\320!8\316\232\203k\321\322 #\210\311\202\204\212\321\323 #\210\324!q\210\325 \326\306!\210 \n)B.\207" [vm-xemacs-mule-p vm-xemacs-file-coding-p errstring status selective-display binary-process-input nil binary no-conversion t ((byte-code "\301\302\"\207" [tempfile vm-error-free-call delete-file] 3)) vm-make-tempfile-name apply call-process-region 0 7 file-attributes message "%s exited non-zero (code %s)" "%s exited non-zero (code %s)" find-file-noselect buffer-string kill-buffer coding-system-for-write coding-system-for-read tempfile start end command output-buffer arg-list] 10]) (defalias 'vm-mouse-read-file-name #[(prompt &optional dir default must-match initial history) "\212\204 \306\307!q\210\310\311 !\210\312\313\304!\210\313\305!\210\313\314!\210\313\315!\210\313\316!\210\313\317!\210\313\320!\210\313\321!\210 \f  ! \322\211\"\203i#\203i\323 \203i\212\312\324\325!\210)\326p!\210\327 \210\212\330\331\332\"\210\333 \210)\334\320!\205\206\335p!\210)\207" [dir default-directory buffer-read-only prompt vm-mouse-read-file-name-prompt vm-mouse-read-file-name-dir vm-make-work-buffer " *Files*" use-local-map make-sparse-keymap t make-local-variable vm-mouse-read-file-name-default vm-mouse-read-file-name-must-match vm-mouse-read-file-name-initial vm-mouse-read-file-name-history vm-mouse-read-file-name-return-value vm-mouse-read-file-name-should-delete-frame nil vm-multiple-frames-possible-p vm-goto-new-frame completion switch-to-buffer vm-mouse-read-file-name-event-handler local-set-key "" vm-mouse-read-file-name-quit-handler recursive-edit boundp kill-buffer default must-match initial history vm-mutable-frames vm-frame-per-completion] 4 "\ Like read-file-name, except uses a mouse driven interface. HISTORY argument is ignored."]) (defalias 'vm-mouse-read-file-name-event-handler #[(&optional string) "\306\307\211 \203- \n\232\203\307\310\311\217\210\202-\312 !\203%\313 !\202-\313 !\314\315!\210\307\316 \210`c\210\317 `\320#\210 \204V\203V`c\210\321 `\"\210\202] \203]\fc\210\322\211\261\210`\nc\210\321 `\"\210\317 `\323#\210\322\211\261\210\324\325\326\327\f!!!!\330\331\"\210\315\211+\207" [list start key-doc string default-directory vm-mouse-read-file-name-return-value "Click here for keyboard interface." nil (byte-code "\212\212\306 \n \f &) \307\310!\210)\306\207" [vm-mouse-read-file-name-prompt vm-mouse-read-file-name-dir vm-mouse-read-file-name-default vm-mouse-read-file-name-must-match vm-mouse-read-file-name-initial vm-mouse-read-file-name-history vm-keyboard-read-file-name vm-mouse-read-file-name-quit-handler t vm-mouse-read-file-name-return-value] 7) ((quit (vm-mouse-read-file-name-quit-handler))) file-directory-p expand-file-name vm-mouse-read-file-name-quit-handler t erase-buffer vm-set-region-face bold vm-mouse-set-mouse-track-highlight 10 italic vm-delete-backup-file-names vm-delete-auto-save-file-names vm-delete-index-file-names directory-files vm-show-list vm-mouse-read-file-name-event-handler buffer-read-only vm-mouse-read-file-name-prompt vm-mouse-read-file-name-default] 5]) (defalias 'vm-mouse-read-file-name-quit-handler #[(&optional normal-exit) "\203\302p!\210 \203\303\304\305\"\207\303\304\306\"\207" [vm-mouse-read-file-name-should-delete-frame normal-exit vm-maybe-delete-windows-or-frames-on throw exit nil t] 3 nil nil]) (defalias 'vm-mouse-read-string #[(prompt completion-list &optional multi-word) "\212\306\307!q\210\310\311 !\210\312\313\302!\210\313\304!\210\313\314!\210\313\315!\210\313\316!\210   \f\317\211 \203F\203F\320 \203F\212\312\321\322!\210)\323p!\210\324 \210\212\325\326\327\"\210\330 \210)\331\315!\205r <\203l\332\333 \334#\202n \335p!\210)\207" [buffer-read-only prompt vm-mouse-read-string-prompt completion-list vm-mouse-read-string-completion-list multi-word vm-make-work-buffer " *Choices*" use-local-map make-sparse-keymap t make-local-variable vm-mouse-read-string-multi-word vm-mouse-read-string-return-value vm-mouse-read-string-should-delete-frame nil vm-multiple-frames-possible-p vm-goto-new-frame completion switch-to-buffer vm-mouse-read-string-event-handler local-set-key "" vm-mouse-read-string-quit-handler recursive-edit boundp mapconcat identity " " kill-buffer vm-mutable-frames vm-frame-per-completion] 5]) (defalias 'vm-mouse-read-string-event-handler #[(&optional string) "\306\307\310\311\211 \203I \f\232\203\311\312\313\217\210\202I \232\203,\237A\237\202I \n\232\2039\314\315!\210\202I C\244\204I\314\315!\210\311\316 \210`c\210\317 `\320#\210\321\322\323#c\210\324\211\261\210`\fc\210\325 `\"\210\317 `\326#\210\324c\210\203\246` c\210\325 `\"\210\317 `\326#\210\324c\210`\nc\210\325 `\"\210\317 `\326#\210\324c\210\324c\210\327\330\"\210\315\211-\207" [list start done-doc bs-doc key-doc string "Click here for keyboard interface." " .... to go back one word." " .... when you're done." nil (byte-code "\212\304 \n#\305\306!\210)\304\207" [vm-mouse-read-string-prompt vm-mouse-read-string-completion-list vm-mouse-read-string-multi-word vm-mouse-read-string-return-value vm-keyboard-read-string vm-mouse-read-string-quit-handler t] 4) ((quit (vm-mouse-read-string-quit-handler))) vm-mouse-read-string-quit-handler t erase-buffer vm-set-region-face bold mapconcat identity " " 10 vm-mouse-set-mouse-track-highlight italic vm-show-list vm-mouse-read-string-event-handler vm-mouse-read-string-return-value vm-mouse-read-string-multi-word buffer-read-only vm-mouse-read-string-prompt vm-mouse-read-string-completion-list] 5]) (defalias 'vm-mouse-read-string-quit-handler #[(&optional normal-exit) "\203\302p!\210 \203\303\304\305\"\207\303\304\306\"\207" [vm-mouse-read-string-should-delete-frame normal-exit vm-maybe-delete-windows-or-frames-on throw exit nil t] 3 nil nil]) (provide 'vm-mouse)