Gecko [ 122.154.134.11 ]

Name	Size	Permission
crisp.elc	10.33 KB	-rw-r--r--
cua-base.elc	38.36 KB	-rw-r--r--
cua-gmrk.elc	10.5 KB	-rw-r--r--
cua-rect.elc	38.43 KB	-rw-r--r--
edt-lk201.elc	1.54 KB	-rw-r--r--
edt-mapper.elc	11.76 KB	-rw-r--r--
edt-pc.elc	1.51 KB	-rw-r--r--
edt-vt100.elc	902 B	-rw-r--r--
edt.elc	63.21 KB	-rw-r--r--
keypad.elc	6.52 KB	-rw-r--r--
pc-mode.elc	1.5 KB	-rw-r--r--
pc-select.elc	30.71 KB	-rw-r--r--
tpu-edt.elc	59.56 KB	-rw-r--r--
tpu-extras.elc	10.79 KB	-rw-r--r--
tpu-mapper.elc	10.83 KB	-rw-r--r--
vi.elc	47.55 KB	-rw-r--r--
vip.elc	77.32 KB	-rw-r--r--
viper-cmd.elc	126.33 KB	-rw-r--r--
viper-ex.elc	47.32 KB	-rw-r--r--
viper-init.elc	33.31 KB	-rw-r--r--
viper-keym.elc	22.3 KB	-rw-r--r--
viper-macs.elc	18.69 KB	-rw-r--r--
viper-mous.elc	15.95 KB	-rw-r--r--
viper-util.elc	33.08 KB	-rw-r--r--
viper.elc	26.61 KB	-rw-r--r--
ws-mode.elc	20.31 KB	-rw-r--r--

Code Editor : viper-mous.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:59 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emulation/viper-mous.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(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.29")))
    (error "`viper-mous.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\302\303!\210\210\304\305!\210\306\307\310\311\312\313\314\315&\210\316	B\317\316!\204$�\320\316\310\"\210\321	B\317\321!\2044�\320\321\322 \"\210\310\207" [noninteractive current-load-list provide viper-mous require viper-util custom-declare-group viper-mouse nil "Support for Viper special mouse-bound commands." :prefix "viper-" :group viper viper-frame-of-focus default-boundp set-default viper-current-frame-saved selected-frame] 8)
#@234 *Function that determines what constitutes a word for clicking events.
Takes two parameters: a COUNT, indicating how many words to return,
and CLICK-COUNT, telling whether this is the first click, a double-click,
or a tripple-click.
(custom-declare-variable 'viper-surrounding-word-function ''viper-surrounding-word '(#$ . -1076) :type 'symbol :group 'viper-mouse)
#@92 *Time interval in millisecond within which successive mouse clicks are
considered related.
(custom-declare-variable 'viper-multiclick-timeout '(if (viper-window-display-p) (if (featurep 'xemacs) mouse-track-multi-click-time double-click-time) 500) '(#$ . -1447) :type 'integer :group 'viper-mouse)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\301\207" [current-load-list viper-current-click-count default-boundp set-default 0 viper-last-click-event-timestamp] 3)
#@20 nil
(buffer local)
(defvar viper-mouse-click-search-noerror t (#$ . 1964))
(make-variable-buffer-local 'viper-mouse-click-search-noerror)
#@20 nil
(buffer local)
(defvar viper-mouse-click-search-limit nil (#$ . 2108))
(byte-code "\301\302!\210\303B\304\303!\204�\305\303\306\"\210\307B\304\307!\204\"�\305\307\306\"\210\310B\304\310!\2041�\305\310\306\"\210\311B\304\311!\204@�\305\311\306\"\210\312B\304\312!\204O�\305\312\306\"\210\306\207" [current-load-list make-variable-buffer-local viper-mouse-click-search-limit viper-global-prefix-argument default-boundp set-default nil viper-mouse-up-search-key-parsed viper-mouse-down-search-key-parsed viper-mouse-up-insert-key-parsed viper-mouse-down-insert-key-parsed] 3)
(defalias 'viper-multiclick-p #[nil "\303\304\n\305\245	\"*?\207" [viper-multiclick-timeout nodisp val t sit-for 1000.0] 3])
(put 'viper-multiclick-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-mouse-click-window #[(click) "\211:\203
�	A@\202�\304 `\305\306F)\211@)\307!\203#�\202&�\310\311!)\207" [click event position win selected-window (0 . 0) 0 window-live-p error "Click was not over a live window"] 5])
(defalias 'viper-mouse-click-frame #[(click) "\301\302!!\207" [click window-frame viper-mouse-click-window] 3])
(put 'viper-mouse-click-frame 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-mouse-click-window-buffer #[(click) "\301\302!!\207" [click window-buffer viper-mouse-click-window] 3])
(put 'viper-mouse-click-window-buffer 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-mouse-click-window-buffer-name #[(click) "\301\302\303!!)!\207" [click buffer-name window-buffer viper-mouse-click-window] 4])
(put 'viper-mouse-click-window-buffer-name 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-mouse-click-posn #[(click) "\211:\203
�	A@\202�\303 `\304\305F)\306\n8\206,�\nA@:\203)�\nA@@\202,�\nA@)\207" [click event position selected-window (0 . 0) 0 5] 5])
(put 'viper-mouse-click-posn 'byte-optimizer 'byte-compile-inline-expand)
#@754 Returns word surrounding point according to a heuristic.
COUNT indicates how many regions to return.
If CLICK-COUNT is 1, `word' is a word in Vi sense.
If CLICK-COUNT is 2,then `word' is a Word in Vi sense.
If the character clicked on is a non-separator and is non-alphanumeric but
is adjacent to an alphanumeric symbol, then it is considered alphanumeric
for the purpose of this command.  If this character has a matching
character, such as `(' is a match for `)', then the matching character is
also considered alphanumeric.
For convenience, in Lisp modes, `-' is considered alphanumeric.

If CLICK-COUNT is 3 or more, returns the line clicked on with leading and
trailing space and tabs removed.  In that case, the first argument, COUNT,
is ignored.
(defalias 'viper-surrounding-word #[(count click-count) "\306\307\211\211\211
\310V\203U�\212\311 \210\312\n2\313=\2033�\n\203+�3\307w\210\202G�4\307w\210\202G�\314\3155\n\206=�\316\n\205E�\317\320!$\210)`\307\210`{)\202b\3076\321 \206a�\3226!)\204\330�\212\323 \210\322 )\204y�\212\324 \210\322 )\203\330�\f\325\326!\203\204�\326\202\326�\325\327!\203\216�\330\202\326�\325\331!\203\230�\332\202\326�\325\333!\203\242�\334\202\326�\325\335!\203\254�\336\202\326�\325\337!\203\266�\340\202\326�\325\341!\203\300�\342\202\326�\325\343!\203\312�\343\202\326�\321 \203\323�\344\202\326�\345g!P\325\327!\204\354�\346\347\3507!\"\203\354�\f\330P\212
\351V\203\372�\352\353!\210\202.\322\f!\203\354\f!\210\202.\f6\321 \206\3226!)\204\355 \210\202.
\351V\203*\352\353!\210\202.\354\f!\210`\3078\356V\203]\n\203A\324\351!\210\357
\351V\203P\352\315!\210\202T\360\f!\2108S\2118\2024`{)\361\356	G\307	$\210	-\207" [word-beg result skip-flag beg modifiers click-count "_" nil 2 beginning-of-line within-line strict-vi viper-skip-syntax forward "\n" viper-line-pos end viper-looking-at-separator viper-looking-at-alpha viper-backward-char-carefully viper-forward-char-carefully looking-at "\\\\" "-" "C-C-" "[][]" "][" "[()]" ")(" "[{}]" "{}" "[<>]" "<>" "[`']" "`'" "\\^" "" char-to-string string-match "lisp" symbol-name 1 viper-skip-nonseparators backward viper-skip-alpha-backward viper-skip-nonalphasep-backward 0 t viper-skip-alpha-forward set-text-properties viper-syntax-preference viper-strict-SEP-chars-sans-newline viper-strict-SEP-chars viper-SEP-char-class addl-chars major-mode count] 7 (#$ . 4028)])
#@227 Returns word surrounding the position of a mouse click.
Click may be in another window.  Current window and buffer isn't changed.
On single or double click, returns the word as determined by
`viper-surrounding-word-function'.
(defalias 'viper-mouse-click-get-word #[(click count click-count) "\306\211\211:\203�	A@\202�\307 `\310\311F)\312\n8\206/�\nA@:\203,�\nA@@\202/�\nA@*\313\314!!)\315!\204E�\316\315!\204O�\316\212\317\213,\207" [click event position click-buf click-pos click-word "" selected-window (0 . 0) 0 5 window-buffer viper-mouse-click-window natnump 1 ((byte-code "\203�	q\210b\210\n\f\"\202�\306\307!\210
\207" [click-pos click-buf viper-surrounding-word-function count click-count click-word error "Click must be over a window"] 3)) count click-count] 7 (#$ . 6440)])
#@320 Insert word clicked or double-clicked on.
With prefix argument, N, insert that many words.
This command must be bound to a mouse click.
The double-click action of the same mouse button must not be bound
(or it must be bound to the same function).
See `viper-surrounding-word' for the definition of a word in this case.
(defalias 'viper-mouse-click-insert-word #[(click arg) "\203�\306!\210\212\307	!\310=?\206�\307\n!\311=?)?\205\324�\250\2045�<\2033�@\250\2033�@\2025�\312\307	!\310=\205\324�\313\211\314\315\316\245\"*\204h�\317 \320!\203h� \321!!\202\323�\321!!\211\312V\203y� \313 \322!
#c\210\f\205\323�\f\211\"\250\203\246�\323\324\"\325\326\327\312\"S!\"!\203\246�\330\331\"!!\206\305�\"9\203\263�\"\332N\206\305�\":\205\305�\"@9\205\305�\"@\332N)\205\323�\320\f!?\205\323�\333\f!*\207" [viper-frame-of-focus viper-mouse-down-insert-key-parsed viper-mouse-up-insert-key-parsed arg interrupting-event click-count select-frame key-binding viper-mouse-catch-frame-switch viper-mouse-click-insert-word 1 nil t sit-for 1000.0 viper-read-event viper-mouse-event-p viper-event-click-count viper-mouse-click-get-word zerop logand lognot lsh 134217728 characterp event-basic-type event-symbol-elements viper-set-unread-command-events viper-multiclick-timeout nodisp val last-input-event viper-global-prefix-argument click obj] 8 (#$ . 7259) "e\nP"])
(defalias 'viper-mouse-event-p #[(event) "\211\250\203�\302\303	\304\305\306\307\"S!\"!\203�\310\311	!!\2068�	9\203)�	\312N\2068�	:\2058�	@9\2058�	@\312N)\205D�\313\314\315\316!!\"\207" [event obj zerop logand lognot lsh 134217728 1 characterp event-basic-type event-symbol-elements string-match "\$mouse-\\|frame\\|screen\\|track\$" prin1-to-string viper-event-key] 8])
(defalias 'viper-event-click-count #[(click) "\211:\203�\302	8\250\203�\302	8\202�\303)\207" [click event 2 1] 3])
#@371 Find the word clicked or double-clicked on.  Word may be in another window.
With prefix argument, N, search for N-th occurrence.
This command must be bound to a mouse click.  The double-click action of the
same button must not be bound (or it must be bound to the same function).
See `viper-surrounding-word' for the details on what constitutes a word for
this command.
(defalias 'viper-mouse-click-search-word #[(click arg) "\203�\306!\210\212\307	!\310=?\206�\307\n!\311=?)?\205\335�\312\211\313 \314 \315\245\"*\204U�\316 \210\317!!\203U�\"\206H�#\"$%\320&!\202\334�\320&!\321&\312\f#\f\322V\203n�\"#\312\"#\206t�\322#\323 \210
\230\203\226�\324'!\203\226�\325'!p\232\203\226�$\311=\204\276�\326 \211'(\313)\312*+\203\256�\327
!\202\257�
\211,@\230\204\276�,B,\330\312\313\"\210#\331V\205\334�\332\322!\210\312\333\334\217\210#S\211#\202\305�+\207" [viper-frame-of-focus viper-mouse-down-search-key-parsed viper-mouse-up-search-key-parsed viper-s-string click-count click-word select-frame key-binding viper-mouse-catch-frame-switch viper-mouse-click-search-word nil t sit-for 1000.0 viper-read-event viper-mouse-event-p viper-event-click-count viper-mouse-click-get-word 1 viper-deactivate-mark markerp marker-buffer point-marker regexp-quote push-mark 0 viper-forward-word (byte-code "\306	\n#\204(�\307\212\310!\203�\311!\203�b\210\312\313!)eb\210\306	\307#\210\314\224b\210\315\316\f\"\210
\317X\203=�\320 \210\321 \210\307\207" [click-word viper-mouse-click-search-limit viper-mouse-click-search-noerror viper-local-search-start-marker viper-s-string arg search-forward nil markerp marker-buffer viper-line-pos end 0 message "Searching for: %s" 1 viper-adjust-window viper-flash-search-pattern] 4) ((error (byte-code "\306\307!\210	\230\203�\n\310=\204�\311\312\313p!#\210\202)�\311\314\313p!#\210\307\315\316!\210\317\320\321!\203@�\322!\203@�b\210\320\207" [click-word previous-search-string last-command viper-s-string arg viper-mouse-click-search-noerror beep 1 viper-mouse-click-search-word message "`%s': String not found in %s" buffer-name "`%s': Last occurrence in %s.  Back to beginning of search" sit-for 2 t nil markerp marker-buffer viper-mouse-click-search-limit viper-local-search-start-marker] 5))) previous-search-string viper-multiclick-timeout nodisp val last-input-event viper-global-prefix-argument arg last-command this-command click viper-search-start-marker viper-local-search-start-marker viper-mouse-click-search-noerror viper-mouse-click-search-limit viper-re-search viper-search-history] 5 (#$ . 9155) "e\nP"])
#@138 Catch the event of switching frame.
Usually is bound to a `down-mouse' event to work properly.  See sample
bindings in the Viper manual.
(defalias 'viper-mouse-catch-frame-switch #[(event arg) "\306	\307=\203\f�\f\211\207" [viper-frame-of-focus arg prefix-arg last-command viper-current-frame-saved this-command nil handle-switch-frame] 2 (#$ . 11782) "e\nP"])
(defalias 'viper-remember-current-frame #[(frame) "\302\303 \211\207" [last-command viper-current-frame-saved handle-switch-frame selected-frame] 2])
(put 'viper-remember-current-frame 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'viper-parse-mouse-key #[(key-var event-type) "\306!\307\211\211\211\211\211\205\216�\310>\203)�\311=\203%�\312\202[�\313\202[�\314>\203?�\311=\203;�\315\202[�\316\202[�\317>\203U�\311=\203Q�\320\202[�\321\202[�\322\323#\324>\203g�\325\202h�\326\327>\203t�\330\202u�\326\331>\203\201�\332\202\202�\326\333\334\n\f
R!!\211.\207" [key-var key-spec control-spec shift-spec meta-spec button-spec eval nil 1 up "mouse-1" "down-mouse-1" 2 "mouse-2" "down-mouse-2" 3 "mouse-3" "down-mouse-3" error "%S: invalid button number, %S" meta "M-" "" shift "S-" control "C-" vector intern key event-type] 7])
(defalias 'viper-unbind-mouse-search-key #[nil "\203�\302!\210	\203�\302	!\210\303\211\211\207" [viper-mouse-up-search-key-parsed viper-mouse-down-search-key-parsed global-unset-key nil] 3])
(defalias 'viper-unbind-mouse-insert-key #[nil "\203�\302!\210	\203�\302	!\210\303\211\211\207" [viper-mouse-up-insert-key-parsed viper-mouse-down-insert-key-parsed global-unset-key nil] 3])
(defalias 'viper-bind-mouse-search-key #[(&optional force) "\303\304\305\"\303\304\306\"\203�	\204�\307\207\n\204+�\310!\203+�\310!\311=\204+�\312\313\"\207\n\204B�\310	!\203B�\310	!\314=\204B�\312\313	\"\207\315\311\"\210\315	\314\"\207" [viper-mouse-up-search-key-parsed viper-mouse-down-search-key-parsed force viper-parse-mouse-key viper-mouse-search-key up down nil key-binding viper-mouse-click-search-word message "%S already bound to a mouse event.  Viper mouse-search feature disabled" viper-mouse-catch-frame-switch global-set-key] 3])
(defalias 'viper-bind-mouse-insert-key #[(&optional force) "\303\304\305\"\303\304\306\"\203�	\204�\307\207\n\204+�\310!\203+�\310!\311=\204+�\312\313\"\207\n\204B�\310	!\203B�\310	!\314=\204B�\312\313	\"\207\315\311\"\210\315	\314\"\207" [viper-mouse-up-insert-key-parsed viper-mouse-down-insert-key-parsed force viper-parse-mouse-key viper-mouse-insert-key up down nil key-binding viper-mouse-click-insert-word message "%S already bound to a mouse event.  Viper mouse-insert feature disabled" viper-mouse-catch-frame-switch global-set-key] 3])
(defalias 'viper-reset-mouse-search-key #[(symb val) "\302 \210	L\210\303\304!\207" [symb val viper-unbind-mouse-search-key viper-bind-mouse-search-key force] 2])
(defalias 'viper-reset-mouse-insert-key #[(symb val) "\302 \210	L\210\303\304!\207" [symb val viper-unbind-mouse-insert-key viper-bind-mouse-insert-key force] 2])
#@429 *Key used to click-search in Viper.
This must be a list that specifies the mouse button and modifiers.
The supported modifiers are `meta', `shift', and `control'.
For instance, `(meta shift 1)' means that holding the meta and shift
keys down and clicking on a word with mouse button 1
will search for that word in the buffer that was current before the click.
This buffer may be different from the one where the click occurred.
(custom-declare-variable 'viper-mouse-search-key ''(meta shift 1) '(#$ . -14860) :type '(list (set :inline t :tag "Modifiers" :format "%t: %v" (const :format "%v " meta) (const :format "%v " shift) (const control)) (integer :tag "Button")) :set 'viper-reset-mouse-search-key :group 'viper-mouse)
#@441 *Key used to click-insert in Viper.
Must be a list that specifies the mouse button and modifiers.
The supported modifiers are `meta', `shift', and `control'.
For instance, `(meta shift 2)' means that holding the meta and shift keys
down, and clicking on a word with mouse button 2, will insert that word
at the cursor in the buffer that was current just before the click.
This buffer may be different from the one where the click occurred.
(custom-declare-variable 'viper-mouse-insert-key ''(meta shift 2) '(#$ . -15591) :type '(list (set :inline t :tag "Modifiers" :format "%t: %v" (const :format "%v " meta) (const :format "%v " shift) (const control)) (integer :tag "Button")) :set 'viper-reset-mouse-insert-key :group 'viper-mouse)

${this.title}

Code Editor : viper-mous.elc