annotate lisp/emulation/crisp.el @ 77159:0f28a629f991

Update some links, remove some dead ones.
author Glenn Morris <rgm@gnu.org>
date Fri, 13 Apr 2007 03:00:16 +0000
parents 7a3f13e2dd57
children ac0efac52065 95d0cdf160ea
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
24762
585c5f115d83 Fix header comments.
Dave Love <fx@gnu.org>
parents: 22849
diff changeset
1 ;;; crisp.el --- CRiSP/Brief Emacs emulator
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
2
74466
1d4b1a32fd66 Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 68648
diff changeset
3 ;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004,
75346
7a3f13e2dd57 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74466
diff changeset
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
25721
47cdb31c3a62 Update author address.
Dave Love <fx@gnu.org>
parents: 24839
diff changeset
6 ;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM>
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
7 ;; Keywords: emulations brief crisp
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; any later version.
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62507
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62507
diff changeset
24 ;; Boston, MA 02110-1301, USA.
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
28 ;; Keybindings and minor functions to duplicate the functionality and
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
29 ;; finger-feel of the CRiSP/Brief editor. This package is designed to
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
30 ;; facilitate transitioning from Brief to (XE|E)macs with a minimum
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
31 ;; amount of hassles.
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
33 ;; Enable this package by putting (require 'crisp) in your .emacs and
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
34 ;; use M-x crisp-mode to toggle it on or off.
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
36 ;; This package will automatically load the scroll-all.el package if
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
37 ;; you put (setq crisp-load-scroll-all t) in your .emacs before
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
38 ;; loading this package. If this feature is enabled, it will bind
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
39 ;; meta-f1 to the scroll-all mode toggle. The scroll-all package
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
40 ;; duplicates the scroll-alling feature in CRiSP.
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
42 ;; Also, the default keybindings for brief/CRiSP override the M-x
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
43 ;; key to exit the editor. If you don't like this functionality, you
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
44 ;; can prevent this behavior (or redefine it dynamically) by setting
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
45 ;; the value of `crisp-override-meta-x' either in your .emacs or
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
46 ;; interactively. The default setting is t, which means that M-x will
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
47 ;; by default run `save-buffers-kill-emacs' instead of the command
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
48 ;; `execute-extended-command'.
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
50 ;; Finally, if you want to change the string displayed in the modeline
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
51 ;; when this mode is in effect, override the definition of
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
52 ;; `crisp-mode-modeline-string' in your .emacs. The default value is
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
53 ;; " *Crisp*" which may be a bit lengthy if you have a lot of things
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
54 ;; being displayed there.
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
55
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 ;; All these overrides should go *before* the (require 'crisp) statement.
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57
24762
585c5f115d83 Fix header comments.
Dave Love <fx@gnu.org>
parents: 22849
diff changeset
58 ;;; Code:
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
59
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
60 ;; local variables
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
61
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
62 (defgroup crisp nil
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
63 "Emulator for CRiSP and Brief key bindings."
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
64 :prefix "crisp-"
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
65 :group 'emulations)
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
66
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
67 (defvar crisp-mode-map (let ((map (make-sparse-keymap)))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
68 map)
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
69 "Local keymap for CRiSP emulation mode.
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
70 All the bindings are done here instead of globally to try and be
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
71 nice to the world.")
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
73 (defcustom crisp-mode-modeline-string " *CRiSP*"
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
74 "*String to display in the modeline when CRiSP emulation mode is enabled."
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
75 :type 'string
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
76 :group 'crisp)
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
77
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
78 ;;;###autoload
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
79 (defcustom crisp-mode nil
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
80 "Track status of CRiSP emulation mode.
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
81 A value of nil means CRiSP mode is not enabled. A value of t
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
82 indicates CRiSP mode is enabled.
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
83
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
84 Setting this variable directly does not take effect;
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
85 use either M-x customize or the function `crisp-mode'."
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
86 :set (lambda (symbol value) (crisp-mode (if value 1 0)))
24839
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
87 :initialize 'custom-initialize-default
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
88 :require 'crisp
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
89 :version "20.4"
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
90 :type 'boolean
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
91 :group 'crisp)
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
92
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
93 (defcustom crisp-override-meta-x t
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
94 "*Controls overriding the normal Emacs M-x key binding in the CRiSP emulator.
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
95 Normally the CRiSP emulator rebinds M-x to `save-buffers-exit-emacs', and
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
96 provides the usual M-x functionality on the F10 key. If this variable
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
97 is non-nil, M-x will exit Emacs."
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
98 :type 'boolean
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
99 :group 'crisp)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
101 (defcustom crisp-load-scroll-all nil
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
102 "Controls loading of the Scroll Lock in the CRiSP emulator.
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
103 Its default behavior is to load and enable the Scroll Lock minor mode
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 package when enabling the CRiSP emulator.
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 If this variable is nil when you start the CRiSP emulator, it
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
107 does not load the scroll-all package."
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
108 :type 'boolean
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
109 :group 'crisp)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
111 (defcustom crisp-load-hook nil
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
112 "Hooks to run after loading the CRiSP emulator package."
20962
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
113 :type 'hook
54413501e4a9 Customized.
Stephen Eglen <stephen@gnu.org>
parents: 17904
diff changeset
114 :group 'crisp)
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
115
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
116 (defcustom crisp-mode-hook nil
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
117 "Hook run by the function `crisp-mode'."
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
118 :type 'hook
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
119 :group 'crisp)
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
120
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
121 (defconst crisp-version "1.34"
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
122 "The version of the CRiSP emulator.")
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
123
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
124 (defconst crisp-mode-help-address "gfoster@suzieq.ml.org"
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
125 "The email address of the CRiSP mode author/maintainer.")
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
126
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
127 ;; Silence the byte-compiler.
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
128 (defvar crisp-last-last-command nil
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
129 "The previous value of `last-command'.")
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
130
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
131 ;; The cut and paste routines are different between XEmacs and Emacs
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
132 ;; so we need to set up aliases for the functions.
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
133
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
134 (defalias 'crisp-set-clipboard
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
135 (if (fboundp 'clipboard-kill-ring-save)
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
136 'clipboard-kill-ring-save
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
137 'copy-primary-selection))
17900
08062aad7ef6 (crisp-last-last-command): Renamed from last-last-command
Richard M. Stallman <rms@gnu.org>
parents: 17599
diff changeset
138
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
139 (defalias 'crisp-kill-region
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
140 (if (fboundp 'clipboard-kill-region)
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
141 'clipboard-kill-region
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
142 'kill-primary-selection))
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
143
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
144 (defalias 'crisp-yank-clipboard
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
145 (if (fboundp 'clipboard-yank)
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
146 'clipboard-yank
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
147 'yank-clipboard-selection))
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
148
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
149 (defun crisp-region-active ()
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
150 "Compatibility function to test for an active region."
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
151 (if (boundp 'zmacs-region-active-p)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
152 zmacs-region-active-p
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
153 mark-active))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 ;; and now the keymap defines
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 (define-key crisp-mode-map [(f1)] 'other-window)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 (define-key crisp-mode-map [(f2) (down)] 'enlarge-window)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 (define-key crisp-mode-map [(f2) (left)] 'shrink-window-horizontally)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 (define-key crisp-mode-map [(f2) (right)] 'enlarge-window-horizontally)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 (define-key crisp-mode-map [(f2) (up)] 'shrink-window)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 (define-key crisp-mode-map [(f3) (down)] 'split-window-vertically)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 (define-key crisp-mode-map [(f3) (right)] 'split-window-horizontally)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 (define-key crisp-mode-map [(f4)] 'delete-window)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 (define-key crisp-mode-map [(control f4)] 'delete-other-windows)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 (define-key crisp-mode-map [(f5)] 'search-forward-regexp)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 (define-key crisp-mode-map [(f19)] 'search-forward-regexp)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
171 (define-key crisp-mode-map [(meta f5)] 'search-backward-regexp)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 (define-key crisp-mode-map [(f6)] 'query-replace)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (define-key crisp-mode-map [(f7)] 'start-kbd-macro)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
176 (define-key crisp-mode-map [(meta f7)] 'end-kbd-macro)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 (define-key crisp-mode-map [(f8)] 'call-last-kbd-macro)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 (define-key crisp-mode-map [(meta f8)] 'save-kbd-macro)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 (define-key crisp-mode-map [(f9)] 'find-file)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
182 (define-key crisp-mode-map [(meta f9)] 'load-library)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 (define-key crisp-mode-map [(f10)] 'execute-extended-command)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
185 (define-key crisp-mode-map [(meta f10)] 'compile)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
187 (define-key crisp-mode-map [(SunF37)] 'kill-buffer)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
188 (define-key crisp-mode-map [(kp-add)] 'crisp-copy-line)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
189 (define-key crisp-mode-map [(kp-subtract)] 'crisp-kill-line)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
190 ;; just to cover all the bases (GNU Emacs, for instance)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
191 (define-key crisp-mode-map [(f24)] 'crisp-kill-line)
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
192 (define-key crisp-mode-map [(insert)] 'crisp-yank-clipboard)
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
193 (define-key crisp-mode-map [(f16)] 'crisp-set-clipboard) ; copy on Sun5 kbd
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
194 (define-key crisp-mode-map [(f20)] 'crisp-kill-region) ; cut on Sun5 kbd
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
195 (define-key crisp-mode-map [(f18)] 'crisp-yank-clipboard) ; paste on Sun5 kbd
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
197 (define-key crisp-mode-map [(control f)] 'fill-paragraph-or-region)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
198 (define-key crisp-mode-map [(meta d)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
199 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
200 (beginning-of-line) (kill-line)))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 (define-key crisp-mode-map [(meta e)] 'find-file)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 (define-key crisp-mode-map [(meta g)] 'goto-line)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 (define-key crisp-mode-map [(meta h)] 'help)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 (define-key crisp-mode-map [(meta i)] 'overwrite-mode)
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
205 (define-key crisp-mode-map [(meta j)] 'bookmark-jump)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
206 (define-key crisp-mode-map [(meta l)] 'crisp-mark-line)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
207 (define-key crisp-mode-map [(meta m)] 'set-mark-command)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
208 (define-key crisp-mode-map [(meta n)] 'bury-buffer)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
209 (define-key crisp-mode-map [(meta p)] 'crisp-unbury-buffer)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (define-key crisp-mode-map [(meta u)] 'advertised-undo)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 (define-key crisp-mode-map [(f14)] 'advertised-undo)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 (define-key crisp-mode-map [(meta w)] 'save-buffer)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
213 (define-key crisp-mode-map [(meta x)] 'crisp-meta-x-wrapper)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
214 (define-key crisp-mode-map [(meta ?0)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
215 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
216 (bookmark-set "0")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
217 (define-key crisp-mode-map [(meta ?1)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
218 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
219 (bookmark-set "1")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
220 (define-key crisp-mode-map [(meta ?2)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
221 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
222 (bookmark-set "2")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
223 (define-key crisp-mode-map [(meta ?3)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
224 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
225 (bookmark-set "3")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
226 (define-key crisp-mode-map [(meta ?4)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
227 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
228 (bookmark-set "4")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
229 (define-key crisp-mode-map [(meta ?5)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
230 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
231 (bookmark-set "5")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
232 (define-key crisp-mode-map [(meta ?6)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
233 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
234 (bookmark-set "6")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
235 (define-key crisp-mode-map [(meta ?7)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
236 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
237 (bookmark-set "7")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
238 (define-key crisp-mode-map [(meta ?8)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
239 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
240 (bookmark-set "8")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
241 (define-key crisp-mode-map [(meta ?9)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
242 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
243 (bookmark-set "9")))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
244
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
245 (define-key crisp-mode-map [(shift delete)] 'kill-word)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
246 (define-key crisp-mode-map [(shift backspace)] 'backward-kill-word)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
247 (define-key crisp-mode-map [(control left)] 'backward-word)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
248 (define-key crisp-mode-map [(control right)] 'forward-word)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
250 (define-key crisp-mode-map [(home)] 'crisp-home)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
251 (define-key crisp-mode-map [(control home)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
252 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
253 (move-to-window-line 0)))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
254 (define-key crisp-mode-map [(meta home)] 'beginning-of-line)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
255 (define-key crisp-mode-map [(end)] 'crisp-end)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
256 (define-key crisp-mode-map [(control end)] (lambda ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
257 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
258 (move-to-window-line -1)))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
259 (define-key crisp-mode-map [(meta end)] 'end-of-line)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
260
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
261 (defun crisp-version (&optional arg)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
262 "Version number of the CRiSP emulator package.
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
263 If ARG, insert results at point."
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
264 (interactive "P")
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
265 (let ((foo (concat "CRiSP version " crisp-version)))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
266 (if arg
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
267 (insert (message foo))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
268 (message foo))))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
270 (defun crisp-mark-line (arg)
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
271 "Set mark at the end of the line.
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
272 Arg works as in `end-of-line'."
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
273 (interactive "p")
22849
d1d9c92ca734 (crisp-mark-line): Greatly simplified.
Richard M. Stallman <rms@gnu.org>
parents: 22827
diff changeset
274 (let (newmark)
d1d9c92ca734 (crisp-mark-line): Greatly simplified.
Richard M. Stallman <rms@gnu.org>
parents: 22827
diff changeset
275 (save-excursion
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
276 (end-of-line arg)
22849
d1d9c92ca734 (crisp-mark-line): Greatly simplified.
Richard M. Stallman <rms@gnu.org>
parents: 22827
diff changeset
277 (setq newmark (point)))
d1d9c92ca734 (crisp-mark-line): Greatly simplified.
Richard M. Stallman <rms@gnu.org>
parents: 22827
diff changeset
278 (push-mark newmark nil t)))
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
279
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
280 (defun crisp-kill-line (arg)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
281 "Mark and kill line(s).
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
282 Marks from point to end of the current line (honoring prefix arguments),
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
283 copies the region to the kill ring and clipboard, and then deletes it."
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
284 (interactive "*p")
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
285 (if (crisp-region-active)
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
286 (call-interactively 'crisp-kill-region)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
287 (crisp-mark-line arg)
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
288 (call-interactively 'crisp-kill-region)))
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
289
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
290 (defun crisp-copy-line (arg)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
291 "Mark and copy line(s).
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
292 Marks from point to end of the current line (honoring prefix arguments),
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
293 copies the region to the kill ring and clipboard, and then deactivates
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
294 the region."
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
295 (interactive "*p")
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
296 (if (crisp-region-active)
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
297 (call-interactively 'crisp-set-clipboard)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
298 (crisp-mark-line arg)
22827
053f8d41f34c Don't require cl.
Richard M. Stallman <rms@gnu.org>
parents: 22758
diff changeset
299 (call-interactively 'crisp-set-clipboard))
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
300 ;; clear the region after the operation is complete
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
301 ;; XEmacs does this automagically, Emacs doesn't.
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
302 (if (boundp 'mark-active)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
303 (setq mark-active nil)))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 (defun crisp-home ()
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
306 "\"Home\" the point, the way CRiSP would do it.
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 The first use moves point to beginning of the line. Second
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 consecutive use moves point to beginning of the screen. Third
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 consecutive use moves point to the beginning of the buffer."
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 (interactive nil)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 (cond
17900
08062aad7ef6 (crisp-last-last-command): Renamed from last-last-command
Richard M. Stallman <rms@gnu.org>
parents: 17599
diff changeset
312 ((and (eq last-command 'crisp-home)
08062aad7ef6 (crisp-last-last-command): Renamed from last-last-command
Richard M. Stallman <rms@gnu.org>
parents: 17599
diff changeset
313 (eq crisp-last-last-command 'crisp-home))
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
314 (goto-char (point-min)))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 ((eq last-command 'crisp-home)
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
316 (move-to-window-line 0))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 (t
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
318 (beginning-of-line)))
17900
08062aad7ef6 (crisp-last-last-command): Renamed from last-last-command
Richard M. Stallman <rms@gnu.org>
parents: 17599
diff changeset
319 (setq crisp-last-last-command last-command))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 (defun crisp-end ()
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
322 "\"End\" the point, the way CRiSP would do it.
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 The first use moves point to end of the line. Second
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 consecutive use moves point to the end of the screen. Third
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 consecutive use moves point to the end of the buffer."
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 (interactive nil)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 (cond
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
328 ((and (eq last-command 'crisp-end)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
329 (eq crisp-last-last-command 'crisp-end))
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
330 (goto-char (point-max)))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 ((eq last-command 'crisp-end)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 (move-to-window-line -1)
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
333 (end-of-line))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 (t
17448
b0fb37e0d14b Install the proper version.
Richard M. Stallman <rms@gnu.org>
parents: 17367
diff changeset
335 (end-of-line)))
17900
08062aad7ef6 (crisp-last-last-command): Renamed from last-last-command
Richard M. Stallman <rms@gnu.org>
parents: 17599
diff changeset
336 (setq crisp-last-last-command last-command))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
338 (defun crisp-unbury-buffer ()
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
339 "Go back one buffer."
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
340 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
341 (switch-to-buffer (car (last (buffer-list)))))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 29056
diff changeset
342
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
343 (defun crisp-meta-x-wrapper ()
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
344 "Wrapper function to conditionally override the normal M-x bindings.
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
345 When `crisp-override-meta-x' is non-nil, M-x will exit Emacs (the
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
346 normal CRiSP binding) and when it is nil M-x will run
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
347 `execute-extended-command' (the normal Emacs binding)."
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
348 (interactive)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
349 (if crisp-override-meta-x
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
350 (save-buffers-kill-emacs)
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
351 (call-interactively 'execute-extended-command)))
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
352
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
353 ;;;###autoload
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
354 (defun crisp-mode (&optional arg)
29056
abee88aa37f0 (brief-mode): New alias.
Dave Love <fx@gnu.org>
parents: 25721
diff changeset
355 "Toggle CRiSP/Brief emulation minor mode.
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
356 With ARG, turn CRiSP mode on if ARG is positive, off otherwise."
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
357 (interactive "P")
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
358 (setq crisp-mode (if (null arg)
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
359 (not crisp-mode)
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
360 (> (prefix-numeric-value arg) 0)))
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
361 (when crisp-mode
24839
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
362 ;; Force transient-mark-mode, so that the marking routines work as
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
363 ;; expected. If the user turns off transient mark mode, most
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
364 ;; things will still work fine except the crisp-(copy|kill)
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
365 ;; functions won't work quite as nicely when regions are marked
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
366 ;; differently and could really confuse people. Caveat emptor.
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
367 (if (fboundp 'transient-mark-mode)
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
368 (transient-mark-mode t))
17599
dd277f4e6737 (crisp-load-scroll-all): Renamed from ...-lock.
Richard M. Stallman <rms@gnu.org>
parents: 17448
diff changeset
369 (if crisp-load-scroll-all
dd277f4e6737 (crisp-load-scroll-all): Renamed from ...-lock.
Richard M. Stallman <rms@gnu.org>
parents: 17448
diff changeset
370 (require 'scroll-all))
dd277f4e6737 (crisp-load-scroll-all): Renamed from ...-lock.
Richard M. Stallman <rms@gnu.org>
parents: 17448
diff changeset
371 (if (featurep 'scroll-all)
dd277f4e6737 (crisp-load-scroll-all): Renamed from ...-lock.
Richard M. Stallman <rms@gnu.org>
parents: 17448
diff changeset
372 (define-key crisp-mode-map [(meta f1)] 'scroll-all-mode))
24839
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
373 (run-hooks 'crisp-mode-hook)))
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374
29056
abee88aa37f0 (brief-mode): New alias.
Dave Love <fx@gnu.org>
parents: 25721
diff changeset
375 ;; People might use Apropos on `brief'.
abee88aa37f0 (brief-mode): New alias.
Dave Love <fx@gnu.org>
parents: 25721
diff changeset
376 ;;;###autoload
abee88aa37f0 (brief-mode): New alias.
Dave Love <fx@gnu.org>
parents: 25721
diff changeset
377 (defalias 'brief-mode 'crisp-mode)
abee88aa37f0 (brief-mode): New alias.
Dave Love <fx@gnu.org>
parents: 25721
diff changeset
378
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
379 (if (fboundp 'add-minor-mode)
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
380 (add-minor-mode 'crisp-mode 'crisp-mode-modeline-string
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
381 crisp-mode-map nil 'crisp-mode)
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
382 (or (assq 'crisp-mode minor-mode-alist)
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
383 (setq minor-mode-alist
24770
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
384 (cons '(crisp-mode crisp-mode-modeline-string) minor-mode-alist)))
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
385 (or (assq 'crisp-mode minor-mode-map-alist)
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
386 (setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map)
c9cc4db4508f (crisp-mode-map): Don't inherit global-map.
Richard M. Stallman <rms@gnu.org>
parents: 24762
diff changeset
387 minor-mode-map-alist))))
22758
dbd9ecc9dbac Added next-buffer/previous-buffer keybindings (bound to M-n/M-p).
Karl Heuer <kwzh@gnu.org>
parents: 20962
diff changeset
388
50062
b43d8c1413de * man.el (Man-getpage-in-background): Always use `setenv' for
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 49598
diff changeset
389 ;; Interaction with other packages.
62507
68429718056c (crisp-home, crisp-end): Put CUA property.
Kim F. Storm <storm@cua.dk>
parents: 62440
diff changeset
390 (put 'crisp-home 'CUA 'move)
68429718056c (crisp-home, crisp-end): Put CUA property.
Kim F. Storm <storm@cua.dk>
parents: 62440
diff changeset
391 (put 'crisp-end 'CUA 'move)
50062
b43d8c1413de * man.el (Man-getpage-in-background): Always use `setenv' for
Kai Großjohann <kgrossjo@eu.uu.net>
parents: 49598
diff changeset
392
24839
c67fe81fd9ed (crisp-mode): (defcustom) Initialize with
Karl Heuer <kwzh@gnu.org>
parents: 24771
diff changeset
393 (run-hooks 'crisp-load-hook)
17361
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 (provide 'crisp)
d3c4df8a1219 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 50400
diff changeset
396 ;;; arch-tag: e5369375-fafb-4240-b7ae-4cb460ef05ee
17367
ac4db12935d7 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17361
diff changeset
397 ;;; crisp.el ends here