Commit 58edceeb authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(allout-pre-command-business): Fix docstring.

parent c1f21754
2003-02-24 Ken Manheimer <klm@zope.com>
* allout.el (allout-pre-command-business): Fix docstring.
2003-02-24 Ramakrishnan M <rama@gnu.org> (tiny change) 2003-02-24 Ramakrishnan M <rama@gnu.org> (tiny change)
   
* language/mlm-util.el (mlm-char-glyph): Fix several composing * language/mlm-util.el (mlm-char-glyph): Fix several composing
...@@ -25,7 +29,7 @@ ...@@ -25,7 +29,7 @@
   
* replace.el (query-replace-read-args): Return just 3 values. * replace.el (query-replace-read-args): Return just 3 values.
(query-replace, query-replace-regexp) (query-replace, query-replace-regexp)
(query-replace-regexp-eval, map-query-replace-regexp) (query-replace-regexp-eval, map-query-replace-regexp)
(replace-string, replace-regexp): Read the start and end args (replace-string, replace-regexp): Read the start and end args
separately so that the expressions are recorded in command-history. separately so that the expressions are recorded in command-history.
   
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;; Author: Ken Manheimer <klm@python.org> ;; Author: Ken Manheimer <klm@python.org>
;; Maintainer: Ken Manheimer <klm@python.org> ;; Maintainer: Ken Manheimer <klm@python.org>
;; Created: Dec 1991 - first release to usenet ;; Created: Dec 1991 - first release to usenet
;; Version: $Id: allout.el,v 1.38 2002/12/16 01:00:51 rost Exp $|| ;; Version: $Id: allout.el,v 1.39 2003/02/04 11:00:03 lektu Exp $||
;; Keywords: outlines mode wp languages ;; Keywords: outlines mode wp languages
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -508,7 +508,7 @@ behavior." ...@@ -508,7 +508,7 @@ behavior."
;;;_ : Version ;;;_ : Version
;;;_ = allout-version ;;;_ = allout-version
(defvar allout-version (defvar allout-version
(let ((rcs-rev "$Revision: 1.38 $")) (let ((rcs-rev "$Revision: 1.39 $"))
(condition-case err (condition-case err
(save-match-data (save-match-data
(string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev) (string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev)
...@@ -2331,19 +2331,19 @@ are mapped to the command of the corresponding control-key on the ...@@ -2331,19 +2331,19 @@ are mapped to the command of the corresponding control-key on the
;;;_ > allout-pre-command-business () ;;;_ > allout-pre-command-business ()
(defun allout-pre-command-business () (defun allout-pre-command-business ()
"Outline `pre-command-hook' function for outline buffers. "Outline `pre-command-hook' function for outline buffers.
Implements special behavior when cursor is on bullet char. Implements special behavior when cursor is on bullet character.
Self-insert characters are reinterpreted control-character references When the cursor is on the bullet character, self-insert characters are
into the `allout-mode-map'. The `allout-mode' `post-command-hook' will reinterpreted as the corresponding control-character in the
position a cursor that has moved as a result of such reinterpretation, `allout-mode-map'. The `allout-mode' `post-command-hook' insures that
on the destination topic's bullet, when the cursor wound up in the the cursor which has moved as a result of such reinterpretation is
positioned on the bullet character of the destination topic.
The upshot is that you can get easy, single (ie, unmodified) key The upshot is that you can get easy, single (ie, unmodified) key
outline maneuvering operations by positioning the cursor on the bullet outline maneuvering operations by positioning the cursor on the bullet
char. You stay in this mode until you use some regular char. When in this mode you can use regular cursor-positioning
cursor-positioning command to relocate the cursor off of a bullet command/keystrokes to relocate the cursor off of a bullet character to
char." return to regular interpretation of self-insert characters."
(if (not (allout-mode-p)) (if (not (allout-mode-p))
;; Shouldn't be invoked if not in allout allout-mode, but just in case: ;; Shouldn't be invoked if not in allout allout-mode, but just in case:
nil nil
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment