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 : cua-gmrk.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:57 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emulation/cua-gmrk.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 "`cua-gmrk.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\304\"\210\310B\302\310!\204K�\303\310\304\"\210\304\207" [current-load-list cua--global-mark-active default-boundp set-default nil cua--global-mark-marker cua--global-mark-overlay cua--global-mark-initialized cua--orig-blink-cursor-interval] 3)
(defalias 'cua--deactivate-global-mark #[(&optional msg) "\203\n�\306!\210\307\310	!\203�	\307\211\223\210\n\203�\n\307\307
\205&�\311\312!\207" [cua--global-mark-overlay cua--global-mark-marker cua--orig-blink-cursor-interval blink-cursor-interval cua--global-mark-active msg delete-overlay nil markerp message "Global Mark Cleared"] 3])
(defalias 'cua--activate-global-mark #[(&optional msg) "\306!\204	�\307 m\203�\310c\210\311u\210`\312\223\210\313	!\203(�\314	``T#\210\2024�\315``T\"\316	\317\320#\210\n\203@�\204@�\f\n\321\205J�\322\323!\207" [cua--global-mark-marker cua--global-mark-overlay cua-global-mark-blink-cursor-interval cua--orig-blink-cursor-interval blink-cursor-interval cua--global-mark-active markerp make-marker " " -1 nil overlayp move-overlay make-overlay overlay-put face cua-global-mark t message "Global Mark Set" msg] 4])
(defalias 'cua--global-mark-active #[nil "\205�\302	!\203�\303	!\206�\304\305!\210\305\207" [cua--global-mark-active cua--global-mark-marker markerp marker-buffer cua--deactivate-global-mark nil] 2])
#@435 Set or cancel the global marker.
When the global marker is set, CUA cut and copy commands will automatically
insert the deleted or copied text before the global marker, even when the
global marker is in another buffer.
If the global marker isn't set, set the global marker at point in the current
buffer.  Otherwise jump to the global marker position and cancel it.
With prefix argument, don't jump to global mark when cancelling it.
(defalias 'cua-toggle-global-mark #[(stay) "\204�\304 \210\305 \204�	\204�\306\307!\207\310 \210\311\312!\207\n\204(�\313\314!!\210b\210\315\307!\207" [cua--global-mark-initialized buffer-read-only stay cua--global-mark-marker cua--init-global-mark cua--global-mark-active cua--activate-global-mark t ding message "Cannot set global mark in read-only buffer" pop-to-buffer marker-buffer cua--deactivate-global-mark] 3 (#$ . 2102) "P"])
(defalias 'cua--insert-at-global-mark #[(str &optional msg) "\212\303!q\210\304!b\210\305	!\210\306 \210)\n\205%�\307\310\n	G\311\303!!\304!%\207" [cua--global-mark-marker str msg marker-buffer marker-position insert-for-yank cua--activate-global-mark message "%s %d to global mark in %s:%d" buffer-name] 7])
(defalias 'cua--delete-at-global-mark #[(arg &optional msg) "\212\303!q\210\304!b\210\305	!\210)\n\205!�\306\307\n	\310\303!!\304!%\207" [cua--global-mark-marker arg msg marker-buffer marker-position delete-char message "%s %d chars at global mark in %s:%d" buffer-name] 7])
#@45 Copy region to global mark buffer/position.
(defalias 'cua-copy-region-to-global-mark #[(start end) "\305 \203H�p\212\306	!\232\203#�\307\n\310\311$\312	!b\210\fc\210)\2023�\306	!q\210\312	!b\210\313\n#\210\314 \210\315\316\317\nZ!\320\306	!!\312	!$*\207\321 \210\315\322!\207" [src-buf cua--global-mark-marker start end text cua--global-mark-active marker-buffer filter-buffer-substring nil t marker-position insert-buffer-substring-as-yank cua--activate-global-mark message "Copied %d to global mark in %s:%d" abs buffer-name cua--deactivate-global-mark "No Global Mark"] 6 (#$ . 3576) "r"])
#@40 Move region to global buffer/position.
(defalias 'cua-cut-region-to-global-mark #[(start end) "\306 \203\203�p\212\307	!\232\203W�\n\310	!W\203&�\310	!W\203&�\311\312!\202\201�\313\n\314\315$\316\n!\316!\310	!b\210c\210\317 \210\310
!\310\f!|\210
\314\211\223\210\f\314\211\223+\202\201�\307	!q\210\310	!b\210\320\n#\210\311\321\322\nZ!\323\307	!!\310	!$\210\317 \210q\210\n|*\207\324 \210\311\325!\207" [src-buf cua--global-mark-marker start end p2 p1 cua--global-mark-active marker-buffer marker-position message "Can't move region into itself" filter-buffer-substring nil t copy-marker cua--activate-global-mark insert-buffer-substring "Moved %d to global mark in %s:%d" abs buffer-name cua--deactivate-global-mark "No Global Mark" text] 6 (#$ . 4183) "r"])
(defalias 'cua--copy-rectangle-to-global-mark #[(as-text) "\304 \203D�p\305 \212\306\n!q\210\307\n!b\210\203/�\2034�\310@!\210A\211\203�\311c\210\202�\312\313\"\210\314 \210\315\316\317\306\n!!\307\n!#+\207\320 \210\315\321!\207" [text src-buf cua--global-mark-marker as-text cua--global-mark-active cua--extract-rectangle marker-buffer marker-position insert-for-yank "\n" cua--insert-rectangle auto cua--activate-global-mark message "Copied rectangle to global mark in %s:%d" buffer-name cua--deactivate-global-mark "No Global Mark"] 5])
(defalias 'cua--cut-rectangle-to-global-mark #[(as-text) "\306 \203\226�p\212\307	!\232\203p�\310\311	!!\312\211\2035�\313@\314\"\315=\203.�\316\312\211\202�A\211\204�\n\203?�\317\320!\202l�\321 \322 \210\311	!b\210
\203d�\f\203i�\323\f@!\210\fA\211\203N�\324c\210\202N�\325\f\326\"\210\327 )*\202\224�\321 \322 \210\307	!q\210\311	!b\210\325\f\326\"\210)\317\330\331\307	!!\311	!#\210\327 *\207\332 \210\317\333!\207" [src-buf cua--global-mark-marker in-rect olist text as-text cua--global-mark-active marker-buffer overlays-at marker-position nil overlay-get face cua-rectangle t message "Can't move rectangle into itself" cua--extract-rectangle cua--delete-rectangle insert-for-yank "\n" cua--insert-rectangle auto cua--activate-global-mark "Moved rectangle to global mark in %s:%d" buffer-name cua--deactivate-global-mark "No Global Mark"] 6])
#@62 Copy active region/rectangle to global mark buffer/position.
(defalias 'cua-copy-to-global-mark #[nil "\304	\203\n�\305\304!\207\306 `\211\nX\204�\n\307\n\"*\207" [cua--last-killed-rectangle cua--rectangle end start nil cua--copy-rectangle-to-global-mark mark cua-copy-region-to-global-mark] 4 (#$ . 6378) nil])
#@75 Copy the following N characters in buffer to global mark buffer/position.
(defalias 'cua-copy-next-to-global-mark #[(n) "\303m\206�`\211\n\\b\210\304	`\")\207" [cua--last-killed-rectangle p n nil cua-copy-region-to-global-mark] 4 (#$ . 6704) "p"])
#@62 Move active region/rectangle to global mark buffer/position.
(defalias 'cua-cut-to-global-mark #[nil "\203�\305 \207\306\n\203�\307\306!\207\310 `\211X\204 �\f\311\f\"*\207" [buffer-read-only cua--last-killed-rectangle cua--rectangle end start cua-copy-to-global-mark nil cua--cut-rectangle-to-global-mark mark cua-cut-region-to-global-mark] 4 (#$ . 6961) nil])
#@75 Move the following N characters in buffer to global mark buffer/position.
(defalias 'cua-cut-next-to-global-mark #[(n) "\303m\206�`\211\n\\b\210\304	`\")\207" [cua--last-killed-rectangle p n nil cua-cut-region-to-global-mark] 4 (#$ . 7340) "p"])
#@54 Delete character following the global mark position.
(defalias 'cua-delete-char-at-global-mark #[(arg) "\301\302\"\207" [arg cua--delete-at-global-mark "Deleted"] 3 (#$ . 7595) "p"])
#@51 Delete character before the global mark position.
(defalias 'cua-delete-backward-char-at-global-mark #[(arg) "\301[\302\"\207" [arg cua--delete-at-global-mark "Deleted backward"] 3 (#$ . 7785) "p"])
#@60 Insert the character you type at the global mark position.
(defalias 'cua-insert-char-at-global-mark #[nil "\300\301\302 \303H!\304\"\207" [cua--insert-at-global-mark char-to-string this-single-command-keys 0 "Inserted"] 4 (#$ . 7991) nil])
#@47 Insert a newline at the global mark position.
(defalias 'cua-insert-newline-at-global-mark #[nil "\300\301!\207" [cua--insert-at-global-mark "\n"] 2 (#$ . 8238) nil])
#@57 Indent current line or rectangle to global mark column.
(defalias 'cua-indent-to-global-mark-column #[nil "\304 \205D�\305\212\306	!q\210\307	!b\210i)\n\203\"�\310\305\311#\210\202%�j\210p\306	!=\205C�\212\307	!b\210\312!\210	`\305\223\210\313``T#))\207" [col cua--global-mark-marker cua--rectangle cua--global-mark-overlay cua--global-mark-active nil marker-buffer marker-position cua--indent-rectangle t move-to-column move-overlay] 4 (#$ . 8411) "*"])
#@25 Cancel the global mark.
(defalias 'cua-cancel-global-mark #[nil "\203\n�\301 \210\202�\302 \203�\303\304!\210\305 \207" [mark-active cua-cancel cua--global-mark-active cua--deactivate-global-mark t cua--fallback] 2 (#$ . 8878) nil])
(defalias 'cua--global-mark-post-command #[nil "\305 \205S�\205S�\306\307!\210p\310	!=\203�\311\312	!!?\205S�\313 `\314\315\310	!\316\"\210\312	!b\210\311\312	!!\204L�\317\320 \321Z\211\322V\203I�\n\202J�\323!\210\324\f!\210b+\207" [cua-global-mark-keep-visible cua--global-mark-marker h p w cua--global-mark-active sit-for 0 marker-buffer pos-visible-in-window-p marker-position selected-window nil switch-to-buffer-other-window t recenter window-height 4 1 (4) select-window] 3])
(defalias 'cua--init-global-mark #[nil "\302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210\302\314\313#\210\302\315\316#\210\302\317\320#\210\302\321\320#\210\302\322\320#\210\302\323\324#\210\302\325\324#\210\302\326\327#\210\302\330\331#\210\302\332\331#\210\302\333\331#\210\302\334\335#\210\336\211\207" [cua--global-mark-keymap cua--global-mark-initialized define-key [remap copy-region-as-kill] cua-copy-to-global-mark [remap kill-ring-save] [remap kill-region] cua-cut-to-global-mark [remap yank] cua-copy-next-to-global-mark [remap keyboard-escape-quit] cua-cancel-global-mark [remap keyboard-quit] [(control 100)] cua-cut-next-to-global-mark [remap delete-backward-char] cua-delete-backward-char-at-global-mark [remap backward-delete-char] [remap backward-delete-char-untabify] [remap self-insert-command] cua-insert-char-at-global-mark [remap self-insert-iso] [t] (menu-item "sic" cua-insert-char-at-global-mark :filter cua--self-insert-char-p) [remap newline] cua-insert-newline-at-global-mark [remap newline-and-indent] "
" "	" cua-indent-to-global-mark-column t] 4])
(provide 'cua-gmrk)

${this.title}

Code Editor : cua-gmrk.elc