2 |
|
|
3 |
;; Copyright (C) 1992, 1993, 1994, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1992, 1993, 1994, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Ken Manheimer <klm@python.org> |
;; Author: Ken Manheimer <klm@zope.com> |
6 |
;; Maintainer: Ken Manheimer <klm@python.org> |
;; Maintainer: Ken Manheimer <klm@zope.com> |
7 |
;; Created: Dec 1991 - first release to usenet |
;; Created: Dec 1991 - first release to usenet |
8 |
;; Version: $Id$|| |
;; Version: $Id$|| |
9 |
;; Keywords: outline mode wp languages |
;; Keywords: outline mode wp languages |
58 |
;; Note - the lines beginning with `;;;_' are outline topic headers. |
;; Note - the lines beginning with `;;;_' are outline topic headers. |
59 |
;; Just `ESC-x eval-current-buffer' to give it a whirl. |
;; Just `ESC-x eval-current-buffer' to give it a whirl. |
60 |
|
|
61 |
;; Ken Manheimer klm@python.org |
;; Ken Manheimer klm@zope.com |
62 |
|
|
63 |
;;; Code: |
;;; Code: |
64 |
|
|
2330 |
;;;_ > outline-pre-command-business () |
;;;_ > outline-pre-command-business () |
2331 |
(defun outline-pre-command-business () |
(defun outline-pre-command-business () |
2332 |
"Outline pre-command-hook function for outline buffers. |
"Outline pre-command-hook function for outline buffers. |
2333 |
Implements special behavior when cursor is on bullet char. |
Implements special behavior when cursor is on bullet character. |
2334 |
|
|
2335 |
Self-insert characters are reinterpreted control-character references |
When the cursor is on the bullet character, self-insert characters are |
2336 |
into the outline-mode-map. The outline-mode post-command hook will |
reinterpreted as the corresponding control-character in the |
2337 |
position a cursor that has moved as a result of such reinterpretation, |
outline-mode map. The outline-mode post-command-hook insures that the |
2338 |
on the destination topic's bullet, when the cursor wound up in the |
cursor which has moved as a result of such reinterpretation is |
2339 |
|
positioned on the bullet character of the destination topic. |
2340 |
|
|
2341 |
The upshot is that you can get easy, single (ie, unmodified) key |
The upshot is that you can get easy, single (ie, unmodified) key |
2342 |
outline maneuvering operations by positioning the cursor on the bullet |
outline maneuvering operations by positioning the cursor on the bullet |
2343 |
char. You stay in this mode until you use some regular |
char. When in this mode you can use regular cursor-positioning |
2344 |
cursor-positioning command to relocate the cursor off of a bullet |
command/keystrokes to relocate the cursor off of a bullet character to |
2345 |
char." |
return to regular interpretation of self-insert characters." |
2346 |
|
|
2347 |
(if (not (outline-mode-p)) |
(if (not (outline-mode-p)) |
2348 |
;; Shouldn't be invoked if not in allout outline-mode, but just in case: |
;; Shouldn't be invoked if not in allout outline-mode, but just in case: |