Lines Matching +defs:mode +defs:prefix
1 ;;; ooutline.el --- outline mode commands for Emacs
28 ;; This package is a major mode for editing outline-format documents.
38 :prefix "outline-"
64 (defvar outline-mode-prefix-map nil)
66 (if outline-mode-prefix-map
68 (setq outline-mode-prefix-map (make-sparse-keymap))
69 (define-key outline-mode-prefix-map "\C-n" 'outline-next-visible-heading)
70 (define-key outline-mode-prefix-map "\C-p" 'outline-previous-visible-heading)
71 (define-key outline-mode-prefix-map "\C-i" 'show-children)
72 (define-key outline-mode-prefix-map "\C-s" 'show-subtree)
73 (define-key outline-mode-prefix-map "\C-d" 'hide-subtree)
74 (define-key outline-mode-prefix-map "\C-u" 'outline-up-heading)
75 (define-key outline-mode-prefix-map "\C-f" 'outline-forward-same-level)
76 (define-key outline-mode-prefix-map "\C-b" 'outline-backward-same-level)
77 (define-key outline-mode-prefix-map "\C-t" 'hide-body)
78 (define-key outline-mode-prefix-map "\C-a" 'show-all)
79 (define-key outline-mode-prefix-map "\C-c" 'hide-entry)
80 (define-key outline-mode-prefix-map "\C-e" 'show-entry)
81 (define-key outline-mode-prefix-map "\C-l" 'hide-leaves)
82 (define-key outline-mode-prefix-map "\C-k" 'show-branches)
83 (define-key outline-mode-prefix-map "\C-q" 'hide-sublevels)
84 (define-key outline-mode-prefix-map "\C-o" 'hide-other))
86 (defvar outline-mode-menu-bar-map nil)
87 (if outline-mode-menu-bar-map
89 (setq outline-mode-menu-bar-map (make-sparse-keymap))
91 (define-key outline-mode-menu-bar-map [hide]
94 (define-key outline-mode-menu-bar-map [hide hide-other]
96 (define-key outline-mode-menu-bar-map [hide hide-sublevels]
98 (define-key outline-mode-menu-bar-map [hide hide-subtree]
100 (define-key outline-mode-menu-bar-map [hide hide-entry]
102 (define-key outline-mode-menu-bar-map [hide hide-body]
104 (define-key outline-mode-menu-bar-map [hide hide-leaves]
107 (define-key outline-mode-menu-bar-map [show]
110 (define-key outline-mode-menu-bar-map [show show-subtree]
112 (define-key outline-mode-menu-bar-map [show show-children]
114 (define-key outline-mode-menu-bar-map [show show-branches]
116 (define-key outline-mode-menu-bar-map [show show-entry]
118 (define-key outline-mode-menu-bar-map [show show-all]
121 (define-key outline-mode-menu-bar-map [headings]
124 (define-key outline-mode-menu-bar-map [headings outline-backward-same-level]
126 (define-key outline-mode-menu-bar-map [headings outline-forward-same-level]
128 (define-key outline-mode-menu-bar-map [headings outline-previous-visible-heading]
130 (define-key outline-mode-menu-bar-map [headings outline-next-visible-heading]
132 (define-key outline-mode-menu-bar-map [headings outline-up-heading]
135 (defvar outline-mode-map nil "")
137 (if outline-mode-map
139 (setq outline-mode-map (nconc (make-sparse-keymap) text-mode-map))
140 (define-key outline-mode-map "\C-c" outline-mode-prefix-map)
141 (define-key outline-mode-map [menu-bar] outline-mode-menu-bar-map))
143 (defcustom outline-minor-mode nil
144 "Non-nil if using Outline mode as a minor mode of some other mode."
147 (make-variable-buffer-local 'outline-minor-mode)
148 (put 'outline-minor-mode 'permanent-local t)
149 (or (assq 'outline-minor-mode minor-mode-alist)
150 (setq minor-mode-alist (append minor-mode-alist
151 (list '(outline-minor-mode " Outl")))))
165 "Additional expressions to highlight in Outline mode.")
167 (defun outline-mode ()
168 "Set major mode for editing outlines with selective display.
177 Commands:\\<outline-mode-map>
204 Turning on outline mode calls the value of `text-mode-hook' and then of
205 `outline-mode-hook', if they are non-nil."
209 (use-local-map outline-mode-map)
210 (setq mode-name "Outline")
211 (setq major-mode 'outline-mode)
212 (define-abbrev-table 'text-mode-abbrev-table ())
213 (setq local-abbrev-table text-mode-abbrev-table)
214 (set-syntax-table text-mode-syntax-table)
226 (make-local-variable 'change-major-mode-hook)
227 (add-hook 'change-major-mode-hook 'show-all)
228 (run-mode-hooks 'text-mode-hook 'outline-mode-hook))
230 (defcustom outline-minor-mode-prefix "\C-c@"
231 "*Prefix key to use for Outline commands in Outline minor mode.
232 The value of this variable is checked as part of loading Outline mode.
233 After that, changing the prefix key requires manipulating keymaps."
237 (defvar outline-minor-mode-map nil)
238 (if outline-minor-mode-map
240 (setq outline-minor-mode-map (make-sparse-keymap))
241 (define-key outline-minor-mode-map [menu-bar]
242 outline-mode-menu-bar-map)
243 (define-key outline-minor-mode-map outline-minor-mode-prefix
244 outline-mode-prefix-map))
246 (or (assq 'outline-minor-mode minor-mode-map-alist)
247 (setq minor-mode-map-alist
248 (cons (cons 'outline-minor-mode outline-minor-mode-map)
249 minor-mode-map-alist)))
251 (defun outline-minor-mode (&optional arg)
252 "Toggle Outline minor mode.
253 With arg, turn Outline minor mode on if arg is positive, off otherwise.
254 See the command `outline-mode' for more information on this mode."
256 (setq outline-minor-mode
257 (if (null arg) (not outline-minor-mode)
258 (> (prefix-numeric-value arg) 0)))
259 (if outline-minor-mode
262 (run-hooks 'outline-minor-mode-hook))
264 ;; When turning off outline mode, get rid of any ^M's.
265 (or outline-minor-mode
267 (force-mode-line-update))
488 (if level (prefix-numeric-value level)