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 : crisp.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/crisp.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 "`crisp.el' was compiled for Emacs 19.29 or later"))

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

(custom-declare-group 'crisp nil "Emulator for CRiSP and Brief key bindings." :prefix "crisp-" :group 'emulations)
#@124 Local keymap for CRiSP emulation mode.
All the bindings are done here instead of globally to try and be
nice to the world.
(defvar crisp-mode-map (make-sparse-keymap) (#$ . 727))
#@74 *String to display in the modeline when CRiSP emulation mode is enabled.
(custom-declare-variable 'crisp-mode-modeline-string '" *CRiSP*" '(#$ . -912) :type 'string :group 'crisp)
#@243 Track status of CRiSP emulation mode.
A value of nil means CRiSP mode is not enabled.  A value of t
indicates CRiSP mode is enabled.

Setting this variable directly does not take effect;
use either M-x customize or the function `crisp-mode'.
(custom-declare-variable 'crisp-mode 'nil '(#$ . 1099) :set #[(symbol value) "\301\203	�\302\202\n�\303!\207" [value crisp-mode 1 0] 2] :initialize 'custom-initialize-default :require 'crisp :version "20.4" :type 'boolean :group 'crisp)
#@256 *Controls overriding the normal Emacs M-x key binding in the CRiSP emulator.
Normally the CRiSP emulator rebinds M-x to `save-buffers-exit-emacs', and
provides the usual M-x functionality on the F10 key.  If this variable
is non-nil, M-x will exit Emacs.
(custom-declare-variable 'crisp-override-meta-x 't '(#$ . -1586) :type 'boolean :group 'crisp)
#@273 Controls loading of the Scroll Lock in the CRiSP emulator.
Its default behavior is to load and enable the Scroll Lock minor mode
package when enabling the CRiSP emulator.

If this variable is nil when you start the CRiSP emulator, it
does not load the scroll-all package.
(custom-declare-variable 'crisp-load-scroll-all 'nil '(#$ . 1943) :type 'boolean :group 'crisp)
#@56 Hooks to run after loading the CRiSP emulator package.
(custom-declare-variable 'crisp-load-hook 'nil '(#$ . 2317) :type 'hook :group 'crisp)
#@40 Hook run by the function `crisp-mode'.
(custom-declare-variable 'crisp-mode-hook 'nil '(#$ . 2465) :type 'hook :group 'crisp)
#@36 The version of the CRiSP emulator.
(defconst crisp-version "1.34" (#$ . 2597))
#@56 The email address of the CRiSP mode author/maintainer.
(defconst crisp-mode-help-address "gfoster@suzieq.ml.org" (#$ . 2682))
#@39 The previous value of `last-command'.
(defvar crisp-last-last-command nil (#$ . 2814))
(byte-code "\300\301\302\303!\203\f�\303\202
�\304\"\210\300\305\302\306!\203�\306\202�\307\"\210\300\310\302\311!\203*�\311\202+�\312\"\207" [defalias crisp-set-clipboard fboundp clipboard-kill-ring-save copy-primary-selection crisp-kill-region clipboard-kill-region kill-primary-selection crisp-yank-clipboard clipboard-yank yank-clipboard-selection] 4)
#@54 Compatibility function to test for an active region.
(defalias 'crisp-region-active #[nil "\207" [mark-active] 1 (#$ . 3265)])
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\325#\210\301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\301\337\340#\210\301\341\342#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\301\351\352#\210\301\353\354#\210\301\355\356#\210\301\357\360#\210\301\361\360#\210\301\362\363#\210\301\364\365#\210\301\366\367#\210\301\370\363#\210\301\371\372#\210\301\373\374#\210\301\375\344#\210\301\376\377#\210\301\201@�\201A�#\210\301\201B�\201C�#\210\301\201D�\201E�#\210\301\201F�\201G�#\210\301\201H�\201I�#\210\301\201J�\201K�#\210\301\201L�\201M�#\210\301\201N�\201O�#\210\301\201P�\201O�#\210\301\201Q�\201R�#\210\301\201S�\201T�#\210\301\201U�\201V�#\210\301\201W�\201X�#\210\301\201Y�\201Z�#\210\301\201[�\201\\�#\210\301\201]�\201^�#\210\301\201_�\201`�#\210\301\201a�\201b�#\210\301\201c�\201d�#\210\301\201e�\201f�#\210\301\201g�\201h�#\210\301\201i�\201j�#\210\301\201k�\201l�#\210\301\201m�\201n�#\210\301\201o�\201p�#\210\301\201q�\201r�#\210\301\201s�\201t�#\210\301\201u�\201v�#\210\301\201w�\201x�#\210\301\201y�\201z�#\210\301\201{�\201|�#\207" [crisp-mode-map define-key [(f1)] other-window [(f2) (down)] enlarge-window [(f2) (left)] shrink-window-horizontally [(f2) (right)] enlarge-window-horizontally [(f2) (up)] shrink-window [(f3) (down)] split-window-vertically [(f3) (right)] split-window-horizontally [(f4)] delete-window [(control f4)] delete-other-windows [(f5)] search-forward-regexp [(f19)] [(meta f5)] search-backward-regexp [(f6)] query-replace [(f7)] start-kbd-macro [(meta f7)] end-kbd-macro [(f8)] call-last-kbd-macro [(meta f8)] save-kbd-macro [(f9)] find-file [(meta f9)] load-library [(f10)] execute-extended-command [(meta f10)] compile [(SunF37)] kill-buffer [(kp-add)] crisp-copy-line [(kp-subtract)] crisp-kill-line [(f24)] [(insert)] crisp-yank-clipboard [(f16)] crisp-set-clipboard [(f20)] crisp-kill-region [(f18)] [(control f)] fill-paragraph-or-region [(meta d)] #[nil "\300 \210\301 \207" [beginning-of-line kill-line] 1 nil nil] [(meta e)] [(meta g)] goto-line [(meta h)] help [(meta i)] overwrite-mode [(meta j)] bookmark-jump [(meta l)] crisp-mark-line [(meta m)] set-mark-command [(meta n)] bury-buffer [(meta p)] crisp-unbury-buffer [(meta u)] advertised-undo [(f14)] [(meta w)] save-buffer [(meta x)] crisp-meta-x-wrapper [(meta 48)] #[nil "\300\301!\207" [bookmark-set "0"] 2 nil nil] [(meta 49)] #[nil "\300\301!\207" [bookmark-set "1"] 2 nil nil] [(meta 50)] #[nil "\300\301!\207" [bookmark-set "2"] 2 nil nil] [(meta 51)] #[nil "\300\301!\207" [bookmark-set "3"] 2 nil nil] [(meta 52)] #[nil "\300\301!\207" [bookmark-set "4"] 2 nil nil] [(meta 53)] #[nil "\300\301!\207" [bookmark-set "5"] 2 nil nil] [(meta 54)] #[nil "\300\301!\207" [bookmark-set "6"] 2 nil nil] [(meta 55)] #[nil "\300\301!\207" [bookmark-set "7"] 2 nil nil] [(meta 56)] #[nil "\300\301!\207" [bookmark-set "8"] 2 nil nil] [(meta 57)] #[nil "\300\301!\207" [bookmark-set "9"] 2 nil nil] [(shift delete)] kill-word [(shift backspace)] backward-kill-word [(control left)] backward-word [(control right)] forward-word [(home)] crisp-home [(control home)] #[nil "\300\301!\207" [move-to-window-line 0] 2 nil nil] [(meta home)] beginning-of-line [(end)] crisp-end [(control end)] #[nil "\300\301!\207" [move-to-window-line -1] 2 nil nil] [(meta end)] end-of-line] 4)
#@80 Version number of the CRiSP emulator package.
If ARG, insert results at point.
(defalias 'crisp-version #[(&optional arg) "\303P\n\203�\304	!c\202�\304	!)\207" [crisp-version foo arg "CRiSP version " message] 2 (#$ . 6919) "P"])
#@65 Set mark at the end of the line.
Arg works as in `end-of-line'.
(defalias 'crisp-mark-line #[(arg) "\302\212	\210`)\303\302\304#)\207" [newmark arg nil push-mark t] 4 (#$ . 7158) "p"])
#@168 Mark and kill line(s).
Marks from point to end of the current line (honoring prefix arguments),
copies the region to the kill ring and clipboard, and then deletes it.
(defalias 'crisp-kill-line #[(arg) "\301 \203	�\302\303!\207\304!\210\302\303!\207" [arg crisp-region-active call-interactively crisp-kill-region crisp-mark-line] 2 (#$ . 7354) "*p"])
#@180 Mark and copy line(s).
Marks from point to end of the current line (honoring prefix arguments),
copies the region to the kill ring and clipboard, and then deactivates
the region.
(defalias 'crisp-copy-line #[(arg) "\302 \203\f�\303\304!\210\202�\305!\210\303\304!\210\306\301!\205�\307\211\207" [arg mark-active crisp-region-active call-interactively crisp-set-clipboard crisp-mark-line boundp nil] 2 (#$ . 7713) "*p"])
#@229 "Home" the point, the way CRiSP would do it.
The first use moves point to beginning of the line.  Second
consecutive use moves point to beginning of the screen.  Third
consecutive use moves point to the beginning of the buffer.
(defalias 'crisp-home #[nil "\302=\203�	\302=\203�eb\210\202\"�\302=\203�\303\304!\210\202\"�\305 \210\211\207" [last-command crisp-last-last-command crisp-home move-to-window-line 0 beginning-of-line] 2 (#$ . 8144) nil])
#@214 "End" the point, the way CRiSP would do it.
The first use moves point to end of the line.  Second
consecutive use moves point to the end of the screen.  Third
consecutive use moves point to the end of the buffer.
(defalias 'crisp-end #[nil "\302=\203�	\302=\203�db\210\202%�\302=\203\"�\303\304!\210\305\210\202%�\305\210\211\207" [last-command crisp-last-last-command crisp-end move-to-window-line -1 nil] 2 (#$ . 8608) nil])
#@21 Go back one buffer.
(defalias 'crisp-unbury-buffer #[nil "\300\301\302 !@!\207" [switch-to-buffer last buffer-list] 3 (#$ . 9049) nil])
#@244 Wrapper function to conditionally override the normal M-x bindings.
When `crisp-override-meta-x' is non-nil, M-x will exit Emacs (the
normal CRiSP binding) and when it is nil M-x will run
`execute-extended-command' (the normal Emacs binding).
(defalias 'crisp-meta-x-wrapper #[nil "\203�\301 \207\302\303!\207" [crisp-override-meta-x save-buffers-kill-emacs call-interactively execute-extended-command] 2 (#$ . 9192) nil])
#@106 Toggle CRiSP/Brief emulation minor mode.
With ARG, turn CRiSP mode on if ARG is positive, off otherwise.
(defalias 'crisp-mode #[(&optional arg) "\204	�	?\202�\304!\305V\211\2054�\306\307!\203�\307\310!\210\n\203%�\311\312!\210\313\312!\2031�\314\315\316#\210\317\320!\207" [arg crisp-mode crisp-load-scroll-all crisp-mode-map prefix-numeric-value 0 fboundp transient-mark-mode t require scroll-all featurep define-key [(meta f1)] scroll-all-mode run-hooks crisp-mode-hook] 5 (#$ . 9624) "P"])
(byte-code "\303\304\305\"\210\306\307!\203�\307\305\310\311\305%\210\202,�\305	\236\204 �\312	B\305\n\236\204,�\305B\nB\313\314\315\316#\210\313\317\315\316#\210\320\321!\210\322\323!\207" [crisp-mode-map minor-mode-alist minor-mode-map-alist defalias brief-mode crisp-mode fboundp add-minor-mode crisp-mode-modeline-string nil (crisp-mode crisp-mode-modeline-string) put crisp-home CUA move crisp-end run-hooks crisp-load-hook provide crisp] 6)

${this.title}

Code Editor : crisp.elc