Variable: crisp-mode-map
crisp-mode-map is a variable defined in crisp.el.gz.
Value
Large value
<SunF37> kill-buffer
<end> crisp-end
<f10> execute-extended-command
<f14> undo
<f16> crisp-set-clipboard
<f18> crisp-yank-clipboard
<f19> search-forward-regexp
<f1> other-window
<f20> crisp-kill-region
<f24> crisp-kill-line
<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
<f5> search-forward-regexp
<f6> query-replace
<f7> start-kbd-macro
<f8> call-last-kbd-macro
<f9> find-file
<home> crisp-home
<insert> crisp-yank-clipboard
<kp-add> crisp-copy-line
<kp-subtract> crisp-kill-line
C-<end> #<anonymous-function>
C-<f4> delete-other-windows
C-<home> #<anonymous-function>
C-<left> backward-word
C-<right> forward-word
M-0 #<anonymous-function>
M-1 #<anonymous-function>
M-2 #<anonymous-function>
M-3 #<anonymous-function>
M-4 #<anonymous-function>
M-5 #<anonymous-function>
M-6 #<anonymous-function>
M-7 #<anonymous-function>
M-8 #<anonymous-function>
M-9 #<anonymous-function>
M-<end> end-of-line
M-<f10> compile
M-<f5> search-backward-regexp
M-<f7> end-kbd-macro
M-<f9> load-library
M-<home> beginning-of-line
M-d #<anonymous-function>
M-e find-file
M-g goto-line
M-h help
M-i overwrite-mode(var)/overwrite-mode(fun)
M-j bookmark-jump
M-l crisp-mark-line
M-m set-mark-command
M-n bury-buffer
M-p crisp-unbury-buffer
M-u undo
M-w save-buffer
M-x crisp-meta-x-wrapper
S-<backspace> backward-kill-word
S-<delete> kill-word
Documentation
Local keymap for CRiSP emulation mode.
All the bindings are done here instead of globally to try and be nice to the world.
Source Code
;; Defined in /usr/src/emacs/lisp/obsolete/crisp.el.gz
(defvar crisp-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [(f1)] #'other-window)
(define-key map [(f2) (down)] #'enlarge-window)
(define-key map [(f2) (left)] #'shrink-window-horizontally)
(define-key map [(f2) (right)] #'enlarge-window-horizontally)
(define-key map [(f2) (up)] #'shrink-window)
(define-key map [(f3) (down)] #'split-window-below)
(define-key map [(f3) (right)] #'split-window-right)
(define-key map [(f4)] #'delete-window)
(define-key map [(control f4)] #'delete-other-windows)
(define-key map [(f5)] #'search-forward-regexp)
(define-key map [(f19)] #'search-forward-regexp)
(define-key map [(meta f5)] #'search-backward-regexp)
(define-key map [(f6)] #'query-replace)
(define-key map [(f7)] #'start-kbd-macro)
(define-key map [(meta f7)] #'end-kbd-macro)
(define-key map [(f8)] #'call-last-kbd-macro)
;;(define-key map [(meta f8)] #'save-kbd-macro) ;FIXME:Unknown command?
(define-key map [(f9)] #'find-file)
(define-key map [(meta f9)] #'load-library)
(define-key map [(f10)] #'execute-extended-command)
(define-key map [(meta f10)] #'compile)
(define-key map [(SunF37)] #'kill-buffer)
(define-key map [(kp-add)] #'crisp-copy-line)
(define-key map [(kp-subtract)] #'crisp-kill-line)
;; just to cover all the bases (GNU Emacs, for instance)
(define-key map [(f24)] #'crisp-kill-line)
(define-key map [(insert)] #'crisp-yank-clipboard)
(define-key map [(f16)] #'crisp-set-clipboard) ; copy on Sun5 kbd
(define-key map [(f20)] #'crisp-kill-region) ; cut on Sun5 kbd
(define-key map [(f18)] #'crisp-yank-clipboard) ; paste on Sun5 kbd
;; (define-key map [(control f)] #'fill-paragraph-or-region)
(define-key map [(meta d)] (lambda ()
(interactive)
(beginning-of-line) (kill-line)))
(define-key map [(meta e)] #'find-file)
(define-key map [(meta g)] #'goto-line)
(define-key map [(meta h)] #'help)
(define-key map [(meta i)] #'overwrite-mode)
(define-key map [(meta j)] #'bookmark-jump)
(define-key map [(meta l)] #'crisp-mark-line)
(define-key map [(meta m)] #'set-mark-command)
(define-key map [(meta n)] #'bury-buffer)
(define-key map [(meta p)] #'crisp-unbury-buffer)
(define-key map [(meta u)] #'undo)
(define-key map [(f14)] #'undo)
(define-key map [(meta w)] #'save-buffer)
(define-key map [(meta x)] #'crisp-meta-x-wrapper)
(define-key map [(meta ?0)] (lambda ()
(interactive)
(bookmark-set "0")))
(define-key map [(meta ?1)] (lambda ()
(interactive)
(bookmark-set "1")))
(define-key map [(meta ?2)] (lambda ()
(interactive)
(bookmark-set "2")))
(define-key map [(meta ?3)] (lambda ()
(interactive)
(bookmark-set "3")))
(define-key map [(meta ?4)] (lambda ()
(interactive)
(bookmark-set "4")))
(define-key map [(meta ?5)] (lambda ()
(interactive)
(bookmark-set "5")))
(define-key map [(meta ?6)] (lambda ()
(interactive)
(bookmark-set "6")))
(define-key map [(meta ?7)] (lambda ()
(interactive)
(bookmark-set "7")))
(define-key map [(meta ?8)] (lambda ()
(interactive)
(bookmark-set "8")))
(define-key map [(meta ?9)] (lambda ()
(interactive)
(bookmark-set "9")))
(define-key map [(shift delete)] #'kill-word)
(define-key map [(shift backspace)] #'backward-kill-word)
(define-key map [(control left)] #'backward-word)
(define-key map [(control right)] #'forward-word)
(define-key map [(home)] #'crisp-home)
(define-key map [(control home)] (lambda ()
(interactive)
(move-to-window-line 0)))
(define-key map [(meta home)] #'beginning-of-line)
(define-key map [(end)] #'crisp-end)
(define-key map [(control end)] (lambda ()
(interactive)
(move-to-window-line -1)))
(define-key map [(meta end)] #'end-of-line)
map)
"Local keymap for CRiSP emulation mode.
All the bindings are done here instead of globally to try and be
nice to the world.")