Lines Matching +defs:minor +defs:mode
1 ;;; two-column.el --- minor mode for editing of two-column text
49 ;; mal^cefan modalon. ^Ciu donas al vi minor mode. Each gives you a
82 ;; ^cefan modalon, la mal^cefaj modaloj the major mode, the minor modes are
94 ;; dukolumne, vi eliru el la mal^cefa two columns, you turn off the minor
95 ;; modalo per C-x 6 d. mode with C-x 6 d.
102 ;; ^cefa modalo: been found for this minor mode:
153 (defvar 2C-mode-map
160 "Keymap for commands for setting up two-column mode.")
165 (fset '2C-command 2C-mode-map)
175 (defvar 2C-minor-mode-map
185 "Keymap for commands for use in two-column mode.")
188 (setq minor-mode-map-alist
189 (cons (cons '2C-mode
191 (substitute-key-definition '2C-command 2C-minor-mode-map
200 minor-mode-map-alist))
206 "Minor mode for editing of two-column text."
213 ;; required by `describe-mode'.
214 (defvar 2C-mode nil
216 (make-variable-buffer-local '2C-mode)
217 (put '2C-mode 'permanent-local t)
221 (setq minor-mode-alist (cons '(2C-mode " 2C") minor-mode-alist))
226 (defcustom 2C-mode-line-format
227 '("-%*- %15b --" (-3 . "%p") "--%[(" mode-name
228 minor-mode-alist "%n" mode-line-process ")%]%-")
229 "*Value of `mode-line-format' for a buffer in two-column minor mode."
234 (defcustom 2C-other-buffer-hook 'text-mode
260 "*Base for calculating `fill-column' for a buffer in two-column minor mode.
284 (or (if 2C-mode
286 (marker-buffer 2C-mode)
287 (setq mode-line-format 2C-mode-line-format))
292 (kill-local-variable '2C-mode)
293 (kill-local-variable 'mode-line-format)
295 (if req (error "You must first set two-column minor mode"))))
299 ;; function for setting up two-column minor mode in a buffer associated
301 (defun 2C-mode (other)
302 "Minor mode for independently editing two columns.
305 Turning on two-column mode calls the value of the variable `2C-mode-hook',
321 \\[2C-associate-buffer] Reassociate buffer after changing major mode
328 These keybindings can be customized in your ~/.emacs by `2C-mode-map',
329 `2C-minor-mode-map' and by binding `2C-command' to some prefix.
332 `2C-window-width', `2C-beyond-fill-column', `2C-mode-line-format' and
337 mode-line-format 2C-mode-line-format
338 2C-mode other)
339 (run-hooks '2C-mode-hook))
347 buffer in two-column minor mode (use \\[describe-mode] once in the mode,
366 (2C-mode (prog1 (point-marker)
374 (2C-mode (prog1 (point-marker)
381 "Associate another buffer with this one in two-column minor mode.
385 \(See \\[describe-mode] .)"
391 (setq 2C-mode nil)
407 "Split a two-column text at point, into two buffers in two-column minor mode.
422 \(See \\[describe-mode] .)"
475 "Turn off two-column minor mode in current and associated buffer.
487 (kill-local-variable '2C-mode)
490 (kill-local-variable 'mode-line-format)
492 (kill-local-variable '2C-mode)
495 (kill-local-variable 'mode-line-format)