HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/obsolete/
Current File : //usr/share/emacs/26.1/lisp/obsolete/crisp.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(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 (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\326#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\302\336\337#\210\302\340\341#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\361#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\364#\210\302\372\373#\210\302\374\375#\210\302\376\345#\210\302\377\201@#\210\302\201A\201B#\210\302\201C\201D#\210\302\201E\201F#\210\302\201G\201H#\210\302\201I\201J#\210\302\201K\201L#\210\302\201M\201N#\210\302\201O\201P#\210\302\201Q\201P#\210\302\201R\201S#\210\302\201T\201U#\210\302\201V\201W#\210\302\201X\201Y#\210\302\201Z\201[#\210\302\201\\\201]#\210\302\201^\201_#\210\302\201`\201a#\210\302\201b\201c#\210\302\201d\201e#\210\302\201f\201g#\210\302\201h\201i#\210\302\201j\201k#\210\302\201l\201m#\210\302\201n\201o#\210\302\201p\201q#\210\302\201r\201s#\210\302\201t\201u#\210\302\201v\201w#\210\302\201x\201y#\210\302\201z\201{#\210\302\201|\201}#\210)\207" [map make-sparse-keymap 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-below [(f3) (right)] split-window-right [(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)] 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) (#$ . 524))
(byte-code "\302\303\304\305#\210\306\305\211\203,	@\303N\203%\304N\204%\307\304\303N#\210	A\211\204*\310\303\304\311#\210\312\304\313\314\315\316\317\320&\210\312\321\305\322\323\324\325\326\327\320\330\331\315\332\317\320&\210\312\333\334\335\315\332\317\320&\210\312\336\305\337\315\332\317\320&\210\312\340\305\341\315\342\317\320&\210\312\343\305\344\315\342\317\320&\207" [prop --dolist-tail-- defvaralias crisp-mode-modeline-string crisp-mode-mode-line-string nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3" custom-declare-variable " *CRiSP*" "String to display in the mode line when CRiSP emulation mode is enabled." :type string :group crisp crisp-mode "Track status of CRiSP emulation mode.\nA value of nil means CRiSP mode is not enabled.  A value of t\nindicates CRiSP mode is enabled.\n\nSetting this variable directly does not take effect;\nuse either M-x customize or the function `crisp-mode'." :set #[(symbol value) "\301\203	\302\202\n\303!\207" [value crisp-mode 1 0] 2] :initialize custom-initialize-default :require :version "20.4" boolean crisp-override-meta-x t "Controls overriding the normal Emacs M-x key binding in the CRiSP emulator.\nNormally the CRiSP emulator rebinds M-x to `save-buffers-exit-emacs', and\nprovides the usual M-x functionality on the F10 key.  If this variable\nis non-nil, M-x will exit Emacs." crisp-load-scroll-all "Controls loading of the Scroll Lock in the CRiSP emulator.\nIts default behavior is to load and enable the Scroll Lock minor mode\npackage when enabling the CRiSP emulator.\n\nIf this variable is nil when you start the CRiSP emulator, it\ndoes not load the scroll-all package." crisp-load-hook "Hooks to run after loading the CRiSP emulator package." hook crisp-mode-hook "Hook run by the function `crisp-mode'."] 17)
#@36 The version of the CRiSP emulator.
(defconst crisp-version "1.34" (#$ . 6041))
#@56 The email address of the CRiSP mode author/maintainer.
(defconst crisp-mode-help-address "gfoster@suzieq.ml.org" (#$ . 6126))
#@39 The previous value of `last-command'.
(defvar crisp-last-last-command nil (#$ . 6258))
(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 (#$ . 6709)])
#@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 (#$ . 6843) "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 (#$ . 7082) "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 (#$ . 7278) "*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 (#$ . 7637) "*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=\203eb\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 (#$ . 8068) 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=\203db\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 (#$ . 8532) nil])
#@21 Go back one buffer.
(defalias 'crisp-unbury-buffer #[nil "\300\301\302 !@!\207" [switch-to-buffer last buffer-list] 3 (#$ . 8973) 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 (#$ . 9116) nil])
#@89 Non-nil if Crisp mode is enabled.
Use the command `crisp-mode' to change this variable.
(defvar crisp-mode nil (#$ . 9547))
(make-variable-buffer-local 'crisp-mode)
#@200 Toggle CRiSP/Brief emulation (CRiSP mode).
With a prefix argument ARG, enable CRiSP mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
(defalias 'crisp-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\211\203B\312\313\314\315\316\313\314NBB#\210\317\320!\203.\320\321!\210\2036\322\323!\210\324\323!\203B\325\f\326\327#\210\330\331\n\203L\332\202M\333\"\210\334\335!\203r\306 \203a\306 \232\203r\336\337\340\n\203m\341\202n\342
#\210))\343 \210\n\207" [#1=#:last-message arg crisp-mode crisp-load-scroll-all crisp-mode-map local current-message toggle prefix-numeric-value 0 put undo :advertised-binding [134217845] [f14] fboundp transient-mark-mode t require scroll-all featurep define-key [(meta f1)] scroll-all-mode run-hooks crisp-mode-hook crisp-mode-on-hook crisp-mode-off-hook called-interactively-p any " in current buffer" message "Crisp mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 9719) (list (or current-prefix-arg 'toggle))])
(defvar crisp-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\210\311\312\306\"\210\303\313\314\315#\210\303\316\314\315#\210\317\320!\210\321\322!\207" [crisp-mode-map crisp-mode-hook variable-documentation put "Hook run after entering or leaving `crisp-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode crisp-mode crisp-mode-mode-line-string nil defalias brief-mode crisp-home CUA move crisp-end run-hooks crisp-load-hook provide crisp] 6)