Mercurial > emacs
annotate lisp/allout.el @ 104232:23230e6cbc19
*** empty log message ***
author | Dmitry Dzhus <dima@sphinx.net.ru> |
---|---|
date | Tue, 11 Aug 2009 10:48:56 +0000 |
parents | 4efc7ca085ce |
children | 37b8e423433c |
rev | line source |
---|---|
38431
853c3674f20a
Fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38250
diff
changeset
|
1 ;;; allout.el --- extensive outline mode for use alone and with other modes |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2 |
64762
41bb365f41c4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64474
diff
changeset
|
3 ;; Copyright (C) 1992, 1993, 1994, 2001, 2002, 2003, 2004, |
100908 | 4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6 ;; Author: Ken Manheimer <ken dot manheimer at gmail dot com> |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
7 ;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com> |
79939 | 8 ;; Created: Dec 1991 -- first release to usenet |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
9 ;; Version: 2.2.1 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
10 ;; Keywords: outlines wp languages |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
11 ;; Website: http://myriadicity.net/Sundry/EmacsAllout |
3430 | 12 |
13 ;; This file is part of GNU Emacs. | |
14 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92337
diff
changeset
|
15 ;; GNU Emacs is free software: you can redistribute it and/or modify |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5310
diff
changeset
|
16 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92337
diff
changeset
|
17 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92337
diff
changeset
|
18 ;; (at your option) any later version. |
3430 | 19 |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5310
diff
changeset
|
20 ;; GNU Emacs is distributed in the hope that it will be useful, |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5310
diff
changeset
|
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5310
diff
changeset
|
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5310
diff
changeset
|
23 ;; GNU General Public License for more details. |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5310
diff
changeset
|
24 |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5310
diff
changeset
|
25 ;; You should have received a copy of the GNU General Public License |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92337
diff
changeset
|
26 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
3430 | 27 |
38431
853c3674f20a
Fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38250
diff
changeset
|
28 ;;; Commentary: |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
29 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
30 ;; Allout outline minor mode provides extensive outline formatting and |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
31 ;; and manipulation beyond standard emacs outline mode. Some features: |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
32 ;; |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
33 ;; - Classic outline-mode topic-oriented navigation and exposure adjustment |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
34 ;; - Topic-oriented editing including coherent topic and subtopic |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
35 ;; creation, promotion, demotion, cut/paste across depths, etc. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
36 ;; - Incremental search with dynamic exposure and reconcealment of text |
79939 | 37 ;; - Customizable bullet format -- enables programming-language specific |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
38 ;; outlining, for code-folding editing. (Allout code itself is to try it; |
79939 | 39 ;; formatted as an outline -- do ESC-x eval-buffer in allout.el; but |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
40 ;; emacs local file variables need to be enabled when the |
79939 | 41 ;; file was visited -- see `enable-local-variables'.) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
42 ;; - Configurable per-file initial exposure settings |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
43 ;; - Symmetric-key and key-pair topic encryption, plus symmetric passphrase |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
44 ;; mnemonic support, with verification against an established passphrase |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
45 ;; (using a stashed encrypted dummy string) and user-supplied hint |
74864
e97d916ee47b
(allout-encrypt-string): Inhibit use of agent within
Chong Yidong <cyd@stupidchicken.com>
parents:
74381
diff
changeset
|
46 ;; maintenance. (See allout-toggle-current-subtree-encryption docstring. |
e97d916ee47b
(allout-encrypt-string): Inhibit use of agent within
Chong Yidong <cyd@stupidchicken.com>
parents:
74381
diff
changeset
|
47 ;; Currently only GnuPG encryption is supported, and integration |
e97d916ee47b
(allout-encrypt-string): Inhibit use of agent within
Chong Yidong <cyd@stupidchicken.com>
parents:
74381
diff
changeset
|
48 ;; with gpg-agent is not yet implemented.) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
49 ;; - Automatic topic-number maintenance |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
50 ;; - "Hot-spot" operation, for single-keystroke maneuvering and |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
51 ;; exposure control (see the allout-mode docstring) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
52 ;; - Easy rendering of exposed portions into numbered, latex, indented, etc |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
53 ;; outline styles |
79939 | 54 ;; - Careful attention to whitespace -- enabling blank lines between items |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
55 ;; and maintenance of hanging indentation (in paragraph auto-fill and |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
56 ;; across topic promotion and demotion) of topic bodies consistent with |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
57 ;; indentation of their topic header. |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
58 ;; |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
59 ;; and more. |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
60 ;; |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
61 ;; See the `allout-mode' function's docstring for an introduction to the |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
62 ;; mode. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
63 ;; |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
64 ;; The latest development version and helpful notes are available at |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
65 ;; http://myriadicity.net/Sundry/EmacsAllout . |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
66 ;; |
29490 | 67 ;; The outline menubar additions provide quick reference to many of |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
68 ;; the features, and see the docstring of the variable `allout-init' |
73763
89b9e8184350
(allout-adjust-file-variable, allout-passphrase-verifier-string,
Juanma Barranquero <lekktu@gmail.com>
parents:
73660
diff
changeset
|
69 ;; for instructions on priming your Emacs session for automatic |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
70 ;; activation of allout-mode. |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
71 ;; |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
72 ;; See the docstring of the variables `allout-layout' and |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
73 ;; `allout-auto-activation' for details on automatic activation of |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
74 ;; `allout-mode' as a minor mode. (It has changed since allout |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
75 ;; 3.x, for those of you that depend on the old method.) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
76 ;; |
79939 | 77 ;; Note -- the lines beginning with `;;;_' are outline topic headers. |
71625 | 78 ;; Just `ESC-x eval-buffer' to give it a whirl. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
79 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
80 ;; ken manheimer (ken dot manheimer at gmail dot com) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
81 |
38431
853c3674f20a
Fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38250
diff
changeset
|
82 ;;; Code: |
853c3674f20a
Fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38250
diff
changeset
|
83 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
84 ;;;_* Dependency autoloads |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
85 (require 'overlay) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
86 (eval-when-compile |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
87 ;; Most of the requires here are for stuff covered by autoloads. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
88 ;; Since just byte-compiling doesn't trigger autoloads, so that |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
89 ;; "function not found" warnings would occur without these requires. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
90 (progn |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
91 (require 'pgg) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
92 (require 'pgg-gpg) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
93 (require 'overlay) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
94 ;; `cl' is required for `assert'. `assert' is not covered by a standard |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
95 ;; autoload, but it is a macro, so that eval-when-compile is sufficient |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
96 ;; to byte-compile it in, or to do the require when the buffer evalled. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
97 (require 'cl) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
98 )) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
99 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
100 ;;;_* USER CUSTOMIZATION VARIABLES: |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
101 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
102 ;;;_ > defgroup allout |
21088 | 103 (defgroup allout nil |
104 "Extensive outline mode for use alone and with other modes." | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
105 :prefix "allout-" |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
106 :group 'outlines) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
107 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
108 ;;;_ + Layout, Mode, and Topic Header Configuration |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
109 |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
110 ;;;_ = allout-command-prefix |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
111 (defcustom allout-command-prefix "\C-c " |
100171 | 112 "Key sequence to be used as prefix for outline mode command key bindings. |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
113 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
114 Default is '\C-c<space>'; just '\C-c' is more short-and-sweet, if you're |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
115 willing to let allout use a bunch of \C-c keybindings." |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
116 :type 'string |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
117 :group 'allout) |
88056 | 118 |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
119 ;;;_ = allout-keybindings-list |
88056 | 120 ;;; You have to reactivate allout-mode -- `(allout-mode t)' -- to |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
121 ;;; institute changes to this var. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
122 (defvar allout-keybindings-list () |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
123 "*List of `allout-mode' key / function bindings, for `allout-mode-map'. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
124 String or vector key will be prefaced with `allout-command-prefix', |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
125 unless optional third, non-nil element is present.") |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
126 (setq allout-keybindings-list |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
127 '( |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
128 ; Motion commands: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
129 ("\C-n" allout-next-visible-heading) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
130 ("\C-p" allout-previous-visible-heading) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
131 ("\C-u" allout-up-current-level) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
132 ("\C-f" allout-forward-current-level) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
133 ("\C-b" allout-backward-current-level) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
134 ("\C-a" allout-beginning-of-current-entry) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
135 ("\C-e" allout-end-of-entry) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
136 ; Exposure commands: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
137 ("\C-i" allout-show-children) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
138 ("\C-s" allout-show-current-subtree) |
100072 | 139 ("\C-h" allout-hide-current-subtree) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
140 ("\C-t" allout-toggle-current-subtree-exposure) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
141 ("h" allout-hide-current-subtree) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
142 ("\C-o" allout-show-current-entry) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
143 ("!" allout-show-all) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
144 ("x" allout-toggle-current-subtree-encryption) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
145 ; Alteration commands: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
146 (" " allout-open-sibtopic) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
147 ("." allout-open-subtopic) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
148 ("," allout-open-supertopic) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
149 ("'" allout-shift-in) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
150 (">" allout-shift-in) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
151 ("<" allout-shift-out) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
152 ("\C-m" allout-rebullet-topic) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
153 ("*" allout-rebullet-current-heading) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
154 ("#" allout-number-siblings) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
155 ("\C-k" allout-kill-line t) |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
156 ([?\M-k] allout-copy-line-as-kill t) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
157 ("\C-y" allout-yank t) |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
158 ([?\M-y] allout-yank-pop t) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
159 ("\C-k" allout-kill-topic) |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
160 ([?\M-k] allout-copy-topic-as-kill) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
161 ; Miscellaneous commands: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
162 ;([?\C-\ ] allout-mark-topic) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
163 ("@" allout-resolve-xref) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
164 ("=c" allout-copy-exposed-to-buffer) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
165 ("=i" allout-indented-exposed-to-buffer) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
166 ("=t" allout-latexify-exposed) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
167 ("=p" allout-flatten-exposed-to-buffer))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
168 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
169 ;;;_ = allout-auto-activation |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
170 (defcustom allout-auto-activation nil |
100171 | 171 "Regulates auto-activation modality of allout outlines -- see `allout-init'. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
172 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
173 Setq-default by `allout-init' to regulate whether or not allout |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
174 outline mode is automatically activated when the buffer-specific |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
175 variable `allout-layout' is non-nil, and whether or not the layout |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
176 dictated by `allout-layout' should be imposed on mode activation. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
177 |
50855
31ce4fcda3d8
(allout-auto-activation, allout-use-mode-specific-leader)
Juanma Barranquero <lekktu@gmail.com>
parents:
49966
diff
changeset
|
178 With value t, auto-mode-activation and auto-layout are enabled. |
48858
f4d079377a9a
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48857
diff
changeset
|
179 \(This also depends on `allout-find-file-hook' being installed in |
54952
5e2b4f7225cb
(allout-mode-exposure-menu, allout-mode-editing-menu):
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
180 `find-file-hook', which is also done by `allout-init'.) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
181 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
182 With value `ask', auto-mode-activation is enabled, and endorsement for |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
183 performing auto-layout is asked of the user each time. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
184 |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
185 With value `activate', only auto-mode-activation is enabled, |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
186 auto-layout is not. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
187 |
50855
31ce4fcda3d8
(allout-auto-activation, allout-use-mode-specific-leader)
Juanma Barranquero <lekktu@gmail.com>
parents:
49966
diff
changeset
|
188 With value nil, neither auto-mode-activation nor auto-layout are |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
189 enabled. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
190 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
191 See the docstring for `allout-init' for the proper interface to |
29490 | 192 this variable." |
193 :type '(choice (const :tag "On" t) | |
194 (const :tag "Ask about layout" "ask") | |
195 (const :tag "Mode only" "activate") | |
196 (const :tag "Off" nil)) | |
197 :group 'allout) | |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
198 ;;;_ = allout-default-layout |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
199 (defcustom allout-default-layout '(-2 : 0) |
100171 | 200 "Default allout outline layout specification. |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
201 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
202 This setting specifies the outline exposure to use when |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
203 `allout-layout' has the local value `t'. This docstring describes the |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
204 layout specifications. |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
205 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
206 A list value specifies a default layout for the current buffer, |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
207 to be applied upon activation of `allout-mode'. Any non-nil |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
208 value will automatically trigger `allout-mode', provided |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
209 `allout-init' has been called to enable this behavior. |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
210 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
211 The types of elements in the layout specification are: |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
212 |
79939 | 213 INTEGER -- dictate the relative depth to open the corresponding topic(s), |
214 where: | |
215 -- negative numbers force the topic to be closed before opening | |
216 to the absolute value of the number, so all siblings are open | |
217 only to that level. | |
218 -- positive numbers open to the relative depth indicated by the | |
219 number, but do not force already opened subtopics to be closed. | |
220 -- 0 means to close topic -- hide all subitems. | |
221 : -- repeat spec -- apply the preceeding element to all siblings at | |
222 current level, *up to* those siblings that would be covered by specs | |
223 following the `:' on the list. Ie, apply to all topics at level but | |
224 trailing ones accounted for by trailing specs. (Only the first of | |
225 multiple colons at the same level is honored -- later ones are ignored.) | |
226 * -- completely exposes the topic, including bodies | |
227 + -- exposes all subtopics, but not the bodies | |
228 - -- exposes the body of the corresponding topic, but not subtopics | |
229 LIST -- a nested layout spec, to be applied intricately to its | |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
230 corresponding item(s) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
231 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
232 Examples: |
79939 | 233 (-2 : 0) |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
234 Collapse the top-level topics to show their children and |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
235 grandchildren, but completely collapse the final top-level topic. |
79939 | 236 (-1 () : 1 0) |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
237 Close the first topic so only the immediate subtopics are shown, |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
238 leave the subsequent topics exposed as they are until the second |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
239 second to last topic, which is exposed at least one level, and |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
240 completely close the last topic. |
79939 | 241 (-2 : -1 *) |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
242 Expose children and grandchildren of all topics at current |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
243 level except the last two; expose children of the second to |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
244 last and completely expose the last one, including its subtopics. |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
245 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
246 See `allout-expose-topic' for more about the exposure process. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
247 |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
248 Also, allout's mode-specific provisions will make topic prefixes default |
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
249 to the comment-start string, if any, of the language of the file. This |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
250 is modulo the setting of `allout-use-mode-specific-leader', which see." |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
251 :type 'allout-layout-type |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
252 :group 'allout) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
253 ;;;_ : allout-layout-type |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
254 (define-widget 'allout-layout-type 'lazy |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
255 "Allout layout format customization basic building blocks." |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
256 :type '(repeat |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
257 (choice (integer :tag "integer (<= zero is strict)") |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
258 (const :tag ": (repeat prior)" :) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
259 (const :tag "* (completely expose)" *) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
260 (const :tag "+ (expose all offspring, headlines only)" +) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
261 (const :tag "- (expose topic body but not offspring)" -) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
262 (allout-layout-type :tag "<Nested layout>")))) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
263 |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
264 ;;;_ = allout-inhibit-auto-fill |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
265 (defcustom allout-inhibit-auto-fill nil |
100171 | 266 "If non-nil, auto-fill will be inhibited in the allout buffers. |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
267 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
268 You can customize this setting to set it for all allout buffers, or set it |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
269 in individual buffers if you want to inhibit auto-fill only in particular |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
270 buffers. (You could use a function on `allout-mode-hook' to inhibit |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
271 auto-fill according, eg, to the major mode.) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
272 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
273 If you don't set this and auto-fill-mode is enabled, allout will use the |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
274 value that `normal-auto-fill-function', if any, when allout mode starts, or |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
275 else allout's special hanging-indent maintaining auto-fill function, |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
276 `allout-auto-fill'." |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
277 :type 'boolean |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
278 :group 'allout) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
279 (make-variable-buffer-local 'allout-inhibit-auto-fill) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
280 ;;;_ = allout-use-hanging-indents |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
281 (defcustom allout-use-hanging-indents t |
100171 | 282 "If non-nil, topic body text auto-indent defaults to indent of the header. |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
283 Ie, it is indented to be just past the header prefix. This is |
88056 | 284 relevant mostly for use with `indented-text-mode', or other situations |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
285 where auto-fill occurs." |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
286 :type 'boolean |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
287 :group 'allout) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
288 (make-variable-buffer-local 'allout-use-hanging-indents) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
289 ;;;###autoload |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
290 (put 'allout-use-hanging-indents 'safe-local-variable |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
291 (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
292 ;;;_ = allout-reindent-bodies |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
293 (defcustom allout-reindent-bodies (if allout-use-hanging-indents |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
294 'text) |
100171 | 295 "Non-nil enables auto-adjust of topic body hanging indent with depth shifts. |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
296 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
297 When active, topic body lines that are indented even with or beyond |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
298 their topic header are reindented to correspond with depth shifts of |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
299 the header. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
300 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
301 A value of t enables reindent in non-programming-code buffers, ie |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
302 those that do not have the variable `comment-start' set. A value of |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
303 `force' enables reindent whether or not `comment-start' is set." |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
304 :type '(choice (const nil) (const t) (const text) (const force)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
305 :group 'allout) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
306 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
307 (make-variable-buffer-local 'allout-reindent-bodies) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
308 ;;;###autoload |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
309 (put 'allout-reindent-bodies 'safe-local-variable |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
310 '(lambda (x) (memq x '(nil t text force)))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
311 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
312 ;;;_ = allout-show-bodies |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
313 (defcustom allout-show-bodies nil |
100171 | 314 "If non-nil, show entire body when exposing a topic, rather than |
29490 | 315 just the header." |
316 :type 'boolean | |
317 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
318 (make-variable-buffer-local 'allout-show-bodies) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
319 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
320 (put 'allout-show-bodies 'safe-local-variable |
70673
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
321 (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
322 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
323 ;;;_ = allout-beginning-of-line-cycles |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
324 (defcustom allout-beginning-of-line-cycles t |
100171 | 325 "If non-nil, \\[allout-beginning-of-line] will cycle through smart-placement options. |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
326 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
327 Cycling only happens on when the command is repeated, not when it |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
328 follows a different command. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
329 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
330 Smart-placement means that repeated calls to this function will |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
331 advance as follows: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
332 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
333 - if the cursor is on a non-headline body line and not on the first column: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
334 then it goes to the first column |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
335 - if the cursor is on the first column of a non-headline body line: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
336 then it goes to the start of the headline within the item body |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
337 - if the cursor is on the headline and not the start of the headline: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
338 then it goes to the start of the headline |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
339 - if the cursor is on the start of the headline: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
340 then it goes to the bullet character (for hotspot navigation) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
341 - if the cursor is on the bullet character: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
342 then it goes to the first column of that line (the headline) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
343 - if the cursor is on the first column of the headline: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
344 then it goes to the start of the headline within the item body. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
345 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
346 In this fashion, you can use the beginning-of-line command to do |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
347 its normal job and then, when repeated, advance through the |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
348 entry, cycling back to start. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
349 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
350 If this configuration variable is nil, then the cursor is just |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
351 advanced to the beginning of the line and remains there on |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
352 repeated calls." |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
353 :type 'boolean :group 'allout) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
354 ;;;_ = allout-end-of-line-cycles |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
355 (defcustom allout-end-of-line-cycles t |
100171 | 356 "If non-nil, \\[allout-end-of-line] will cycle through smart-placement options. |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
357 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
358 Cycling only happens on when the command is repeated, not when it |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
359 follows a different command. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
360 |
79939 | 361 Smart placement means that repeated calls to this function will |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
362 advance as follows: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
363 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
364 - if the cursor is not on the end-of-line, |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
365 then it goes to the end-of-line |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
366 - if the cursor is on the end-of-line but not the end-of-entry, |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
367 then it goes to the end-of-entry, exposing it if necessary |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
368 - if the cursor is on the end-of-entry, |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
369 then it goes to the end of the head line |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
370 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
371 In this fashion, you can use the end-of-line command to do its |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
372 normal job and then, when repeated, advance through the entry, |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
373 cycling back to start. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
374 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
375 If this configuration variable is nil, then the cursor is just |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
376 advanced to the end of the line and remains there on repeated |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
377 calls." |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
378 :type 'boolean :group 'allout) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
379 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
380 ;;;_ = allout-header-prefix |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
381 (defcustom allout-header-prefix "." |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
382 ;; this string is treated as literal match. it will be `regexp-quote'd, so |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
383 ;; one cannot use regular expressions to match varying header prefixes. |
100171 | 384 "Leading string which helps distinguish topic headers. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
385 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
386 Outline topic header lines are identified by a leading topic |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
387 header prefix, which mostly have the value of this var at their front. |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
388 Level 1 topics are exceptions. They consist of only a single |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
389 character, which is typically set to the `allout-primary-bullet'." |
21088 | 390 :type 'string |
391 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
392 (make-variable-buffer-local 'allout-header-prefix) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
393 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
394 (put 'allout-header-prefix 'safe-local-variable 'stringp) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
395 ;;;_ = allout-primary-bullet |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
396 (defcustom allout-primary-bullet "*" |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
397 "Bullet used for top-level outline topics. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
398 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
399 Outline topic header lines are identified by a leading topic header |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
400 prefix, which is concluded by bullets that includes the value of this |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
401 var and the respective allout-*-bullets-string vars. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
402 |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
403 The value of an asterisk (`*') provides for backwards compatibility |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
404 with the original Emacs outline mode. See `allout-plain-bullets-string' |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
405 and `allout-distinctive-bullets-string' for the range of available |
21088 | 406 bullets." |
407 :type 'string | |
408 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
409 (make-variable-buffer-local 'allout-primary-bullet) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
410 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
411 (put 'allout-primary-bullet 'safe-local-variable 'stringp) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
412 ;;;_ = allout-plain-bullets-string |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
413 (defcustom allout-plain-bullets-string ".," |
100171 | 414 "The bullets normally used in outline topic prefixes. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
415 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
416 See `allout-distinctive-bullets-string' for the other kind of |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
417 bullets. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
418 |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
419 DO NOT include the close-square-bracket, `]', as a bullet. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
420 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
421 Outline mode has to be reactivated in order for changes to the value |
21088 | 422 of this var to take effect." |
423 :type 'string | |
424 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
425 (make-variable-buffer-local 'allout-plain-bullets-string) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
426 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
427 (put 'allout-plain-bullets-string 'safe-local-variable 'stringp) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
428 ;;;_ = allout-distinctive-bullets-string |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
429 (defcustom allout-distinctive-bullets-string "*+-=>()[{}&!?#%\"X@$~_\\:;^" |
100171 | 430 "Persistent outline header bullets used to distinguish special topics. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
431 |
76204
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
432 These bullets are distinguish topics with particular character. |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
433 They are not used by default in the topic creation routines, but |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
434 are offered as options when you modify topic creation with a |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
435 universal argument \(\\[universal-argument]), or during rebulleting \(\\[allout-rebullet-current-heading]). |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
436 |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
437 Distinctive bullets are not cycled when topics are shifted or |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
438 otherwise automatically rebulleted, so their marking is |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
439 persistent until deliberately changed. Their significance is |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
440 purely by convention, however. Some conventions suggest |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
441 themselves: |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
442 |
79939 | 443 `(' - open paren -- an aside or incidental point |
444 `?' - question mark -- uncertain or outright question | |
445 `!' - exclamation point/bang -- emphatic | |
446 `[' - open square bracket -- meta-note, about item instead of item's subject | |
447 `\"' - double quote -- a quotation or other citation | |
448 `=' - equal sign -- an assignement, equating a name with some connotation | |
449 `^' - carat -- relates to something above | |
76204
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
450 |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
451 Some are more elusive, but their rationale may be recognizable: |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
452 |
79939 | 453 `+' - plus -- pending consideration, completion |
454 `_' - underscore -- done, completed | |
455 `&' - ampersand -- addendum, furthermore | |
76204
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
456 |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
457 \(Some other non-plain bullets have special meaning to the |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
458 software. By default: |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
459 |
79939 | 460 `~' marks encryptable topics -- see `allout-topic-encryption-bullet' |
461 `#' marks auto-numbered bullets -- see `allout-numbered-bullet'.) | |
76204
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
462 |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
463 See `allout-plain-bullets-string' for the standard, alternating |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
464 bullets. |
29490 | 465 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
466 You must run `set-allout-regexp' in order for outline mode to |
76204
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
467 adopt changes of this value. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
468 |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
469 DO NOT include the close-square-bracket, `]', on either of the bullet |
21088 | 470 strings." |
471 :type 'string | |
472 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
473 (make-variable-buffer-local 'allout-distinctive-bullets-string) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
474 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
475 (put 'allout-distinctive-bullets-string 'safe-local-variable 'stringp) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
476 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
477 ;;;_ = allout-use-mode-specific-leader |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
478 (defcustom allout-use-mode-specific-leader t |
100171 | 479 "When non-nil, use mode-specific topic-header prefixes. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
480 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
481 Allout outline mode will use the mode-specific `allout-mode-leaders' or |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
482 comment-start string, if any, to lead the topic prefix string, so topic |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
483 headers look like comments in the programming language. It will also use |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
484 the comment-start string, with an '_' appended, for `allout-primary-bullet'. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
485 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
486 String values are used as literals, not regular expressions, so |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
487 do not escape any regulare-expression characters. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
488 |
50855
31ce4fcda3d8
(allout-auto-activation, allout-use-mode-specific-leader)
Juanma Barranquero <lekktu@gmail.com>
parents:
49966
diff
changeset
|
489 Value t means to first check for assoc value in `allout-mode-leaders' |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
490 alist, then use comment-start string, if any, then use default (`.'). |
29490 | 491 \(See note about use of comment-start strings, below.) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
492 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
493 Set to the symbol for either of `allout-mode-leaders' or |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
494 `comment-start' to use only one of them, respectively. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
495 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
496 Value nil means to always use the default (`.') and leave |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
497 `allout-primary-bullet' unaltered. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
498 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
499 comment-start strings that do not end in spaces are tripled in |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
500 the header-prefix, and an `_' underscore is tacked on the end, to |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
501 distinguish them from regular comment strings. comment-start |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
502 strings that do end in spaces are not tripled, but an underscore |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
503 is substituted for the space. [This presumes that the space is |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
504 for appearance, not comment syntax. You can use |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
505 `allout-mode-leaders' to override this behavior, when |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
506 undesired.]" |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
507 :type '(choice (const t) (const nil) string |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
508 (const allout-mode-leaders) |
21088 | 509 (const comment-start)) |
510 :group 'allout) | |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
511 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
512 (put 'allout-use-mode-specific-leader 'safe-local-variable |
70616
b69cce4ff5a0
2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70256
diff
changeset
|
513 '(lambda (x) (or (memq x '(t nil allout-mode-leaders comment-start)) |
b69cce4ff5a0
2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70256
diff
changeset
|
514 (stringp x)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
515 ;;;_ = allout-mode-leaders |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
516 (defvar allout-mode-leaders '() |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
517 "Specific allout-prefix leading strings per major modes. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
518 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
519 Use this if the mode's comment-start string isn't what you |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
520 prefer, or if the mode lacks a comment-start string. See |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
521 `allout-use-mode-specific-leader' for more details. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
522 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
523 If you're constructing a string that will comment-out outline |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
524 structuring so it can be included in program code, append an extra |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
525 character, like an \"_\" underscore, to distinguish the lead string |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
526 from regular comments that start at the beginning-of-line.") |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
527 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
528 ;;;_ = allout-old-style-prefixes |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
529 (defcustom allout-old-style-prefixes nil |
100171 | 530 "When non-nil, use only old-and-crusty `outline-mode' `*' topic prefixes. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
531 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
532 Non-nil restricts the topic creation and modification |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
533 functions to asterix-padded prefixes, so they look exactly |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
534 like the original Emacs-outline style prefixes. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
535 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
536 Whatever the setting of this variable, both old and new style prefixes |
21088 | 537 are always respected by the topic maneuvering functions." |
538 :type 'boolean | |
539 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
540 (make-variable-buffer-local 'allout-old-style-prefixes) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
541 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
542 (put 'allout-old-style-prefixes 'safe-local-variable |
70673
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
543 (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) |
79939 | 544 ;;;_ = allout-stylish-prefixes -- alternating bullets |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
545 (defcustom allout-stylish-prefixes t |
100171 | 546 "Do fancy stuff with topic prefix bullets according to level, etc. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
547 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
548 Non-nil enables topic creation, modification, and repositioning |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
549 functions to vary the topic bullet char (the char that marks the topic |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
550 depth) just preceding the start of the topic text) according to level. |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
551 Otherwise, only asterisks (`*') and distinctive bullets are used. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
552 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
553 This is how an outline can look (but sans indentation) with stylish |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
554 prefixes: |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
555 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
556 * Top level |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
557 .* A topic |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
558 . + One level 3 subtopic |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
559 . . One level 4 subtopic |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
560 . . A second 4 subtopic |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
561 . + Another level 3 subtopic |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
562 . #1 A numbered level 4 subtopic |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
563 . #2 Another |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
564 . ! Another level 4 subtopic with a different distinctive bullet |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
565 . #4 And another numbered level 4 subtopic |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
566 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
567 This would be an outline with stylish prefixes inhibited (but the |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
568 numbered and other distinctive bullets retained): |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
569 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
570 * Top level |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
571 .* A topic |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
572 . * One level 3 subtopic |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
573 . * One level 4 subtopic |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
574 . * A second 4 subtopic |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
575 . * Another level 3 subtopic |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
576 . #1 A numbered level 4 subtopic |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
577 . #2 Another |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
578 . ! Another level 4 subtopic with a different distinctive bullet |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
579 . #4 And another numbered level 4 subtopic |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
580 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
581 Stylish and constant prefixes (as well as old-style prefixes) are |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
582 always respected by the topic maneuvering functions, regardless of |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
583 this variable setting. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
584 |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
585 The setting of this var is not relevant when `allout-old-style-prefixes' |
21088 | 586 is non-nil." |
587 :type 'boolean | |
588 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
589 (make-variable-buffer-local 'allout-stylish-prefixes) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
590 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
591 (put 'allout-stylish-prefixes 'safe-local-variable |
70673
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
592 (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
593 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
594 ;;;_ = allout-numbered-bullet |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
595 (defcustom allout-numbered-bullet "#" |
100171 | 596 "String designating bullet of topics that have auto-numbering; nil for none. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
597 |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
598 Topics having this bullet have automatic maintenance of a sibling |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
599 sequence-number tacked on, just after the bullet. Conventionally set |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
600 to \"#\", you can set it to a bullet of your choice. A nil value |
21088 | 601 disables numbering maintenance." |
602 :type '(choice (const nil) string) | |
603 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
604 (make-variable-buffer-local 'allout-numbered-bullet) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
605 ;;;###autoload |
70673
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
606 (put 'allout-numbered-bullet 'safe-local-variable |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
607 (if (fboundp 'string-or-null-p) |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
608 'string-or-null-p |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
609 '(lambda (x) (or (stringp x) (null x))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
610 ;;;_ = allout-file-xref-bullet |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
611 (defcustom allout-file-xref-bullet "@" |
100171 | 612 "Bullet signifying file cross-references, for `allout-resolve-xref'. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
613 |
29490 | 614 Set this var to the bullet you want to use for file cross-references." |
21088 | 615 :type '(choice (const nil) string) |
616 :group 'allout) | |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
617 ;;;###autoload |
70673
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
618 (put 'allout-file-xref-bullet 'safe-local-variable |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
619 (if (fboundp 'string-or-null-p) |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
620 'string-or-null-p |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
621 '(lambda (x) (or (stringp x) (null x))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
622 ;;;_ = allout-presentation-padding |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
623 (defcustom allout-presentation-padding 2 |
100171 | 624 "Presentation-format white-space padding factor, for greater indent." |
29490 | 625 :type 'integer |
626 :group 'allout) | |
627 | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
628 (make-variable-buffer-local 'allout-presentation-padding) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
629 ;;;###autoload |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
630 (put 'allout-presentation-padding 'safe-local-variable 'integerp) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
631 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
632 ;;;_ = allout-abbreviate-flattened-numbering |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
633 (defcustom allout-abbreviate-flattened-numbering nil |
100171 | 634 "If non-nil, `allout-flatten-exposed-to-buffer' abbreviates topic |
29490 | 635 numbers to minimal amount with some context. Otherwise, entire |
636 numbers are always used." | |
637 :type 'boolean | |
638 :group 'allout) | |
639 | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
640 ;;;_ + LaTeX formatting |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
641 ;;;_ - allout-number-pages |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
642 (defcustom allout-number-pages nil |
100171 | 643 "Non-nil turns on page numbering for LaTeX formatting of an outline." |
21088 | 644 :type 'boolean |
645 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
646 ;;;_ - allout-label-style |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
647 (defcustom allout-label-style "\\large\\bf" |
100171 | 648 "Font and size of labels for LaTeX formatting of an outline." |
21088 | 649 :type 'string |
650 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
651 ;;;_ - allout-head-line-style |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
652 (defcustom allout-head-line-style "\\large\\sl " |
100171 | 653 "Font and size of entries for LaTeX formatting of an outline." |
21088 | 654 :type 'string |
655 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
656 ;;;_ - allout-body-line-style |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
657 (defcustom allout-body-line-style " " |
100171 | 658 "Font and size of entries for LaTeX formatting of an outline." |
21088 | 659 :type 'string |
660 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
661 ;;;_ - allout-title-style |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
662 (defcustom allout-title-style "\\Large\\bf" |
100171 | 663 "Font and size of titles for LaTeX formatting of an outline." |
21088 | 664 :type 'string |
665 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
666 ;;;_ - allout-title |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
667 (defcustom allout-title '(or buffer-file-name (buffer-name)) |
100171 | 668 "Expression to be evaluated to determine the title for LaTeX |
21088 | 669 formatted copy." |
670 :type 'sexp | |
671 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
672 ;;;_ - allout-line-skip |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
673 (defcustom allout-line-skip ".05cm" |
100171 | 674 "Space between lines for LaTeX formatting of an outline." |
21088 | 675 :type 'string |
676 :group 'allout) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
677 ;;;_ - allout-indent |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
678 (defcustom allout-indent ".3cm" |
100171 | 679 "LaTeX formatted depth-indent spacing." |
21088 | 680 :type 'string |
681 :group 'allout) | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
682 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
683 ;;;_ + Topic encryption |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
684 ;;;_ = allout-encryption group |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
685 (defgroup allout-encryption nil |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
686 "Settings for topic encryption features of allout outliner." |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
687 :group 'allout) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
688 ;;;_ = allout-topic-encryption-bullet |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
689 (defcustom allout-topic-encryption-bullet "~" |
100171 | 690 "Bullet signifying encryption of the entry's body." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
691 :type '(choice (const nil) string) |
92337
a1a12ed4e5e2
(allout-topic-encryption-bullet)
Glenn Morris <rgm@gnu.org>
parents:
88056
diff
changeset
|
692 :version "22.1" |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
693 :group 'allout-encryption) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
694 ;;;_ = allout-passphrase-verifier-handling |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
695 (defcustom allout-passphrase-verifier-handling t |
100171 | 696 "Enable use of symmetric encryption passphrase verifier if non-nil. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
697 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
698 See the docstring for the `allout-enable-file-variable-adjustment' |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
699 variable for details about allout ajustment of file variables." |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
700 :type 'boolean |
92337
a1a12ed4e5e2
(allout-topic-encryption-bullet)
Glenn Morris <rgm@gnu.org>
parents:
88056
diff
changeset
|
701 :version "22.1" |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
702 :group 'allout-encryption) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
703 (make-variable-buffer-local 'allout-passphrase-verifier-handling) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
704 ;;;_ = allout-passphrase-hint-handling |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
705 (defcustom allout-passphrase-hint-handling 'always |
100171 | 706 "Dictate outline encryption passphrase reminder handling: |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
707 |
79939 | 708 always -- always show reminder when prompting |
709 needed -- show reminder on passphrase entry failure | |
710 disabled -- never present or adjust reminder | |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
711 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
712 See the docstring for the `allout-enable-file-variable-adjustment' |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
713 variable for details about allout ajustment of file variables." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
714 :type '(choice (const always) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
715 (const needed) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
716 (const disabled)) |
92337
a1a12ed4e5e2
(allout-topic-encryption-bullet)
Glenn Morris <rgm@gnu.org>
parents:
88056
diff
changeset
|
717 :version "22.1" |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
718 :group 'allout-encryption) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
719 (make-variable-buffer-local 'allout-passphrase-hint-handling) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
720 ;;;_ = allout-encrypt-unencrypted-on-saves |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
721 (defcustom allout-encrypt-unencrypted-on-saves t |
100171 | 722 "When saving, should topics pending encryption be encrypted? |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
723 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
724 The idea is to prevent file-system exposure of any un-encrypted stuff, and |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
725 mostly covers both deliberate file writes and auto-saves. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
726 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
727 - Yes: encrypt all topics pending encryption, even if it's the one |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
728 currently being edited. (In that case, the currently edited topic |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
729 will be automatically decrypted before any user interaction, so they |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
730 can continue editing but the copy on the file system will be |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
731 encrypted.) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
732 Auto-saves will use the \"All except current topic\" mode if this |
79939 | 733 one is selected, to avoid practical difficulties -- see below. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
734 - All except current topic: skip the topic currently being edited, even if |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
735 it's pending encryption. This may expose the current topic on the |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
736 file sytem, but avoids the nuisance of prompts for the encryption |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
737 passphrase in the middle of editing for, eg, autosaves. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
738 This mode is used for auto-saves for both this option and \"Yes\". |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
739 - No: leave it to the user to encrypt any unencrypted topics. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
740 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
741 For practical reasons, auto-saves always use the 'except-current policy |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
742 when auto-encryption is enabled. (Otherwise, spurious passphrase prompts |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
743 and unavoidable timing collisions are too disruptive.) If security for a |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
744 file requires that even the current topic is never auto-saved in the clear, |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
745 disable auto-saves for that file." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
746 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
747 :type '(choice (const :tag "Yes" t) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
748 (const :tag "All except current topic" except-current) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
749 (const :tag "No" nil)) |
92337
a1a12ed4e5e2
(allout-topic-encryption-bullet)
Glenn Morris <rgm@gnu.org>
parents:
88056
diff
changeset
|
750 :version "22.1" |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
751 :group 'allout-encryption) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
752 (make-variable-buffer-local 'allout-encrypt-unencrypted-on-saves) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
753 |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
754 ;;;_ + Developer |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
755 ;;;_ = allout-developer group |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
756 (defgroup allout-developer nil |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
757 "Settings for topic encryption features of allout outliner." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
758 :group 'allout) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
759 ;;;_ = allout-run-unit-tests-on-load |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
760 (defcustom allout-run-unit-tests-on-load nil |
100171 | 761 "When non-nil, unit tests will be run at end of loading the allout module. |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
762 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
763 Generally, allout code developers are the only ones who'll want to set this. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
764 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
765 \(If set, this makes it an even better practice to exercise changes by |
71915
9315116570f0
(allout-run-unit-tests-on-load): Rectified docstring grammar.
Nick Roberts <nickrob@snap.net.nz>
parents:
71893
diff
changeset
|
766 doing byte-compilation with a repeat count, so the file is loaded after |
9315116570f0
(allout-run-unit-tests-on-load): Rectified docstring grammar.
Nick Roberts <nickrob@snap.net.nz>
parents:
71893
diff
changeset
|
767 compilation.) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
768 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
769 See `allout-run-unit-tests' to see what's run." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
770 :type 'boolean |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
771 :group 'allout-developer) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
772 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
773 ;;;_ + Miscellaneous customization |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
774 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
775 ;;;_ = allout-enable-file-variable-adjustment |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
776 (defcustom allout-enable-file-variable-adjustment t |
100171 | 777 "If non-nil, some allout outline actions edit Emacs local file var text. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
778 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
779 This can range from changes to existing entries, addition of new ones, |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
780 and creation of a new local variables section when necessary. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
781 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
782 Emacs file variables adjustments are also inhibited if `enable-local-variables' |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
783 is nil. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
784 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
785 Operations potentially causing edits include allout encryption routines. |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
786 For details, see `allout-toggle-current-subtree-encryption's docstring." |
21088 | 787 :type 'boolean |
788 :group 'allout) | |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
789 (make-variable-buffer-local 'allout-enable-file-variable-adjustment) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
790 |
79939 | 791 ;;;_* CODE -- no user customizations below. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
792 |
29490 | 793 ;;;_ #1 Internal Outline Formatting and Configuration |
794 ;;;_ : Version | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
795 ;;;_ = allout-version |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
796 (defvar allout-version "2.2.1" |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
797 "Version of currently loaded outline package. (allout.el)") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
798 ;;;_ > allout-version |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
799 (defun allout-version (&optional here) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
800 "Return string describing the loaded outline version." |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
801 (interactive "P") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
802 (let ((msg (concat "Allout Outline Mode v " allout-version))) |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
803 (if here (insert msg)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
804 (message "%s" msg) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
805 msg)) |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
806 ;;;_ : Mode activation (defined here because it's referenced early) |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
807 ;;;_ = allout-mode |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
808 (defvar allout-mode nil "Allout outline mode minor-mode flag.") |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
809 (make-variable-buffer-local 'allout-mode) |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
810 ;;;_ = allout-layout nil |
79939 | 811 (defvar allout-layout nil ; LEAVE GLOBAL VALUE NIL -- see docstring. |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
812 "Buffer-specific setting for allout layout. |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
813 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
814 In buffers where this is non-nil (and if `allout-init' has been run, to |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
815 enable this behavior), `allout-mode' will be automatically activated. The |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
816 layout dictated by the value will be used to set the initial exposure when |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
817 `allout-mode' is activated. |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
818 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
819 \*You should not setq-default this variable non-nil unless you want every |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
820 visited file to be treated as an allout file.* |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
821 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
822 The value would typically be set by a file local variable. For |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
823 example, the following lines at the bottom of an Emacs Lisp file: |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
824 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
825 ;;;Local variables: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
826 ;;;allout-layout: (0 : -1 -1 0) |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
827 ;;;End: |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
828 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
829 dictate activation of `allout-mode' mode when the file is visited |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
830 \(presuming allout-init was already run), followed by the |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
831 equivalent of `(allout-expose-topic 0 : -1 -1 0)'. (This is |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
832 the layout used for the allout.el source file.) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
833 |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
834 `allout-default-layout' describes the specification format. |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
835 `allout-layout' can additionally have the value `t', in which |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
836 case the value of `allout-default-layout' is used.") |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
837 (make-variable-buffer-local 'allout-layout) |
70002
e753e12d2f33
(allout-layout): Autoload its `safe-local-variable' property.
Eli Zaretskii <eliz@gnu.org>
parents:
69481
diff
changeset
|
838 ;;;###autoload |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
839 (put 'allout-layout 'safe-local-variable |
70616
b69cce4ff5a0
2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70256
diff
changeset
|
840 '(lambda (x) (or (numberp x) (listp x) (memq x '(: * + -))))) |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
841 |
29490 | 842 ;;;_ : Topic header format |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
843 ;;;_ = allout-regexp |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
844 (defvar allout-regexp "" |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
845 "*Regular expression to match the beginning of a heading line. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
846 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
847 Any line whose beginning matches this regexp is considered a |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
848 heading. This var is set according to the user configuration vars |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
849 by `set-allout-regexp'.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
850 (make-variable-buffer-local 'allout-regexp) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
851 ;;;_ = allout-bullets-string |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
852 (defvar allout-bullets-string "" |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
853 "A string dictating the valid set of outline topic bullets. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
854 |
79939 | 855 This var should *not* be set by the user -- it is set by `set-allout-regexp', |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
856 and is produced from the elements of `allout-plain-bullets-string' |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
857 and `allout-distinctive-bullets-string'.") |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
858 (make-variable-buffer-local 'allout-bullets-string) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
859 ;;;_ = allout-bullets-string-len |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
860 (defvar allout-bullets-string-len 0 |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
861 "Length of current buffers' `allout-plain-bullets-string'.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
862 (make-variable-buffer-local 'allout-bullets-string-len) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
863 ;;;_ = allout-depth-specific-regexp |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
864 (defvar allout-depth-specific-regexp "" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
865 "*Regular expression to match a heading line prefix for a particular depth. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
866 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
867 This expression is used to search for depth-specific topic |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
868 headers at depth 2 and greater. Use `allout-depth-one-regexp' |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
869 for to seek topics at depth one. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
870 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
871 This var is set according to the user configuration vars by |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
872 `set-allout-regexp'. It is prepared with format strings for two |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
873 decimal numbers, which should each be one less than the depth of the |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
874 topic prefix to be matched.") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
875 (make-variable-buffer-local 'allout-depth-specific-regexp) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
876 ;;;_ = allout-depth-one-regexp |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
877 (defvar allout-depth-one-regexp "" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
878 "*Regular expression to match a heading line prefix for depth one. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
879 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
880 This var is set according to the user configuration vars by |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
881 `set-allout-regexp'. It is prepared with format strings for two |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
882 decimal numbers, which should each be one less than the depth of the |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
883 topic prefix to be matched.") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
884 (make-variable-buffer-local 'allout-depth-one-regexp) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
885 ;;;_ = allout-line-boundary-regexp |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
886 (defvar allout-line-boundary-regexp () |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
887 "`allout-regexp' prepended with a newline for the search target. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
888 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
889 This is properly set by `set-allout-regexp'.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
890 (make-variable-buffer-local 'allout-line-boundary-regexp) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
891 ;;;_ = allout-bob-regexp |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
892 (defvar allout-bob-regexp () |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
893 "Like `allout-line-boundary-regexp', for headers at beginning of buffer.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
894 (make-variable-buffer-local 'allout-bob-regexp) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
895 ;;;_ = allout-header-subtraction |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
896 (defvar allout-header-subtraction (1- (length allout-header-prefix)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
897 "Allout-header prefix length to subtract when computing topic depth.") |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
898 (make-variable-buffer-local 'allout-header-subtraction) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
899 ;;;_ = allout-plain-bullets-string-len |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
900 (defvar allout-plain-bullets-string-len (length allout-plain-bullets-string) |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
901 "Length of `allout-plain-bullets-string', updated by `set-allout-regexp'.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
902 (make-variable-buffer-local 'allout-plain-bullets-string-len) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
903 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
904 ;;;_ = allout-doublecheck-at-and-shallower |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
905 (defconst allout-doublecheck-at-and-shallower 3 |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
906 "Validate apparent topics of this depth and shallower as being non-aberrant. |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
907 |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
908 Verified with `allout-aberrant-container-p'. The usefulness of |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
909 this check is limited to shallow depths, because the |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
910 determination of aberrance is according to the mistaken item |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
911 being followed by a legitimate item of excessively greater depth. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
912 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
913 The classic example of a mistaken item, for a standard allout |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
914 outline configuration, is a body line that begins with an '...' |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
915 ellipsis. This happens to contain a legitimate depth-2 header |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
916 prefix, constituted by two '..' dots at the beginning of the |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
917 line. The only thing that can distinguish it *in principle* from |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
918 a legitimate one is if the following real header is at a depth |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
919 that is discontinuous from the depth of 2 implied by the |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
920 ellipsis, ie depth 4 or more. As the depth being tested gets |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
921 greater, the likelihood of this kind of disqualification is |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
922 lower, and the usefulness of this test is lower. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
923 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
924 Extending the depth of the doublecheck increases the amount it is |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
925 applied, increasing the cost of the test - on casual estimation, |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
926 for outlines with many deep topics, geometrically (O(n)?). |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
927 Taken together with decreasing likelihood that the test will be |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
928 useful at greater depths, more modest doublecheck limits are more |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
929 suitably economical.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
930 ;;;_ X allout-reset-header-lead (header-lead) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
931 (defun allout-reset-header-lead (header-lead) |
100171 | 932 "Reset the leading string used to identify topic headers." |
3430 | 933 (interactive "sNew lead string: ") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
934 (setq allout-header-prefix header-lead) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
935 (setq allout-header-subtraction (1- (length allout-header-prefix))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
936 (set-allout-regexp)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
937 ;;;_ X allout-lead-with-comment-string (header-lead) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
938 (defun allout-lead-with-comment-string (&optional header-lead) |
100171 | 939 "Set the topic-header leading string to specified string. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
940 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
941 Useful when for encapsulating outline structure in programming |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
942 language comments. Returns the leading string." |
3430 | 943 |
944 (interactive "P") | |
945 (if (not (stringp header-lead)) | |
946 (setq header-lead (read-string | |
947 "String prefix for topic headers: "))) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
948 (setq allout-reindent-bodies nil) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
949 (allout-reset-header-lead header-lead) |
3430 | 950 header-lead) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
951 ;;;_ > allout-infer-header-lead-and-primary-bullet () |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
952 (defun allout-infer-header-lead-and-primary-bullet () |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
953 "Determine appropriate `allout-header-prefix' and `allout-primary-bullet'. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
954 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
955 Works according to settings of: |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
956 |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
957 `comment-start' |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
958 `allout-header-prefix' (default) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
959 `allout-use-mode-specific-leader' |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
960 and `allout-mode-leaders'. |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
961 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
962 Apply this via (re)activation of `allout-mode', rather than |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
963 invoking it directly." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
964 (let* ((use-leader (and (boundp 'allout-use-mode-specific-leader) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
965 (if (or (stringp allout-use-mode-specific-leader) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
966 (memq allout-use-mode-specific-leader |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
967 '(allout-mode-leaders |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
968 comment-start |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
969 t))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
970 allout-use-mode-specific-leader |
79939 | 971 ;; Oops -- garbled value, equate with effect of t: |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
972 t))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
973 (leader |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
974 (cond |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
975 ((not use-leader) nil) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
976 ;; Use the explicitly designated leader: |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
977 ((stringp use-leader) use-leader) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
978 (t (or (and (memq use-leader '(t allout-mode-leaders)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
979 ;; Get it from outline mode leaders? |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
980 (cdr (assq major-mode allout-mode-leaders))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
981 ;; ... didn't get from allout-mode-leaders... |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
982 (and (memq use-leader '(t comment-start)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
983 comment-start |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
984 ;; Use comment-start, maybe tripled, and with |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
985 ;; underscore: |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
986 (concat |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
987 (if (string= " " |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
988 (substring comment-start |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
989 (1- (length comment-start)))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
990 ;; Use comment-start, sans trailing space: |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
991 (substring comment-start 0 -1) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
992 (concat comment-start comment-start comment-start)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
993 ;; ... and append underscore, whichever: |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
994 "_"))))))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
995 (if (not leader) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
996 nil |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
997 (setq allout-header-prefix leader) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
998 (if (not allout-old-style-prefixes) |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
999 ;; setting allout-primary-bullet makes the top level topics use -- |
79939 | 1000 ;; actually, be -- the special prefix: |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1001 (setq allout-primary-bullet leader)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1002 allout-header-prefix))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1003 (defalias 'allout-infer-header-lead |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1004 'allout-infer-header-lead-and-primary-bullet) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1005 ;;;_ > allout-infer-body-reindent () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1006 (defun allout-infer-body-reindent () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1007 "Determine proper setting for `allout-reindent-bodies'. |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1008 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1009 Depends on default setting of `allout-reindent-bodies' (which see) |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1010 and presence of setting for `comment-start', to tell whether the |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1011 file is programming code." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1012 (if (and allout-reindent-bodies |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1013 comment-start |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1014 (not (eq 'force allout-reindent-bodies))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1015 (setq allout-reindent-bodies nil))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1016 ;;;_ > set-allout-regexp () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1017 (defun set-allout-regexp () |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1018 "Generate proper topic-header regexp form for outline functions. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1019 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1020 Works with respect to `allout-plain-bullets-string' and |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1021 `allout-distinctive-bullets-string'. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1022 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1023 Also refresh various data structures that hinge on the regexp." |
3430 | 1024 |
1025 (interactive) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1026 ;; Derive allout-bullets-string from user configured components: |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1027 (setq allout-bullets-string "") |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1028 (let ((strings (list 'allout-plain-bullets-string |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1029 'allout-distinctive-bullets-string |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1030 'allout-primary-bullet)) |
3430 | 1031 cur-string |
1032 cur-len | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1033 cur-char |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1034 index) |
3430 | 1035 (while strings |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1036 (setq index 0) |
3430 | 1037 (setq cur-len (length (setq cur-string (symbol-value (car strings))))) |
1038 (while (< index cur-len) | |
1039 (setq cur-char (aref cur-string index)) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1040 (setq allout-bullets-string |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1041 (concat allout-bullets-string |
3430 | 1042 (cond |
1043 ; Single dash would denote a | |
1044 ; sequence, repeated denotes | |
1045 ; a dash: | |
1046 ((eq cur-char ?-) "--") | |
1047 ; literal close-square-bracket | |
1048 ; doesn't work right in the | |
1049 ; expr, exclude it: | |
1050 ((eq cur-char ?\]) "") | |
1051 (t (regexp-quote (char-to-string cur-char)))))) | |
1052 (setq index (1+ index))) | |
1053 (setq strings (cdr strings))) | |
1054 ) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1055 ;; Derive next for repeated use in allout-pending-bullet: |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1056 (setq allout-plain-bullets-string-len (length allout-plain-bullets-string)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1057 (setq allout-header-subtraction (1- (length allout-header-prefix))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1058 |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1059 (let (new-part old-part formfeed-part) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1060 (setq new-part (concat "\\(" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1061 (regexp-quote allout-header-prefix) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1062 "[ \t]*" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1063 ;; already regexp-quoted in a custom way: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1064 "[" allout-bullets-string "]" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1065 "\\)") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1066 old-part (concat "\\(" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1067 (regexp-quote allout-primary-bullet) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1068 "\\|" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1069 (regexp-quote allout-header-prefix) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1070 "\\)" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1071 "+" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1072 " ?[^" allout-primary-bullet "]") |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1073 formfeed-part "\\(\^L\\)" |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1074 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1075 allout-regexp (concat new-part |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1076 "\\|" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1077 old-part |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1078 "\\|" |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1079 formfeed-part) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1080 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1081 allout-line-boundary-regexp (concat "\n" new-part |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1082 "\\|" |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1083 "\n" old-part |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1084 "\\|" |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1085 "\n" formfeed-part) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1086 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1087 allout-bob-regexp (concat "\\`" new-part |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1088 "\\|" |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1089 "\\`" old-part |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1090 "\\|" |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1091 "\\`" formfeed-part |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1092 )) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1093 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1094 (setq allout-depth-specific-regexp |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1095 (concat "\\(^\\|\\`\\)" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1096 "\\(" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1097 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1098 ;; new-style spacers-then-bullet string: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1099 "\\(" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1100 (allout-format-quote (regexp-quote allout-header-prefix)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1101 " \\{%s\\}" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1102 "[" (allout-format-quote allout-bullets-string) "]" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1103 "\\)" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1104 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1105 ;; old-style all-bullets string, if primary not multi-char: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1106 (if (< 0 allout-header-subtraction) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1107 "" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1108 (concat "\\|\\(" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1109 (allout-format-quote |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1110 (regexp-quote allout-primary-bullet)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1111 (allout-format-quote |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1112 (regexp-quote allout-primary-bullet)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1113 (allout-format-quote |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1114 (regexp-quote allout-primary-bullet)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1115 "\\{%s\\}" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1116 ;; disqualify greater depths: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1117 "[^" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1118 (allout-format-quote allout-primary-bullet) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1119 "]\\)" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1120 )) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1121 "\\)" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1122 )) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1123 (setq allout-depth-one-regexp |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1124 (concat "\\(^\\|\\`\\)" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1125 "\\(" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1126 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1127 "\\(" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1128 (regexp-quote allout-header-prefix) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1129 ;; disqualify any bullet char following any amount of |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1130 ;; intervening whitespace: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1131 " *" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1132 (concat "[^ " allout-bullets-string "]") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1133 "\\)" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1134 (if (< 0 allout-header-subtraction) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1135 ;; Need not support anything like the old |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1136 ;; bullet style if the prefix is multi-char. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1137 "" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1138 (concat "\\|" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1139 (regexp-quote allout-primary-bullet) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1140 ;; disqualify deeper primary-bullet sequences: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1141 "[^" allout-primary-bullet "]")) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1142 "\\)" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1143 )))) |
29490 | 1144 ;;;_ : Key bindings |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1145 ;;;_ = allout-mode-map |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1146 (defvar allout-mode-map nil "Keybindings for (allout) outline minor mode.") |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1147 ;;;_ > produce-allout-mode-map (keymap-alist &optional base-map) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1148 (defun produce-allout-mode-map (keymap-list &optional base-map) |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
1149 "Produce keymap for use as `allout-mode-map', from KEYMAP-LIST. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1150 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1151 Built on top of optional BASE-MAP, or empty sparse map if none specified. |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
1152 See doc string for `allout-keybindings-list' for format of binding list." |
29490 | 1153 (let ((map (or base-map (make-sparse-keymap))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1154 (pref (list allout-command-prefix))) |
84855
5b7295004fd1
(produce-allout-mode-map, allout-process-exposed):
Juanma Barranquero <lekktu@gmail.com>
parents:
78492
diff
changeset
|
1155 (mapc (function |
29490 | 1156 (lambda (cell) |
1157 (let ((add-pref (null (cdr (cdr cell)))) | |
1158 (key-suff (list (car cell)))) | |
1159 (apply 'define-key | |
1160 (list map | |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
1161 (apply 'vconcat (if add-pref |
29490 | 1162 (append pref key-suff) |
1163 key-suff)) | |
1164 (car (cdr cell))))))) | |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1165 keymap-list) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1166 map)) |
29490 | 1167 ;;;_ : Menu bar |
54952
5e2b4f7225cb
(allout-mode-exposure-menu, allout-mode-editing-menu):
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
1168 (defvar allout-mode-exposure-menu) |
5e2b4f7225cb
(allout-mode-exposure-menu, allout-mode-editing-menu):
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
1169 (defvar allout-mode-editing-menu) |
5e2b4f7225cb
(allout-mode-exposure-menu, allout-mode-editing-menu):
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
1170 (defvar allout-mode-navigation-menu) |
5e2b4f7225cb
(allout-mode-exposure-menu, allout-mode-editing-menu):
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
1171 (defvar allout-mode-misc-menu) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1172 (defun produce-allout-mode-menubar-entries () |
29490 | 1173 (require 'easymenu) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1174 (easy-menu-define allout-mode-exposure-menu |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1175 allout-mode-map |
29490 | 1176 "Allout outline exposure menu." |
1177 '("Exposure" | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1178 ["Show Entry" allout-show-current-entry t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1179 ["Show Children" allout-show-children t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1180 ["Show Subtree" allout-show-current-subtree t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1181 ["Hide Subtree" allout-hide-current-subtree t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1182 ["Hide Leaves" allout-hide-current-leaves t] |
29490 | 1183 "----" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1184 ["Show All" allout-show-all t])) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1185 (easy-menu-define allout-mode-editing-menu |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1186 allout-mode-map |
29490 | 1187 "Allout outline editing menu." |
1188 '("Headings" | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1189 ["Open Sibling" allout-open-sibtopic t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1190 ["Open Subtopic" allout-open-subtopic t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1191 ["Open Supertopic" allout-open-supertopic t] |
29490 | 1192 "----" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1193 ["Shift Topic In" allout-shift-in t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1194 ["Shift Topic Out" allout-shift-out t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1195 ["Rebullet Topic" allout-rebullet-topic t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1196 ["Rebullet Heading" allout-rebullet-current-heading t] |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1197 ["Number Siblings" allout-number-siblings t] |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1198 "----" |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1199 ["Toggle Topic Encryption" |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1200 allout-toggle-current-subtree-encryption |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1201 (> (allout-current-depth) 1)])) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1202 (easy-menu-define allout-mode-navigation-menu |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1203 allout-mode-map |
29490 | 1204 "Allout outline navigation menu." |
1205 '("Navigation" | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1206 ["Next Visible Heading" allout-next-visible-heading t] |
29490 | 1207 ["Previous Visible Heading" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1208 allout-previous-visible-heading t] |
29490 | 1209 "----" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1210 ["Up Level" allout-up-current-level t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1211 ["Forward Current Level" allout-forward-current-level t] |
29490 | 1212 ["Backward Current Level" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1213 allout-backward-current-level t] |
29490 | 1214 "----" |
1215 ["Beginning of Entry" | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1216 allout-beginning-of-current-entry t] |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1217 ["End of Entry" allout-end-of-entry t] |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1218 ["End of Subtree" allout-end-of-current-subtree t])) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1219 (easy-menu-define allout-mode-misc-menu |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1220 allout-mode-map |
29490 | 1221 "Allout outlines miscellaneous bindings." |
1222 '("Misc" | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1223 ["Version" allout-version t] |
29490 | 1224 "----" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1225 ["Duplicate Exposed" allout-copy-exposed-to-buffer t] |
29490 | 1226 ["Duplicate Exposed, numbered" |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
1227 allout-flatten-exposed-to-buffer t] |
29490 | 1228 ["Duplicate Exposed, indented" |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
1229 allout-indented-exposed-to-buffer t] |
29490 | 1230 "----" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1231 ["Set Header Lead" allout-reset-header-lead t] |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1232 ["Set New Exposure" allout-expose-topic t]))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1233 ;;;_ : Allout Modal-Variables Utilities |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1234 ;;;_ = allout-mode-prior-settings |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1235 (defvar allout-mode-prior-settings nil |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1236 "Internal `allout-mode' use; settings to be resumed on mode deactivation. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1237 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1238 See `allout-add-resumptions' and `allout-do-resumptions'.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1239 (make-variable-buffer-local 'allout-mode-prior-settings) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1240 ;;;_ > allout-add-resumptions (&rest pairs) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1241 (defun allout-add-resumptions (&rest pairs) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1242 "Set name/value PAIRS. |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1243 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1244 Old settings are preserved for later resumption using `allout-do-resumptions'. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1245 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1246 The new values are set as a buffer local. On resumption, the prior buffer |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1247 scope of the variable is restored along with its value. If it was a void |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1248 buffer-local value, then it is left as nil on resumption. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1249 |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1250 The pairs are lists whose car is the name of the variable and car of the |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1251 cdr is the new value: '(some-var some-value)'. The pairs can actually be |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1252 triples, where the third element qualifies the disposition of the setting, |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1253 as described further below. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1254 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1255 If the optional third element is the symbol 'extend, then the new value |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1256 created by `cons'ing the second element of the pair onto the front of the |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1257 existing value. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1258 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1259 If the optional third element is the symbol 'append, then the new value is |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1260 extended from the existing one by `append'ing a list containing the second |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1261 element of the pair onto the end of the existing value. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1262 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1263 Extension, and resumptions in general, should not be used for hook |
79939 | 1264 functions -- use the 'local mode of `add-hook' for that, instead. |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1265 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1266 The settings are stored on `allout-mode-prior-settings'." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1267 (while pairs |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1268 (let* ((pair (pop pairs)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1269 (name (car pair)) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1270 (value (cadr pair)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1271 (qualifier (if (> (length pair) 2) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1272 (caddr pair))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1273 prior-value) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1274 (if (not (symbolp name)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1275 (error "Pair's name, %S, must be a symbol, not %s" |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1276 name (type-of name))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1277 (setq prior-value (condition-case nil |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1278 (symbol-value name) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1279 (void-variable nil))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1280 (when (not (assoc name allout-mode-prior-settings)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1281 ;; Not already added as a resumption, create the prior setting entry. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1282 (if (local-variable-p name) |
79939 | 1283 ;; is already local variable -- preserve the prior value: |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1284 (push (list name prior-value) allout-mode-prior-settings) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1285 ;; wasn't local variable, indicate so for resumption by killing |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1286 ;; local value, and make it local: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1287 (push (list name) allout-mode-prior-settings) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1288 (make-local-variable name))) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1289 (if qualifier |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1290 (cond ((eq qualifier 'extend) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1291 (if (not (listp prior-value)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1292 (error "extension of non-list prior value attempted") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1293 (set name (cons value prior-value)))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1294 ((eq qualifier 'append) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1295 (if (not (listp prior-value)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1296 (error "appending of non-list prior value attempted") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1297 (set name (append prior-value (list value))))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1298 (t (error "unrecognized setting qualifier `%s' encountered" |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1299 qualifier))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1300 (set name value))))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1301 ;;;_ > allout-do-resumptions () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1302 (defun allout-do-resumptions () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1303 "Resume all name/value settings registered by `allout-add-resumptions'. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1304 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1305 This is used when concluding allout-mode, to resume selected variables to |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1306 their settings before allout-mode was started." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1307 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1308 (while allout-mode-prior-settings |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1309 (let* ((pair (pop allout-mode-prior-settings)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1310 (name (car pair)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1311 (value-cell (cdr pair))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1312 (if (not value-cell) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1313 ;; Prior value was global: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1314 (kill-local-variable name) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1315 ;; Prior value was explicit: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1316 (set name (car value-cell)))))) |
29490 | 1317 ;;;_ : Mode-specific incidentals |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1318 ;;;_ > allout-unprotected (expr) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1319 (defmacro allout-unprotected (expr) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1320 "Enable internal outline operations to alter invisible text." |
73003
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
1321 `(let ((inhibit-read-only (if (not buffer-read-only) t)) |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
1322 (inhibit-field-text-motion t)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1323 ,expr)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1324 ;;;_ = allout-mode-hook |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1325 (defvar allout-mode-hook nil |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1326 "*Hook that's run when allout mode starts.") |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1327 ;;;_ = allout-mode-deactivate-hook |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1328 (defvar allout-mode-deactivate-hook nil |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1329 "*Hook that's run when allout mode ends.") |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1330 ;;;_ = allout-exposure-category |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1331 (defvar allout-exposure-category nil |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1332 "Symbol for use as allout invisible-text overlay category.") |
70616
b69cce4ff5a0
2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70256
diff
changeset
|
1333 ;;;_ x allout-view-change-hook |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1334 (defvar allout-view-change-hook nil |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1335 "*(Deprecated) A hook run after allout outline exposure changes. |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1336 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1337 Switch to using `allout-exposure-change-hook' instead. Both hooks are |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1338 currently respected, but the other conveys the details of the exposure |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1339 change via explicit parameters, and this one will eventually be disabled in |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1340 a subsequent allout version.") |
70616
b69cce4ff5a0
2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70256
diff
changeset
|
1341 ;;;_ = allout-exposure-change-hook |
b69cce4ff5a0
2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70256
diff
changeset
|
1342 (defvar allout-exposure-change-hook nil |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1343 "*Hook that's run after allout outline subtree exposure changes. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1344 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1345 It is run at the conclusion of `allout-flag-region'. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1346 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1347 Functions on the hook must take three arguments: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1348 |
79939 | 1349 - FROM -- integer indicating the point at the start of the change. |
1350 - TO -- integer indicating the point of the end of the change. | |
1351 - FLAG -- change mode: nil for exposure, otherwise concealment. | |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1352 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1353 This hook might be invoked multiple times by a single command. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1354 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1355 This hook is replacing `allout-view-change-hook', which is being deprecated |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1356 and eventually will not be invoked.") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1357 ;;;_ = allout-structure-added-hook |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1358 (defvar allout-structure-added-hook nil |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1359 "*Hook that's run after addition of items to the outline. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1360 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1361 Functions on the hook should take two arguments: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1362 |
79939 | 1363 - NEW-START -- integer indicating position of start of the first new item. |
1364 - NEW-END -- integer indicating position of end of the last new item. | |
1365 | |
1366 Some edits that introduce new items may missed by this hook: | |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1367 specifically edits that native allout routines do not control. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1368 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1369 This hook might be invoked multiple times by a single command.") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1370 ;;;_ = allout-structure-deleted-hook |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1371 (defvar allout-structure-deleted-hook nil |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1372 "*Hook that's run after disciplined deletion of subtrees from the outline. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1373 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1374 Functions on the hook must take two arguments: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1375 |
79939 | 1376 - DEPTH -- integer indicating the depth of the subtree that was deleted. |
1377 - REMOVED-FROM -- integer indicating the point where the subtree was removed. | |
1378 | |
1379 Some edits that remove or invalidate items may missed by this hook: | |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1380 specifically edits that native allout routines do not control. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1381 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1382 This hook might be invoked multiple times by a single command.") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1383 ;;;_ = allout-structure-shifted-hook |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1384 (defvar allout-structure-shifted-hook nil |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1385 "*Hook that's run after shifting of items in the outline. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1386 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1387 Functions on the hook should take two arguments: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1388 |
79939 | 1389 - DEPTH-CHANGE -- integer indicating depth increase, negative for decrease |
1390 - START -- integer indicating the start point of the shifted parent item. | |
1391 | |
1392 Some edits that shift items can be missed by this hook: specifically edits | |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1393 that native allout routines do not control. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1394 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1395 This hook might be invoked multiple times by a single command.") |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1396 ;;;_ = allout-outside-normal-auto-fill-function |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1397 (defvar allout-outside-normal-auto-fill-function nil |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1398 "Value of normal-auto-fill-function outside of allout mode. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1399 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1400 Used by allout-auto-fill to do the mandated normal-auto-fill-function |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1401 wrapped within allout's automatic fill-prefix setting.") |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1402 (make-variable-buffer-local 'allout-outside-normal-auto-fill-function) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1403 ;;;_ = file-var-bug hack |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1404 (defvar allout-v18/19-file-var-hack nil |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1405 "Horrible hack used to prevent invalid multiple triggering of outline |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
1406 mode from prop-line file-var activation. Used by `allout-mode' function |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1407 to track repeats.") |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1408 ;;;_ = allout-passphrase-verifier-string |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1409 (defvar allout-passphrase-verifier-string nil |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1410 "Setting used to test solicited encryption passphrases against the one |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1411 already associated with a file. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1412 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1413 It consists of an encrypted random string useful only to verify that a |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1414 passphrase entered by the user is effective for decryption. The passphrase |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1415 itself is \*not* recorded in the file anywhere, and the encrypted contents |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1416 are random binary characters to avoid exposing greater susceptibility to |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1417 search attacks. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1418 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1419 The verifier string is retained as an Emacs file variable, as well as in |
73763
89b9e8184350
(allout-adjust-file-variable, allout-passphrase-verifier-string,
Juanma Barranquero <lekktu@gmail.com>
parents:
73660
diff
changeset
|
1420 the Emacs buffer state, if file variable adjustments are enabled. See |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1421 `allout-enable-file-variable-adjustment' for details about that.") |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1422 (make-variable-buffer-local 'allout-passphrase-verifier-string) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
1423 ;;;###autoload |
70225
81a284d45346
(allout-layout, allout-passphrase-verifier-string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70002
diff
changeset
|
1424 (put 'allout-passphrase-verifier-string 'safe-local-variable 'stringp) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1425 ;;;_ = allout-passphrase-hint-string |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1426 (defvar allout-passphrase-hint-string "" |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1427 "Variable used to retain reminder string for file's encryption passphrase. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1428 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1429 See the description of `allout-passphrase-hint-handling' for details about how |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1430 the reminder is deployed. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1431 |
73763
89b9e8184350
(allout-adjust-file-variable, allout-passphrase-verifier-string,
Juanma Barranquero <lekktu@gmail.com>
parents:
73660
diff
changeset
|
1432 The hint is retained as an Emacs file variable, as well as in the Emacs buffer |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1433 state, if file variable adjustments are enabled. See |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1434 `allout-enable-file-variable-adjustment' for details about that.") |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1435 (make-variable-buffer-local 'allout-passphrase-hint-string) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
1436 (setq-default allout-passphrase-hint-string "") |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
1437 ;;;###autoload |
70225
81a284d45346
(allout-layout, allout-passphrase-verifier-string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70002
diff
changeset
|
1438 (put 'allout-passphrase-hint-string 'safe-local-variable 'stringp) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1439 ;;;_ = allout-after-save-decrypt |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1440 (defvar allout-after-save-decrypt nil |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1441 "Internal variable, is nil or has the value of two points: |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1442 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1443 - the location of a topic to be decrypted after saving is done |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1444 - where to situate the cursor after the decryption is performed |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1445 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1446 This is used to decrypt the topic that was currently being edited, if it |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1447 was encrypted automatically as part of a file write or autosave.") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1448 (make-variable-buffer-local 'allout-after-save-decrypt) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1449 ;;;_ = allout-encryption-plaintext-sanitization-regexps |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1450 (defvar allout-encryption-plaintext-sanitization-regexps nil |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1451 "List of regexps whose matches are removed from plaintext before encryption. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1452 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1453 This is for the sake of removing artifacts, like escapes, that are added on |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1454 and not actually part of the original plaintext. The removal is done just |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1455 prior to encryption. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1456 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1457 Entries must be symbols that are bound to the desired values. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1458 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1459 Each value can be a regexp or a list with a regexp followed by a |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1460 substitution string. If it's just a regexp, all its matches are removed |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1461 before the text is encrypted. If it's a regexp and a substitution, the |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1462 substition is used against the regexp matches, a la `replace-match'.") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1463 (make-variable-buffer-local 'allout-encryption-text-removal-regexps) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1464 ;;;_ = allout-encryption-ciphertext-rejection-regexps |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1465 (defvar allout-encryption-ciphertext-rejection-regexps nil |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1466 "Variable for regexps matching plaintext to remove before encryption. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1467 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1468 This is for the sake of redoing encryption in cases where the ciphertext |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
1469 incidentally contains strings that would disrupt mode operation -- |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1470 for example, a line that happens to look like an allout-mode topic prefix. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1471 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1472 Entries must be symbols that are bound to the desired regexp values. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1473 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1474 The encryption will be retried up to |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1475 `allout-encryption-ciphertext-rejection-limit' times, after which an error |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1476 is raised.") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1477 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1478 (make-variable-buffer-local 'allout-encryption-ciphertext-rejection-regexps) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1479 ;;;_ = allout-encryption-ciphertext-rejection-ceiling |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1480 (defvar allout-encryption-ciphertext-rejection-ceiling 5 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1481 "Limit on number of times encryption ciphertext is rejected. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1482 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1483 See `allout-encryption-ciphertext-rejection-regexps' for rejection reasons.") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1484 (make-variable-buffer-local 'allout-encryption-ciphertext-rejection-ceiling) |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1485 ;;;_ > allout-mode-p () |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1486 ;; Must define this macro above any uses, or byte compilation will lack |
79939 | 1487 ;; proper def, if file isn't loaded -- eg, during emacs build! |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1488 (defmacro allout-mode-p () |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1489 "Return t if `allout-mode' is active in current buffer." |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1490 'allout-mode) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1491 ;;;_ > allout-write-file-hook-handler () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1492 (defun allout-write-file-hook-handler () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1493 "Implement `allout-encrypt-unencrypted-on-saves' policy for file writes." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1494 |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1495 (if (or (not (allout-mode-p)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1496 (not (boundp 'allout-encrypt-unencrypted-on-saves)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1497 (not allout-encrypt-unencrypted-on-saves)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1498 nil |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1499 (let ((except-mark (and (equal allout-encrypt-unencrypted-on-saves |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1500 'except-current) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1501 (point-marker)))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1502 (if (save-excursion (goto-char (point-min)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1503 (allout-next-topic-pending-encryption except-mark)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1504 (progn |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1505 (message "auto-encrypting pending topics") |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1506 (sit-for 0) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1507 (condition-case failure |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1508 (setq allout-after-save-decrypt |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1509 (allout-encrypt-decrypted except-mark)) |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1510 (error (message |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1511 "allout-write-file-hook-handler suppressing error %s" |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1512 failure) |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1513 (sit-for 2))))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1514 )) |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
1515 nil) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1516 ;;;_ > allout-auto-save-hook-handler () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1517 (defun allout-auto-save-hook-handler () |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1518 "Implement `allout-encrypt-unencrypted-on-saves' policy for auto save." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1519 |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1520 (if (and (allout-mode-p) allout-encrypt-unencrypted-on-saves) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1521 ;; Always implement 'except-current policy when enabled. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1522 (let ((allout-encrypt-unencrypted-on-saves 'except-current)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1523 (allout-write-file-hook-handler)))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1524 ;;;_ > allout-after-saves-handler () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1525 (defun allout-after-saves-handler () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1526 "Decrypt topic encrypted for save, if it's currently being edited. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1527 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1528 Ie, if it was pending encryption and contained the point in its body before |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1529 the save. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1530 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1531 We use values stored in `allout-after-save-decrypt' to locate the topic |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1532 and the place for the cursor after the decryption is done." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1533 (if (not (and (allout-mode-p) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1534 (boundp 'allout-after-save-decrypt) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1535 allout-after-save-decrypt)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1536 t |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1537 (goto-char (car allout-after-save-decrypt)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1538 (let ((was-modified (buffer-modified-p))) |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1539 (allout-toggle-subtree-encryption) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1540 (if (not was-modified) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1541 (set-buffer-modified-p nil))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1542 (goto-char (cadr allout-after-save-decrypt)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1543 (setq allout-after-save-decrypt nil)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1544 ) |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1545 ;;;_ = allout-inhibit-aberrance-doublecheck nil |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1546 ;; In some exceptional moments, disparate topic depths need to be allowed |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1547 ;; momentarily, eg when one topic is being yanked into another and they're |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1548 ;; about to be reconciled. let-binding allout-inhibit-aberrance-doublecheck |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1549 ;; prevents the aberrance doublecheck to allow, eg, the reconciliation |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1550 ;; processing to happen in the presence of such discrepancies. It should |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1551 ;; almost never be needed, however. |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1552 (defvar allout-inhibit-aberrance-doublecheck nil |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1553 "Internal state, for momentarily inhibits aberrance doublecheck. |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1554 |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1555 This should only be momentarily let-bound non-nil, not set |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
1556 non-nil in a lasting way.") |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1557 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1558 ;;;_ #2 Mode activation |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1559 ;;;_ = allout-explicitly-deactivated |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1560 (defvar allout-explicitly-deactivated nil |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1561 "If t, `allout-mode's last deactivation was deliberate. |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
1562 So `allout-post-command-business' should not reactivate it...") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1563 (make-variable-buffer-local 'allout-explicitly-deactivated) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1564 ;;;_ > allout-init (&optional mode) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1565 (defun allout-init (&optional mode) |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
1566 "Prime `allout-mode' to enable/disable auto-activation, wrt `allout-layout'. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1567 |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1568 MODE is one of the following symbols: |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1569 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1570 - nil (or no argument) deactivate auto-activation/layout; |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
1571 - `activate', enable auto-activation only; |
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
1572 - `ask', enable auto-activation, and enable auto-layout but with |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
1573 confirmation for layout operation solicited from user each time; |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
1574 - `report', just report and return the current auto-activation state; |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1575 - anything else (eg, t) for auto-activation and auto-layout, without |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1576 any confirmation check. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1577 |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
1578 Use this function to setup your Emacs session for automatic activation |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1579 of allout outline mode, contingent to the buffer-specific setting of |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1580 the `allout-layout' variable. (See `allout-layout' and |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1581 `allout-expose-topic' docstrings for more details on auto layout). |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1582 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1583 `allout-init' works by setting up (or removing) the `allout-mode' |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1584 find-file-hook, and giving `allout-auto-activation' a suitable |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1585 setting. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1586 |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
1587 To prime your Emacs session for full auto-outline operation, include |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
1588 the following two lines in your Emacs init file: |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1589 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1590 \(require 'allout) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1591 \(allout-init t)" |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1592 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1593 (interactive) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1594 (if (interactive-p) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1595 (progn |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1596 (setq mode |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1597 (completing-read |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1598 (concat "Select outline auto setup mode " |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1599 "(empty for report, ? for options) ") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1600 '(("nil")("full")("activate")("deactivate") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1601 ("ask") ("report") ("")) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1602 nil |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1603 t)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1604 (if (string= mode "") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1605 (setq mode 'report) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1606 (setq mode (intern-soft mode))))) |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1607 (let |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1608 ;; convenience aliases, for consistent ref to respective vars: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1609 ((hook 'allout-find-file-hook) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1610 (find-file-hook-var-name (if (boundp 'find-file-hook) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1611 'find-file-hook |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1612 'find-file-hooks)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1613 (curr-mode 'allout-auto-activation)) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
1614 |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1615 (cond ((not mode) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1616 (set find-file-hook-var-name |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1617 (delq hook (symbol-value find-file-hook-var-name))) |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1618 (if (interactive-p) |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1619 (message "Allout outline mode auto-activation inhibited."))) |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1620 ((eq mode 'report) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1621 (if (not (memq hook (symbol-value find-file-hook-var-name))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1622 (allout-init nil) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1623 ;; Just punt and use the reports from each of the modes: |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1624 (allout-init (symbol-value curr-mode)))) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1625 (t (add-hook find-file-hook-var-name hook) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
1626 (set curr-mode ; `set', not `setq'! |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1627 (cond ((eq mode 'activate) |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1628 (message |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1629 "Outline mode auto-activation enabled.") |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1630 'activate) |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1631 ((eq mode 'report) |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1632 ;; Return the current mode setting: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1633 (allout-init mode)) |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1634 ((eq mode 'ask) |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1635 (message |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1636 (concat "Outline mode auto-activation and " |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1637 "-layout (upon confirmation) enabled.")) |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1638 'ask) |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1639 ((message |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1640 "Outline mode auto-activation and -layout enabled.") |
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
1641 'full))))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1642 ;;;_ > allout-setup-menubar () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1643 (defun allout-setup-menubar () |
48858
f4d079377a9a
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48857
diff
changeset
|
1644 "Populate the current buffer's menubar with `allout-mode' stuff." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1645 (let ((menus (list allout-mode-exposure-menu |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1646 allout-mode-editing-menu |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1647 allout-mode-navigation-menu |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1648 allout-mode-misc-menu)) |
29490 | 1649 cur) |
1650 (while menus | |
1651 (setq cur (car menus) | |
1652 menus (cdr menus)) | |
1653 (easy-menu-add cur)))) | |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1654 ;;;_ > allout-overlay-preparations |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1655 (defun allout-overlay-preparations () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1656 "Set the properties of the allout invisible-text overlay and others." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1657 (setplist 'allout-exposure-category nil) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1658 (put 'allout-exposure-category 'invisible 'allout) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1659 (put 'allout-exposure-category 'evaporate t) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1660 ;; XXX We use isearch-open-invisible *and* isearch-mode-end-hook. The |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
1661 ;; latter would be sufficient, but it seems that a separate behavior -- |
79939 | 1662 ;; the _transient_ opening of invisible text during isearch -- is keyed to |
1663 ;; presence of the isearch-open-invisible property -- even though this | |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1664 ;; property controls the isearch _arrival_ behavior. This is the case at |
92337
a1a12ed4e5e2
(allout-topic-encryption-bullet)
Glenn Morris <rgm@gnu.org>
parents:
88056
diff
changeset
|
1665 ;; least in emacs 21, 22.1, and xemacs 21.4. |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1666 (put 'allout-exposure-category 'isearch-open-invisible |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1667 'allout-isearch-end-handler) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1668 (if (featurep 'xemacs) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1669 (put 'allout-exposure-category 'start-open t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1670 (put 'allout-exposure-category 'insert-in-front-hooks |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1671 '(allout-overlay-insert-in-front-handler))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1672 (put 'allout-exposure-category 'modification-hooks |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1673 '(allout-overlay-interior-modification-handler))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1674 ;;;_ > allout-mode (&optional toggle) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1675 ;;;_ : Defun: |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
1676 ;;;###autoload |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1677 (defun allout-mode (&optional toggle) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1678 ;;;_ . Doc string: |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1679 "Toggle minor mode for controlling exposure and editing of text outlines. |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1680 \\<allout-mode-map> |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1681 |
78492
7c8949dbfa0d
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
1682 Optional prefix argument TOGGLE forces the mode to re-initialize |
7c8949dbfa0d
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
1683 if it is positive, otherwise it turns the mode off. Allout |
7c8949dbfa0d
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
1684 outline mode always runs as a minor mode. |
29490 | 1685 |
48858
f4d079377a9a
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48857
diff
changeset
|
1686 Allout outline mode provides extensive outline oriented formatting and |
29490 | 1687 manipulation. It enables structural editing of outlines, as well as |
1688 navigation and exposure. It also is specifically aimed at | |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1689 accommodating syntax-sensitive text like programming languages. (For |
29490 | 1690 an example, see the allout code itself, which is organized as an allout |
1691 outline.) | |
1692 | |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1693 In addition to typical outline navigation and exposure, allout includes: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1694 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1695 - topic-oriented authoring, including keystroke-based topic creation, |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1696 repositioning, promotion/demotion, cut, and paste |
29490 | 1697 - incremental search with dynamic exposure and reconcealment of hidden text |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1698 - adjustable format, so programming code can be developed in outline-structure |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1699 - easy topic encryption and decryption |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1700 - \"Hot-spot\" operation, for single-keystroke maneuvering and exposure control |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1701 - integral outline layout, for automatic initial exposure when visiting a file |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1702 - independent extensibility, using comprehensive exposure and authoring hooks |
29490 | 1703 |
1704 and many other features. | |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1705 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1706 Below is a description of the key bindings, and then explanation of |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
1707 special `allout-mode' features and terminology. See also the outline |
29490 | 1708 menubar additions for quick reference to many of the features, and see |
54458
a0176bcc103f
(allout-mode): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
54223
diff
changeset
|
1709 the docstring of the function `allout-init' for instructions on |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1710 priming your emacs session for automatic activation of `allout-mode'. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1711 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1712 The bindings are dictated by the customizable `allout-keybindings-list' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1713 variable. We recommend customizing `allout-command-prefix' to use just |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1714 `\\C-c' as the command prefix, if the allout bindings don't conflict with |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1715 any personal bindings you have on \\C-c. In any case, outline structure |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1716 navigation and authoring is simplified by positioning the cursor on an |
79939 | 1717 item's bullet character, the \"hot-spot\" -- then you can invoke allout |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1718 commands with just the un-prefixed, un-control-shifted command letters. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1719 This is described further in the HOT-SPOT Operation section. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1720 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1721 Exposure Control: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1722 ---------------- |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1723 \\[allout-hide-current-subtree] `allout-hide-current-subtree' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1724 \\[allout-show-children] `allout-show-children' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1725 \\[allout-show-current-subtree] `allout-show-current-subtree' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1726 \\[allout-show-current-entry] `allout-show-current-entry' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1727 \\[allout-show-all] `allout-show-all' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1728 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1729 Navigation: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1730 ---------- |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1731 \\[allout-next-visible-heading] `allout-next-visible-heading' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1732 \\[allout-previous-visible-heading] `allout-previous-visible-heading' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1733 \\[allout-up-current-level] `allout-up-current-level' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1734 \\[allout-forward-current-level] `allout-forward-current-level' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1735 \\[allout-backward-current-level] `allout-backward-current-level' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1736 \\[allout-end-of-entry] `allout-end-of-entry' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1737 \\[allout-beginning-of-current-entry] `allout-beginning-of-current-entry' (alternately, goes to hot-spot) |
79939 | 1738 \\[allout-beginning-of-line] `allout-beginning-of-line' -- like regular beginning-of-line, but |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1739 if immediately repeated cycles to the beginning of the current item |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1740 and then to the hot-spot (if `allout-beginning-of-line-cycles' is set). |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1741 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1742 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1743 Topic Header Production: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1744 ----------------------- |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1745 \\[allout-open-sibtopic] `allout-open-sibtopic' Create a new sibling after current topic. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1746 \\[allout-open-subtopic] `allout-open-subtopic' ... an offspring of current topic. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1747 \\[allout-open-supertopic] `allout-open-supertopic' ... a sibling of the current topic's parent. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1748 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1749 Topic Level and Prefix Adjustment: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1750 --------------------------------- |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1751 \\[allout-shift-in] `allout-shift-in' Shift current topic and all offspring deeper |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1752 \\[allout-shift-out] `allout-shift-out' ... less deep |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1753 \\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1754 current topic |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1755 \\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and |
79939 | 1756 its' offspring -- distinctive bullets are not changed, others |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1757 are alternated according to nesting depth. |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
1758 \\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings -- |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1759 the offspring are not affected. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1760 With repeat count, revoke numbering. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1761 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1762 Topic-oriented Killing and Yanking: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1763 ---------------------------------- |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1764 \\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1765 \\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1766 \\[allout-kill-line] `allout-kill-line' kill-line, attending to outline structure. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1767 \\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1768 \\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1769 depth of heading if yanking into bare topic |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1770 heading (ie, prefix sans text). |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1771 \\[allout-yank-pop] `allout-yank-pop' Is to allout-yank as yank-pop is to yank |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1772 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1773 Topic-oriented Encryption: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1774 ------------------------- |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1775 \\[allout-toggle-current-subtree-encryption] `allout-toggle-current-subtree-encryption' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1776 Encrypt/Decrypt topic content |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1777 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1778 Misc commands: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1779 ------------- |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1780 M-x outlineify-sticky Activate outline mode for current buffer, |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1781 and establish a default file-var setting |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1782 for `allout-layout'. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1783 \\[allout-mark-topic] `allout-mark-topic' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1784 \\[allout-copy-exposed-to-buffer] `allout-copy-exposed-to-buffer' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1785 Duplicate outline, sans concealed text, to |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1786 buffer with name derived from derived from that |
79939 | 1787 of current buffer -- \"*BUFFERNAME exposed*\". |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1788 \\[allout-flatten-exposed-to-buffer] `allout-flatten-exposed-to-buffer' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1789 Like above 'copy-exposed', but convert topic |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1790 prefixes to section.subsection... numeric |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1791 format. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1792 \\[eval-expression] (allout-init t) Setup Emacs session for outline mode |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1793 auto-activation. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1794 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1795 Topic Encryption |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1796 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1797 Outline mode supports gpg encryption of topics, with support for |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1798 symmetric and key-pair modes, passphrase timeout, passphrase |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1799 consistency checking, user-provided hinting for symmetric key |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1800 mode, and auto-encryption of topics pending encryption on save. |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1801 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1802 Topics pending encryption are, by default, automatically |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1803 encrypted during file saves. If the contents of the topic |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1804 containing the cursor was encrypted for a save, it is |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1805 automatically decrypted for continued editing. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1806 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1807 The aim of these measures is reliable topic privacy while |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1808 preventing accidents like neglected encryption before saves, |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1809 forgetting which passphrase was used, and other practical |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1810 pitfalls. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1811 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1812 See `allout-toggle-current-subtree-encryption' function docstring |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1813 and `allout-encrypt-unencrypted-on-saves' customization variable |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1814 for details. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1815 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1816 HOT-SPOT Operation |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1817 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1818 Hot-spot operation provides a means for easy, single-keystroke outline |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1819 navigation and exposure control. |
3430 | 1820 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1821 When the text cursor is positioned directly on the bullet character of |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1822 a topic, regular characters (a to z) invoke the commands of the |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1823 corresponding allout-mode keymap control chars. For example, \"f\" |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1824 would invoke the command typically bound to \"C-c<space>C-f\" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1825 \(\\[allout-forward-current-level] `allout-forward-current-level'). |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1826 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1827 Thus, by positioning the cursor on a topic bullet, you can |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1828 execute the outline navigation and manipulation commands with a |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1829 single keystroke. Regular navigation keys (eg, \\[forward-char], \\[next-line]) don't get |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1830 this special translation, so you can use them to get out of the |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1831 hot-spot and back to normal editing operation. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1832 |
99841
fd7d46b20afe
* allout.el (allout-mode): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
95241
diff
changeset
|
1833 In allout-mode, the normal beginning-of-line command (\\[allout-beginning-of-line]) is |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1834 replaced with one that makes it easy to get to the hot-spot. If you |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1835 repeat it immediately it cycles (if `allout-beginning-of-line-cycles' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1836 is set) to the beginning of the item and then, if you hit it again |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1837 immediately, to the hot-spot. Similarly, `allout-beginning-of-current-entry' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1838 \(\\[allout-beginning-of-current-entry]) moves to the hot-spot when the cursor is already located |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1839 at the beginning of the current entry. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1840 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1841 Extending Allout |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1842 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1843 Allout exposure and authoring activites all have associated |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1844 hooks, by which independent code can cooperate with allout |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1845 without changes to the allout core. Here are key ones: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1846 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1847 `allout-mode-hook' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1848 `allout-mode-deactivate-hook' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1849 `allout-exposure-change-hook' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1850 `allout-structure-added-hook' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1851 `allout-structure-deleted-hook' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1852 `allout-structure-shifted-hook' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1853 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1854 Terminology |
3430 | 1855 |
79939 | 1856 Topic hierarchy constituents -- TOPICS and SUBTOPICS: |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1857 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1858 ITEM: A unitary outline element, including the HEADER and ENTRY text. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1859 TOPIC: An ITEM and any ITEMs contained within it, ie having greater DEPTH |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1860 and with no intervening items of lower DEPTH than the container. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1861 CURRENT ITEM: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1862 The visible ITEM most immediately containing the cursor. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1863 DEPTH: The degree of nesting of an ITEM; it increases with containment. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1864 The DEPTH is determined by the HEADER PREFIX. The DEPTH is also |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1865 called the: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1866 LEVEL: The same as DEPTH. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1867 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1868 ANCESTORS: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1869 Those ITEMs whose TOPICs contain an ITEM. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1870 PARENT: An ITEM's immediate ANCESTOR. It has a DEPTH one less than that |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1871 of the ITEM. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1872 OFFSPRING: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1873 The ITEMs contained within an ITEM's TOPIC. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1874 SUBTOPIC: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1875 An OFFSPRING of its ANCESTOR TOPICs. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1876 CHILD: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1877 An immediate SUBTOPIC of its PARENT. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1878 SIBLINGS: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1879 TOPICs having the same PARENT and DEPTH. |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
1880 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1881 Topic text constituents: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1882 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1883 HEADER: The first line of an ITEM, include the ITEM PREFIX and HEADER |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1884 text. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1885 ENTRY: The text content of an ITEM, before any OFFSPRING, but including |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1886 the HEADER text and distinct from the ITEM PREFIX. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1887 BODY: Same as ENTRY. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1888 PREFIX: The leading text of an ITEM which distinguishes it from normal |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1889 ENTRY text. Allout recognizes the outline structure according |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1890 to the strict PREFIX format. It consists of a PREFIX-LEAD string, |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1891 PREFIX-PADDING, and a BULLET. The BULLET might be followed by a |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1892 number, indicating the ordinal number of the topic among its |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1893 siblings, or an asterisk indicating encryption, plus an optional |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1894 space. After that is the ITEM HEADER text, which is not part of |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1895 the PREFIX. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1896 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1897 The relative length of the PREFIX determines the nesting DEPTH |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1898 of the ITEM. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1899 PREFIX-LEAD: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1900 The string at the beginning of a HEADER PREFIX, by default a `.'. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1901 It can be customized by changing the setting of |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1902 `allout-header-prefix' and then reinitializing `allout-mode'. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1903 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1904 When the PREFIX-LEAD is set to the comment-string of a |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1905 programming language, outline structuring can be embedded in |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1906 program code without interfering with processing of the text |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1907 (by emacs or the language processor) as program code. This |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1908 setting happens automatically when allout mode is used in |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1909 programming-mode buffers. See `allout-use-mode-specific-leader' |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1910 docstring for more detail. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1911 PREFIX-PADDING: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1912 Spaces or asterisks which separate the PREFIX-LEAD and the |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1913 bullet, determining the ITEM's DEPTH. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1914 BULLET: A character at the end of the ITEM PREFIX, it must be one of |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1915 the characters listed on `allout-plain-bullets-string' or |
76204
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
1916 `allout-distinctive-bullets-string'. When creating a TOPIC, |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
1917 plain BULLETs are by default used, according to the DEPTH of the |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
1918 TOPIC. Choice among the distinctive BULLETs is offered when you |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
1919 provide a universal argugment \(\\[universal-argument]) to the |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
1920 TOPIC creation command, or when explictly rebulleting a TOPIC. The |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
1921 significance of the various distinctive bullets is purely by |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
1922 convention. See the documentation for the above bullet strings for |
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
1923 more details. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1924 EXPOSURE: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1925 The state of a TOPIC which determines the on-screen visibility |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1926 of its OFFSPRING and contained ENTRY text. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1927 CONCEALED: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1928 TOPICs and ENTRY text whose EXPOSURE is inhibited. Concealed |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1929 text is represented by \"...\" ellipses. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1930 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1931 CONCEALED TOPICs are effectively collapsed within an ANCESTOR. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1932 CLOSED: A TOPIC whose immediate OFFSPRING and body-text is CONCEALED. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
1933 OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1934 ;;;_ . Code |
3430 | 1935 (interactive "P") |
1936 | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1937 (let* ((active (and (not (equal major-mode 'outline)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1938 (allout-mode-p))) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
1939 ; Massage universal-arg `toggle' val: |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1940 (toggle (and toggle |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1941 (or (and (listp toggle)(car toggle)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1942 toggle))) |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
1943 ; Activation specifically demanded? |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1944 (explicit-activation (and toggle |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1945 (or (symbolp toggle) |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1946 (and (wholenump toggle) |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
1947 (not (zerop toggle)))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1948 ;; allout-mode already called once during this complex command? |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1949 (same-complex-command (eq allout-v18/19-file-var-hack |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1950 (car command-history))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1951 (write-file-hook-var-name (cond ((boundp 'write-file-functions) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1952 'write-file-functions) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1953 ((boundp 'write-file-hooks) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1954 'write-file-hooks) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1955 (t 'local-write-file-hooks))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1956 do-layout |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1957 ) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1958 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1959 ; See comments below re v19.18,.19 bug. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1960 (setq allout-v18/19-file-var-hack (car command-history)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1961 |
3430 | 1962 (cond |
1963 | |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
1964 ;; Provision for v19.18, 19.19 bug -- |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1965 ;; Emacs v 19.18, 19.19 file-var code invokes prop-line-designated |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1966 ;; modes twice when file is visited. We have to avoid toggling mode |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1967 ;; off on second invocation, so we detect it as best we can, and |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1968 ;; skip everything. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1969 ((and same-complex-command ; Still in same complex command |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
1970 ; as last time `allout-mode' invoked. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1971 active ; Already activated. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1972 (not explicit-activation) ; Prop-line file-vars don't have args. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1973 (string-match "^19.1[89]" ; Bug only known to be in v19.18 and |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1974 emacs-version)); 19.19. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1975 t) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
1976 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1977 ;; Deactivation: |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
1978 ((and (not explicit-activation) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1979 (or active toggle)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1980 ; Activation not explicitly |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1981 ; requested, and either in |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1982 ; active state or *de*activation |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
1983 ; specifically requested: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
1984 (setq allout-explicitly-deactivated t) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1985 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1986 (allout-do-resumptions) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1987 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
1988 (remove-from-invisibility-spec '(allout . t)) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1989 (remove-hook 'pre-command-hook 'allout-pre-command-business t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1990 (remove-hook 'post-command-hook 'allout-post-command-business t) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
1991 (remove-hook 'before-change-functions 'allout-before-change-handler t) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1992 (remove-hook 'isearch-mode-end-hook 'allout-isearch-end-handler t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1993 (remove-hook write-file-hook-var-name 'allout-write-file-hook-handler t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1994 (remove-hook 'auto-save-hook 'allout-auto-save-hook-handler t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1995 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1996 (remove-overlays (point-min) (point-max) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1997 'category 'allout-exposure-category) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
1998 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
1999 (setq allout-mode nil) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2000 (run-hooks 'allout-mode-deactivate-hook)) |
3430 | 2001 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2002 ;; Activation: |
3430 | 2003 ((not active) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2004 (setq allout-explicitly-deactivated nil) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2005 (if allout-old-style-prefixes |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2006 ;; Inhibit all the fancy formatting: |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2007 (allout-add-resumptions '(allout-primary-bullet "*"))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2008 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2009 (allout-overlay-preparations) ; Doesn't hurt to redo this. |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2010 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2011 (allout-infer-header-lead-and-primary-bullet) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2012 (allout-infer-body-reindent) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2013 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2014 (set-allout-regexp) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2015 (allout-add-resumptions |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2016 '(allout-encryption-ciphertext-rejection-regexps |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2017 allout-line-boundary-regexp |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2018 extend) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2019 '(allout-encryption-ciphertext-rejection-regexps |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2020 allout-bob-regexp |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2021 extend)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2022 |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2023 ;; Produce map from current version of allout-keybindings-list: |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2024 (allout-setup-mode-map) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2025 (produce-allout-mode-menubar-entries) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2026 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2027 ;; Include on minor-mode-map-alist, if not already there: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2028 (if (not (member '(allout-mode . allout-mode-map) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2029 minor-mode-map-alist)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2030 (setq minor-mode-map-alist |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2031 (cons '(allout-mode . allout-mode-map) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2032 minor-mode-map-alist))) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
2033 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2034 (add-to-invisibility-spec '(allout . t)) |
76204
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
2035 |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2036 (allout-add-resumptions '(line-move-ignore-invisible t)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2037 (add-hook 'pre-command-hook 'allout-pre-command-business nil t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2038 (add-hook 'post-command-hook 'allout-post-command-business nil t) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2039 (add-hook 'before-change-functions 'allout-before-change-handler |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2040 nil t) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2041 (add-hook 'isearch-mode-end-hook 'allout-isearch-end-handler nil t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2042 (add-hook write-file-hook-var-name 'allout-write-file-hook-handler |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2043 nil t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2044 (add-hook 'auto-save-hook 'allout-auto-save-hook-handler |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2045 nil t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2046 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2047 ;; Stash auto-fill settings and adjust so custom allout auto-fill |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2048 ;; func will be used if auto-fill is active or activated. (The |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2049 ;; custom func respects topic headline, maintains hanging-indents, |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2050 ;; etc.) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2051 (if (and auto-fill-function (not allout-inhibit-auto-fill)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2052 ;; allout-auto-fill will use the stashed values and so forth. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2053 (allout-add-resumptions '(auto-fill-function allout-auto-fill))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2054 (allout-add-resumptions (list 'allout-former-auto-filler |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2055 auto-fill-function) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2056 ;; Register allout-auto-fill to be used if |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2057 ;; filling is active: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2058 (list 'allout-outside-normal-auto-fill-function |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2059 normal-auto-fill-function) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2060 '(normal-auto-fill-function allout-auto-fill) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2061 ;; Paragraphs are broken by topic headlines. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2062 (list 'paragraph-start |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2063 (concat paragraph-start "\\|^\\(" |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2064 allout-regexp "\\)")) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2065 (list 'paragraph-separate |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2066 (concat paragraph-separate "\\|^\\(" |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2067 allout-regexp "\\)"))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2068 (or (assq 'allout-mode minor-mode-alist) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2069 (setq minor-mode-alist |
48858
f4d079377a9a
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48857
diff
changeset
|
2070 (cons '(allout-mode " Allout") minor-mode-alist))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2071 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2072 (allout-setup-menubar) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2073 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2074 (if allout-layout |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2075 (setq do-layout t)) |
3430 | 2076 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2077 (setq allout-mode t) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2078 (run-hooks 'allout-mode-hook)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2079 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2080 ;; Reactivation: |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
2081 ((setq do-layout t) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2082 (allout-infer-body-reindent)) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2083 ) ;; end of activation-mode cases. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2084 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2085 ;; Do auto layout if warranted: |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2086 (let ((use-layout (if (listp allout-layout) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2087 allout-layout |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2088 allout-default-layout))) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2089 (if (and do-layout |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2090 allout-auto-activation |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2091 use-layout |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2092 (and (not (eq allout-auto-activation 'activate)) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2093 (if (eq allout-auto-activation 'ask) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2094 (if (y-or-n-p (format "Expose %s with layout '%s'? " |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2095 (buffer-name) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2096 use-layout)) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2097 t |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2098 (message "Skipped %s layout." (buffer-name)) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2099 nil) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2100 t))) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2101 (save-excursion |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2102 (message "Adjusting '%s' exposure..." (buffer-name)) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2103 (goto-char 0) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2104 (allout-this-or-next-heading) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2105 (condition-case err |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2106 (progn |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2107 (apply 'allout-expose-topic (list use-layout)) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2108 (message "Adjusting '%s' exposure... done." (buffer-name))) |
79939 | 2109 ;; Problem applying exposure -- notify user, but don't |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2110 ;; interrupt, eg, file visit: |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2111 (error (message "%s" (car (cdr err))) |
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2112 (sit-for 1)))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2113 allout-mode |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2114 ) ; let* |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2115 ) ; defun |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2116 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2117 (defun allout-setup-mode-map () |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2118 "Establish allout-mode bindings." |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2119 (setq-default allout-mode-map |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2120 (produce-allout-mode-map allout-keybindings-list)) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2121 (setq allout-mode-map |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2122 (produce-allout-mode-map allout-keybindings-list)) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2123 (substitute-key-definition 'beginning-of-line |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2124 'allout-beginning-of-line |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2125 allout-mode-map global-map) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2126 (substitute-key-definition 'move-beginning-of-line |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2127 'allout-beginning-of-line |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2128 allout-mode-map global-map) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2129 (substitute-key-definition 'end-of-line |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2130 'allout-end-of-line |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2131 allout-mode-map global-map) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2132 (substitute-key-definition 'move-end-of-line |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2133 'allout-end-of-line |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2134 allout-mode-map global-map) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2135 (fset 'allout-mode-map allout-mode-map)) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2136 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2137 ;; ensure that allout-mode-map has some setting even if allout-mode hasn't |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2138 ;; been invoked: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2139 (allout-setup-mode-map) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2140 |
69250
85c3b33d6427
Restablished intermediate missing comment header to preserve outline structure.
Eli Zaretskii <eliz@gnu.org>
parents:
69124
diff
changeset
|
2141 ;;;_ > allout-minor-mode |
85c3b33d6427
Restablished intermediate missing comment header to preserve outline structure.
Eli Zaretskii <eliz@gnu.org>
parents:
69124
diff
changeset
|
2142 (defalias 'allout-minor-mode 'allout-mode) |
68956
af2db645bc9d
(allout-hidden-p): Move this defsubts before
Eli Zaretskii <eliz@gnu.org>
parents:
68953
diff
changeset
|
2143 |
79920
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2144 ;;;_ > allout-unload-function |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2145 (defun allout-unload-function () |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2146 "Unload the allout outline library." |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2147 (save-current-buffer |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2148 (dolist (buffer (buffer-list)) |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2149 (set-buffer buffer) |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2150 (when allout-mode (allout-mode -1)))) |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2151 ;; continue standard unloading |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2152 nil) |
5096ade2d1f5
(allout-unload-function): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
79915
diff
changeset
|
2153 |
68956
af2db645bc9d
(allout-hidden-p): Move this defsubts before
Eli Zaretskii <eliz@gnu.org>
parents:
68953
diff
changeset
|
2154 ;;;_ - Position Assessment |
af2db645bc9d
(allout-hidden-p): Move this defsubts before
Eli Zaretskii <eliz@gnu.org>
parents:
68953
diff
changeset
|
2155 ;;;_ > allout-hidden-p (&optional pos) |
af2db645bc9d
(allout-hidden-p): Move this defsubts before
Eli Zaretskii <eliz@gnu.org>
parents:
68953
diff
changeset
|
2156 (defsubst allout-hidden-p (&optional pos) |
af2db645bc9d
(allout-hidden-p): Move this defsubts before
Eli Zaretskii <eliz@gnu.org>
parents:
68953
diff
changeset
|
2157 "Non-nil if the character after point is invisible." |
70616
b69cce4ff5a0
2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70256
diff
changeset
|
2158 (eq (get-char-property (or pos (point)) 'invisible) 'allout)) |
68956
af2db645bc9d
(allout-hidden-p): Move this defsubts before
Eli Zaretskii <eliz@gnu.org>
parents:
68953
diff
changeset
|
2159 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2160 ;;;_ > allout-overlay-insert-in-front-handler (ol after beg end |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2161 ;;; &optional prelen) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2162 (defun allout-overlay-insert-in-front-handler (ol after beg end |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2163 &optional prelen) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2164 "Shift the overlay so stuff inserted in front of it is excluded." |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2165 (if after |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2166 ;; XXX Shouldn't moving the overlay should be unnecessary, if overlay |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2167 ;; front-advance on the overlay worked as it should? |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2168 (move-overlay ol (1+ beg) (overlay-end ol)))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2169 ;;;_ > allout-overlay-interior-modification-handler (ol after beg end |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2170 ;;; &optional prelen) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2171 (defun allout-overlay-interior-modification-handler (ol after beg end |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2172 &optional prelen) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2173 "Get confirmation before making arbitrary changes to invisible text. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2174 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2175 We expose the invisible text and ask for confirmation. Refusal or |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
2176 `keyboard-quit' abandons the changes, with keyboard-quit additionally |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2177 reclosing the opened text. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2178 |
79939 | 2179 No confirmation is necessary when `inhibit-read-only' is set -- eg, allout |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2180 internal functions use this feature cohesively bunch changes." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2181 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2182 (when (and (not inhibit-read-only) (not after)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2183 (let ((start (point)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2184 (ol-start (overlay-start ol)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2185 (ol-end (overlay-end ol)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2186 first) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2187 (goto-char beg) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2188 (while (< (point) end) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2189 (when (allout-hidden-p) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2190 (allout-show-to-offshoot) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2191 (if (allout-hidden-p) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2192 (save-excursion (forward-char 1) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2193 (allout-show-to-offshoot))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2194 (when (not first) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2195 (setq first (point)))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2196 (goto-char (if (featurep 'xemacs) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2197 (next-property-change (1+ (point)) nil end) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2198 (next-char-property-change (1+ (point)) end)))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2199 (when first |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2200 (goto-char first) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2201 (condition-case nil |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2202 (if (not |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2203 (yes-or-no-p |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2204 (substitute-command-keys |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
2205 (concat "Modify concealed text? (\"no\" just aborts," |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2206 " \\[keyboard-quit] also reconceals) ")))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2207 (progn (goto-char start) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2208 (error "Concealed-text change refused."))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2209 (quit (allout-flag-region ol-start ol-end nil) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2210 (allout-flag-region ol-start ol-end t) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2211 (error "Concealed-text change abandoned, text reconcealed.")))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2212 (goto-char start)))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2213 ;;;_ > allout-before-change-handler (beg end) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2214 (defun allout-before-change-handler (beg end) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2215 "Protect against changes to invisible text. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2216 |
79939 | 2217 See `allout-overlay-interior-modification-handler' for details." |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2218 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2219 (if (and (allout-mode-p) undo-in-progress (allout-hidden-p)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2220 (allout-show-to-offshoot)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2221 |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2222 ;; allout-overlay-interior-modification-handler on an overlay handles |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2223 ;; this in other emacs, via `allout-exposure-category's 'modification-hooks. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2224 (when (and (featurep 'xemacs) (allout-mode-p)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
2225 ;; process all of the pending overlays: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2226 (save-excursion |
78915
e7a2828a162d
(allout-before-change-handler): Replace got-char by goto-char.
Martin Rudalics <rudalics@gmx.at>
parents:
78492
diff
changeset
|
2227 (goto-char beg) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2228 (let ((overlay (allout-get-invisibility-overlay))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2229 (allout-overlay-interior-modification-handler |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2230 overlay nil beg end nil))))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2231 ;;;_ > allout-isearch-end-handler (&optional overlay) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2232 (defun allout-isearch-end-handler (&optional overlay) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2233 "Reconcile allout outline exposure on arriving in hidden text after isearch. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2234 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2235 Optional OVERLAY parameter is for when this function is used by |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2236 `isearch-open-invisible' overlay property. It is otherwise unused, so this |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2237 function can also be used as an `isearch-mode-end-hook'." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2238 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2239 (if (and (allout-mode-p) (allout-hidden-p)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2240 (allout-show-to-offshoot))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2241 |
79939 | 2242 ;;;_ #3 Internal Position State-Tracking -- "allout-recent-*" funcs |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2243 ;;; All the basic outline functions that directly do string matches to |
3430 | 2244 ;;; evaluate heading prefix location set the variables |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2245 ;;; `allout-recent-prefix-beginning' and `allout-recent-prefix-end' |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2246 ;;; when successful. Functions starting with `allout-recent-' all |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2247 ;;; use this state, providing the means to avoid redundant searches |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2248 ;;; for just-established data. This optimization can provide |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2249 ;;; significant speed improvement, but it must be employed carefully. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2250 ;;;_ = allout-recent-prefix-beginning |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2251 (defvar allout-recent-prefix-beginning 0 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2252 "Buffer point of the start of the last topic prefix encountered.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2253 (make-variable-buffer-local 'allout-recent-prefix-beginning) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2254 ;;;_ = allout-recent-prefix-end |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2255 (defvar allout-recent-prefix-end 0 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2256 "Buffer point of the end of the last topic prefix encountered.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2257 (make-variable-buffer-local 'allout-recent-prefix-end) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2258 ;;;_ = allout-recent-depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2259 (defvar allout-recent-depth 0 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2260 "Depth of the last topic prefix encountered.") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2261 (make-variable-buffer-local 'allout-recent-depth) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2262 ;;;_ = allout-recent-end-of-subtree |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2263 (defvar allout-recent-end-of-subtree 0 |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
2264 "Buffer point last returned by `allout-end-of-current-subtree'.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2265 (make-variable-buffer-local 'allout-recent-end-of-subtree) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2266 ;;;_ > allout-prefix-data () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2267 (defsubst allout-prefix-data () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2268 "Register allout-prefix state data. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2269 |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
2270 For reference by `allout-recent' funcs. Return |
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
2271 the new value of `allout-recent-prefix-beginning'." |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2272 (setq allout-recent-prefix-end (or (match-end 1) (match-end 2) (match-end 3)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2273 allout-recent-prefix-beginning (or (match-beginning 1) |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2274 (match-beginning 2) |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2275 (match-beginning 3)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2276 allout-recent-depth (max 1 (- allout-recent-prefix-end |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2277 allout-recent-prefix-beginning |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2278 allout-header-subtraction))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2279 allout-recent-prefix-beginning) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2280 ;;;_ > nullify-allout-prefix-data () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2281 (defsubst nullify-allout-prefix-data () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2282 "Mark allout prefix data as being uninformative." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2283 (setq allout-recent-prefix-end (point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2284 allout-recent-prefix-beginning (point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2285 allout-recent-depth 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2286 allout-recent-prefix-beginning) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2287 ;;;_ > allout-recent-depth () |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2288 (defsubst allout-recent-depth () |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2289 "Return depth of last heading encountered by an outline maneuvering function. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2290 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2291 All outline functions which directly do string matches to assess |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
2292 headings set the variables `allout-recent-prefix-beginning' and |
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
2293 `allout-recent-prefix-end' if successful. This function uses those settings |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2294 to return the current depth." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2295 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2296 allout-recent-depth) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2297 ;;;_ > allout-recent-prefix () |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2298 (defsubst allout-recent-prefix () |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
2299 "Like `allout-recent-depth', but returns text of last encountered prefix. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2300 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2301 All outline functions which directly do string matches to assess |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
2302 headings set the variables `allout-recent-prefix-beginning' and |
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
2303 `allout-recent-prefix-end' if successful. This function uses those settings |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2304 to return the current prefix." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2305 (buffer-substring-no-properties allout-recent-prefix-beginning |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2306 allout-recent-prefix-end)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2307 ;;;_ > allout-recent-bullet () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2308 (defmacro allout-recent-bullet () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2309 "Like allout-recent-prefix, but returns bullet of last encountered prefix. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2310 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2311 All outline functions which directly do string matches to assess |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
2312 headings set the variables `allout-recent-prefix-beginning' and |
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
2313 `allout-recent-prefix-end' if successful. This function uses those settings |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2314 to return the current depth of the most recently matched topic." |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2315 '(buffer-substring-no-properties (1- allout-recent-prefix-end) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2316 allout-recent-prefix-end)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2317 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2318 ;;;_ #4 Navigation |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2319 |
69250
85c3b33d6427
Restablished intermediate missing comment header to preserve outline structure.
Eli Zaretskii <eliz@gnu.org>
parents:
69124
diff
changeset
|
2320 ;;;_ - Position Assessment |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2321 ;;;_ : Location Predicates |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2322 ;;;_ > allout-do-doublecheck () |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2323 (defsubst allout-do-doublecheck () |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2324 "True if current item conditions qualify for checking on topic aberrance." |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2325 (and |
79939 | 2326 ;; presume integrity of outline and yanked content during yank -- necessary |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2327 ;; to allow for level disparity of yank location and yanked text: |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
2328 (not allout-inhibit-aberrance-doublecheck) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2329 ;; allout-doublecheck-at-and-shallower is ceiling for doublecheck: |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2330 (<= allout-recent-depth allout-doublecheck-at-and-shallower))) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2331 ;;;_ > allout-aberrant-container-p () |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2332 (defun allout-aberrant-container-p () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2333 "True if topic, or next sibling with children, contains them discontinuously. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2334 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2335 Discontinuous means an immediate offspring that is nested more |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2336 than one level deeper than the topic. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2337 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2338 If topic has no offspring, then the next sibling with offspring will |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2339 determine whether or not this one is determined to be aberrant. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2340 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2341 If true, then the allout-recent-* settings are calibrated on the |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2342 offspring that qaulifies it as aberrant, ie with depth that |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2343 exceeds the topic by more than one." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2344 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2345 ;; This is most clearly understood when considering standard-prefix-leader |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2346 ;; low-level topics, which can all too easily match text not intended as |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2347 ;; headers. For example, any line with a leading '.' or '*' and lacking a |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2348 ;; following bullet qualifies without this protection. (A sequence of |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2349 ;; them can occur naturally, eg a typical textual bullet list.) We |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2350 ;; disqualify such low-level sequences when they are followed by a |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2351 ;; discontinuously contained child, inferring that the sequences are not |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2352 ;; actually connected with their prospective context. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2353 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2354 (let ((depth (allout-depth)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2355 (start-point (point)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2356 done aberrant) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2357 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2358 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2359 (while (and (not done) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2360 (re-search-forward allout-line-boundary-regexp nil 0)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2361 (allout-prefix-data) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2362 (goto-char allout-recent-prefix-beginning) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2363 (cond |
88056 | 2364 ;; sibling -- continue: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2365 ((eq allout-recent-depth depth)) |
88056 | 2366 ;; first offspring is excessive -- aberrant: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2367 ((> allout-recent-depth (1+ depth)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2368 (setq done t aberrant t)) |
88056 | 2369 ;; next non-sibling is lower-depth -- not aberrant: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2370 (t (setq done t)))))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2371 (if aberrant |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2372 aberrant |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2373 (goto-char start-point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2374 ;; recalibrate allout-recent-* |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2375 (allout-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2376 nil))) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2377 ;;;_ > allout-on-current-heading-p () |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2378 (defun allout-on-current-heading-p () |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2379 "Return non-nil if point is on current visible topics' header line. |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2380 |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2381 Actually, returns prefix beginning point." |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2382 (save-excursion |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2383 (allout-beginning-of-current-line) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2384 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2385 (and (looking-at allout-regexp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2386 (allout-prefix-data) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2387 (or (not (allout-do-doublecheck)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2388 (not (allout-aberrant-container-p))))))) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2389 ;;;_ > allout-on-heading-p () |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2390 (defalias 'allout-on-heading-p 'allout-on-current-heading-p) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2391 ;;;_ > allout-e-o-prefix-p () |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2392 (defun allout-e-o-prefix-p () |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2393 "True if point is located where current topic prefix ends, heading begins." |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2394 (and (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2395 (save-excursion (let ((inhibit-field-text-motion t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2396 (beginning-of-line)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2397 (looking-at allout-regexp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2398 (= (point) (save-excursion (allout-end-of-prefix)(point)))))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2399 ;;;_ : Location attributes |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2400 ;;;_ > allout-depth () |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2401 (defun allout-depth () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2402 "Return depth of topic most immediately containing point. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2403 |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2404 Does not do doublecheck for aberrant topic header. |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2405 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2406 Return zero if point is not within any topic. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2407 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2408 Like `allout-current-depth', but respects hidden as well as visible topics." |
29490 | 2409 (save-excursion |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2410 (let ((start-point (point))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2411 (if (and (allout-goto-prefix) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2412 (not (< start-point (point)))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2413 allout-recent-depth |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2414 (progn |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2415 ;; Oops, no prefix, nullify it: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2416 (nullify-allout-prefix-data) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2417 ;; ... and return 0: |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2418 0))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2419 ;;;_ > allout-current-depth () |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2420 (defun allout-current-depth () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2421 "Return depth of visible topic most immediately containing point. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2422 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2423 Return zero if point is not within any topic." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2424 (save-excursion |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2425 (if (allout-back-to-current-heading) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2426 (max 1 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2427 (- allout-recent-prefix-end |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2428 allout-recent-prefix-beginning |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2429 allout-header-subtraction)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2430 0))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2431 ;;;_ > allout-get-current-prefix () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2432 (defun allout-get-current-prefix () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2433 "Topic prefix of the current topic." |
3430 | 2434 (save-excursion |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2435 (if (allout-goto-prefix) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2436 (allout-recent-prefix)))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2437 ;;;_ > allout-get-bullet () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2438 (defun allout-get-bullet () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2439 "Return bullet of containing topic (visible or not)." |
3430 | 2440 (save-excursion |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2441 (and (allout-goto-prefix) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2442 (allout-recent-bullet)))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2443 ;;;_ > allout-current-bullet () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2444 (defun allout-current-bullet () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2445 "Return bullet of current (visible) topic heading, or none if none found." |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2446 (condition-case nil |
3430 | 2447 (save-excursion |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2448 (allout-back-to-current-heading) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2449 (buffer-substring-no-properties (- allout-recent-prefix-end 1) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2450 allout-recent-prefix-end)) |
3430 | 2451 ;; Quick and dirty provision, ostensibly for missing bullet: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2452 (args-out-of-range nil)) |
3430 | 2453 ) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2454 ;;;_ > allout-get-prefix-bullet (prefix) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2455 (defun allout-get-prefix-bullet (prefix) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2456 "Return the bullet of the header prefix string PREFIX." |
3430 | 2457 ;; Doesn't make sense if we're old-style prefixes, but this just |
2458 ;; oughtn't be called then, so forget about it... | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2459 (if (string-match allout-regexp prefix) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2460 (substring prefix (1- (match-end 2)) (match-end 2)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2461 ;;;_ > allout-sibling-index (&optional depth) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2462 (defun allout-sibling-index (&optional depth) |
29490 | 2463 "Item number of this prospective topic among its siblings. |
2464 | |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2465 If optional arg DEPTH is greater than current depth, then we're |
29490 | 2466 opening a new level, and return 0. |
2467 | |
2468 If less than this depth, ascend to that depth and count..." | |
2469 | |
2470 (save-excursion | |
2471 (cond ((and depth (<= depth 0) 0)) | |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2472 ((or (null depth) (= depth (allout-depth))) |
29490 | 2473 (let ((index 1)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2474 (while (allout-previous-sibling allout-recent-depth nil) |
29490 | 2475 (setq index (1+ index))) |
2476 index)) | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2477 ((< depth allout-recent-depth) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2478 (allout-ascend-to-depth depth) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2479 (allout-sibling-index)) |
29490 | 2480 (0)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2481 ;;;_ > allout-topic-flat-index () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2482 (defun allout-topic-flat-index () |
29490 | 2483 "Return a list indicating point's numeric section.subsect.subsubsect... |
2484 Outermost is first." | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2485 (let* ((depth (allout-depth)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2486 (next-index (allout-sibling-index depth)) |
29490 | 2487 (rev-sibls nil)) |
2488 (while (> next-index 0) | |
2489 (setq rev-sibls (cons next-index rev-sibls)) | |
2490 (setq depth (1- depth)) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2491 (setq next-index (allout-sibling-index depth))) |
29490 | 2492 rev-sibls) |
2493 ) | |
3430 | 2494 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2495 ;;;_ - Navigation routines |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2496 ;;;_ > allout-beginning-of-current-line () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2497 (defun allout-beginning-of-current-line () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2498 "Like beginning of line, but to visible text." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2499 |
71915
9315116570f0
(allout-run-unit-tests-on-load): Rectified docstring grammar.
Nick Roberts <nickrob@snap.net.nz>
parents:
71893
diff
changeset
|
2500 ;; This combination of move-beginning-of-line and beginning-of-line is |
9315116570f0
(allout-run-unit-tests-on-load): Rectified docstring grammar.
Nick Roberts <nickrob@snap.net.nz>
parents:
71893
diff
changeset
|
2501 ;; deliberate, but the (beginning-of-line) may now be superfluous. |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2502 (let ((inhibit-field-text-motion t)) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2503 (move-beginning-of-line 1) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2504 (beginning-of-line) |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2505 (while (and (not (bobp)) (or (not (bolp)) (allout-hidden-p))) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2506 (beginning-of-line) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2507 (if (or (allout-hidden-p) (not (bolp))) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2508 (forward-char -1))))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2509 ;;;_ > allout-end-of-current-line () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2510 (defun allout-end-of-current-line () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2511 "Move to the end of line, past concealed text if any." |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
2512 ;; XXX This is for symmetry with `allout-beginning-of-current-line' -- |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2513 ;; `move-end-of-line' doesn't suffer the same problem as |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2514 ;; `move-beginning-of-line'. |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2515 (let ((inhibit-field-text-motion t)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2516 (end-of-line) |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2517 (while (allout-hidden-p) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2518 (end-of-line) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
2519 (if (allout-hidden-p) (forward-char 1))))) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2520 ;;;_ > allout-beginning-of-line () |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2521 (defun allout-beginning-of-line () |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2522 "Beginning-of-line with `allout-beginning-of-line-cycles' behavior, if set." |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2523 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2524 (interactive) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2525 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2526 (if (or (not allout-beginning-of-line-cycles) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2527 (not (equal last-command this-command))) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2528 (progn |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2529 (if (and (not (bolp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2530 (allout-hidden-p (1- (point)))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2531 (goto-char (previous-single-char-property-change |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2532 (1- (point)) 'invisible))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2533 (move-beginning-of-line 1)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2534 (allout-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2535 (let ((beginning-of-body |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2536 (save-excursion |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2537 (while (and (allout-do-doublecheck) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2538 (allout-aberrant-container-p) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2539 (allout-previous-visible-heading 1))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2540 (allout-beginning-of-current-entry) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2541 (point)))) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2542 (cond ((= (current-column) 0) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2543 (goto-char beginning-of-body)) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2544 ((< (point) beginning-of-body) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2545 (allout-beginning-of-current-line)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2546 ((= (point) beginning-of-body) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2547 (goto-char (allout-current-bullet-pos))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2548 (t (allout-beginning-of-current-line) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2549 (if (< (point) beginning-of-body) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2550 ;; we were on the headline after its start: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2551 (goto-char beginning-of-body))))))) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2552 ;;;_ > allout-end-of-line () |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2553 (defun allout-end-of-line () |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2554 "End-of-line with `allout-end-of-line-cycles' behavior, if set." |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2555 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2556 (interactive) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2557 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2558 (if (or (not allout-end-of-line-cycles) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2559 (not (equal last-command this-command))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2560 (allout-end-of-current-line) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2561 (let ((end-of-entry (save-excursion |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2562 (allout-end-of-entry) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2563 (point)))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2564 (cond ((not (eolp)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2565 (allout-end-of-current-line)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2566 ((or (allout-hidden-p) (save-excursion |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2567 (forward-char -1) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2568 (allout-hidden-p))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2569 (allout-back-to-current-heading) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2570 (allout-show-current-entry) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2571 (allout-show-children) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2572 (allout-end-of-entry)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2573 ((>= (point) end-of-entry) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2574 (allout-back-to-current-heading) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2575 (allout-end-of-current-line)) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2576 (t |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2577 (if (not (and transient-mark-mode mark-active)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2578 (push-mark)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2579 (allout-end-of-entry)))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2580 ;;;_ > allout-next-heading () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2581 (defsubst allout-next-heading () |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2582 "Move to the heading for the topic (possibly invisible) after this one. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2583 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2584 Returns the location of the heading, or nil if none found. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2585 |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
2586 We skip anomalous low-level topics, a la `allout-aberrant-container-p'." |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2587 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2588 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2589 (if (looking-at allout-regexp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2590 (forward-char 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2591 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2592 (when (re-search-forward allout-line-boundary-regexp nil 0) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2593 (allout-prefix-data) |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2594 (goto-char allout-recent-prefix-beginning) |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2595 (while (not (bolp)) |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2596 (forward-char -1)) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2597 (and (allout-do-doublecheck) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2598 ;; this will set allout-recent-* on the first non-aberrant topic, |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2599 ;; whether it's the current one or one that disqualifies it: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2600 (allout-aberrant-container-p)) |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
2601 ;; this may or may not be the same as above depending on doublecheck: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2602 (goto-char allout-recent-prefix-beginning)))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2603 ;;;_ > allout-this-or-next-heading |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2604 (defun allout-this-or-next-heading () |
7527
1f09079e18c4
(outline-mode): Use outline-this-or-next-heading.
Richard M. Stallman <rms@gnu.org>
parents:
7476
diff
changeset
|
2605 "Position cursor on current or next heading." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2606 ;; A throwaway non-macro that is defined after allout-next-heading |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2607 ;; and usable by allout-mode. |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2608 (if (not (allout-goto-prefix-doublechecked)) (allout-next-heading))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2609 ;;;_ > allout-previous-heading () |
72917
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
2610 (defun allout-previous-heading () |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2611 "Move to the prior (possibly invisible) heading line. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2612 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2613 Return the location of the beginning of the heading, or nil if not found. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2614 |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
2615 We skip anomalous low-level topics, a la `allout-aberrant-container-p'." |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2616 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2617 (if (bobp) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2618 nil |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2619 (let ((start-point (point))) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2620 ;; allout-goto-prefix-doublechecked calls us, so we can't use it here. |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2621 (allout-goto-prefix) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2622 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2623 (when (or (re-search-backward allout-line-boundary-regexp nil 0) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2624 (looking-at allout-bob-regexp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2625 (goto-char (allout-prefix-data)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2626 (if (and (allout-do-doublecheck) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2627 (allout-aberrant-container-p)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2628 (or (allout-previous-heading) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2629 (and (goto-char start-point) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2630 ;; recalibrate allout-recent-*: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2631 (allout-depth) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2632 nil)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2633 (point))))))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2634 ;;;_ > allout-get-invisibility-overlay () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2635 (defun allout-get-invisibility-overlay () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2636 "Return the overlay at point that dictates allout invisibility." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2637 (let ((overlays (overlays-at (point))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2638 got) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2639 (while (and overlays (not got)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2640 (if (equal (overlay-get (car overlays) 'invisible) 'allout) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2641 (setq got (car overlays)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2642 (pop overlays))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2643 got)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2644 ;;;_ > allout-back-to-visible-text () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2645 (defun allout-back-to-visible-text () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2646 "Move to most recent prior character that is visible, and return point." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2647 (if (allout-hidden-p) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2648 (goto-char (overlay-start (allout-get-invisibility-overlay)))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2649 (point)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2650 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2651 ;;;_ - Subtree Charting |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2652 ;;;_ " These routines either produce or assess charts, which are |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2653 ;;; nested lists of the locations of topics within a subtree. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2654 ;;; |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2655 ;;; Charts enable efficient subtree navigation by providing a reusable basis |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2656 ;;; for elaborate, compound assessment and adjustment of a subtree. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2657 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2658 ;;;_ > allout-chart-subtree (&optional levels visible orig-depth prev-depth) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2659 (defun allout-chart-subtree (&optional levels visible orig-depth prev-depth) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2660 "Produce a location \"chart\" of subtopics of the containing topic. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2661 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2662 Optional argument LEVELS specifies a depth limit (relative to start |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2663 depth) for the chart. Null LEVELS means no limit. |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2664 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2665 When optional argument VISIBLE is non-nil, the chart includes |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2666 only the visible subelements of the charted subjects. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2667 |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2668 The remaining optional args are for internal use by the function. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2669 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2670 Point is left at the end of the subtree. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2671 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2672 Charts are used to capture outline structure, so that outline-altering |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2673 routines need assess the structure only once, and then use the chart |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2674 for their elaborate manipulations. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2675 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2676 The chart entries for the topics are in reverse order, so the |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2677 last topic is listed first. The entry for each topic consists of |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2678 an integer indicating the point at the beginning of the topic |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2679 prefix. Charts for offspring consists of a list containing, |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2680 recursively, the charts for the respective subtopics. The chart |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2681 for a topics' offspring precedes the entry for the topic itself. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2682 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2683 The other function parameters are for internal recursion, and should |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2684 not be specified by external callers. ORIG-DEPTH is depth of topic at |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2685 starting point, and PREV-DEPTH is depth of prior topic." |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2686 |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
2687 (let ((original (not orig-depth)) ; `orig-depth' set only in recursion. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2688 chart curr-depth) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2689 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2690 (if original ; Just starting? |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2691 ; Register initial settings and |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2692 ; position to first offspring: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2693 (progn (setq orig-depth (allout-depth)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2694 (or prev-depth (setq prev-depth (1+ orig-depth))) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2695 (if visible |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2696 (allout-next-visible-heading 1) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2697 (allout-next-heading)))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2698 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2699 ;; Loop over the current levels' siblings. Besides being more |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2700 ;; efficient than tail-recursing over a level, it avoids exceeding |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2701 ;; the typically quite constrained Emacs max-lisp-eval-depth. |
29490 | 2702 ;; |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2703 ;; Probably would speed things up to implement loop-based stack |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2704 ;; operation rather than recursing for lower levels. Bah. |
29490 | 2705 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2706 (while (and (not (eobp)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2707 ; Still within original topic? |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2708 (< orig-depth (setq curr-depth allout-recent-depth)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2709 (cond ((= prev-depth curr-depth) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2710 ;; Register this one and move on: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2711 (setq chart (cons allout-recent-prefix-beginning chart)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2712 (if (and levels (<= levels 1)) |
79939 | 2713 ;; At depth limit -- skip sublevels: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2714 (or (allout-next-sibling curr-depth) |
79939 | 2715 ;; or no more siblings -- proceed to |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2716 ;; next heading at lesser depth: |
7676
5b8a573e9f69
(outline-chart-subtree): Include outline-next-heading in loop conditions
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
2717 (while (and (<= curr-depth |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2718 allout-recent-depth) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2719 (if visible |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2720 (allout-next-visible-heading 1) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2721 (allout-next-heading))))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2722 (if visible |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2723 (allout-next-visible-heading 1) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2724 (allout-next-heading)))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2725 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2726 ((and (< prev-depth curr-depth) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2727 (or (not levels) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2728 (> levels 0))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2729 ;; Recurse on deeper level of curr topic: |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2730 (setq chart |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2731 (cons (allout-chart-subtree (and levels |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2732 (1- levels)) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2733 visible |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2734 orig-depth |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2735 curr-depth) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2736 chart)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2737 ;; ... then continue with this one. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2738 ) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2739 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2740 ;; ... else nil if we've ascended back to prev-depth. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2741 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2742 ))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2743 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2744 (if original ; We're at the last sibling on |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2745 ; the original level. Position |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2746 ; to the end of it: |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2747 (progn (and (not (eobp)) (forward-char -1)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2748 (and (= (preceding-char) ?\n) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2749 (= (aref (buffer-substring (max 1 (- (point) 3)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2750 (point)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2751 1) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2752 ?\n) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2753 (forward-char -1)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2754 (setq allout-recent-end-of-subtree (point)))) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
2755 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2756 chart ; (nreverse chart) not necessary, |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2757 ; and maybe not preferable. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2758 )) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2759 ;;;_ > allout-chart-siblings (&optional start end) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2760 (defun allout-chart-siblings (&optional start end) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2761 "Produce a list of locations of this and succeeding sibling topics. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2762 Effectively a top-level chart of siblings. See `allout-chart-subtree' |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2763 for an explanation of charts." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2764 (save-excursion |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2765 (when (allout-goto-prefix-doublechecked) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2766 (let ((chart (list (point)))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2767 (while (allout-next-sibling) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2768 (setq chart (cons (point) chart))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2769 (if chart (setq chart (nreverse chart))))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2770 ;;;_ > allout-chart-to-reveal (chart depth) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2771 (defun allout-chart-to-reveal (chart depth) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2772 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2773 "Return a flat list of hidden points in subtree CHART, up to DEPTH. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2774 |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2775 If DEPTH is nil, include hidden points at any depth. |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2776 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2777 Note that point can be left at any of the points on chart, or at the |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2778 start point." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2779 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2780 (let (result here) |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2781 (while (and (or (null depth) (> depth 0)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2782 chart) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2783 (setq here (car chart)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2784 (if (listp here) |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2785 (let ((further (allout-chart-to-reveal here (if (null depth) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2786 depth |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2787 (1- depth))))) |
79939 | 2788 ;; We're on the start of a subtree -- recurse with it, if there's |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2789 ;; more depth to go: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2790 (if further (setq result (append further result))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2791 (setq chart (cdr chart))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2792 (goto-char here) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2793 (if (allout-hidden-p) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2794 (setq result (cons here result))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2795 (setq chart (cdr chart)))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2796 result)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2797 ;;;_ X allout-chart-spec (chart spec &optional exposing) |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2798 ;; (defun allout-chart-spec (chart spec &optional exposing) |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2799 ;; "Not yet (if ever) implemented. |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2800 |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2801 ;; Produce exposure directives given topic/subtree CHART and an exposure SPEC. |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2802 |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2803 ;; Exposure spec indicates the locations to be exposed and the prescribed |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2804 ;; exposure status. Optional arg EXPOSING is an integer, with 0 |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2805 ;; indicating pending concealment, anything higher indicating depth to |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2806 ;; which subtopic headers should be exposed, and negative numbers |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2807 ;; indicating (negative of) the depth to which subtopic headers and |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2808 ;; bodies should be exposed. |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2809 |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2810 ;; The produced list can have two types of entries. Bare numbers |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2811 ;; indicate points in the buffer where topic headers that should be |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2812 ;; exposed reside. |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2813 |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2814 ;; - bare negative numbers indicates that the topic starting at the |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2815 ;; point which is the negative of the number should be opened, |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2816 ;; including their entries. |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2817 ;; - bare positive values indicate that this topic header should be |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2818 ;; opened. |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2819 ;; - Lists signify the beginning and end points of regions that should |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2820 ;; be flagged, and the flag to employ. (For concealment: `(\?r)', and |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2821 ;; exposure:" |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2822 ;; (while spec |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2823 ;; (cond ((listp spec) |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2824 ;; ) |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2825 ;; ) |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2826 ;; (setq spec (cdr spec))) |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
2827 ;; ) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2828 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2829 ;;;_ - Within Topic |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2830 ;;;_ > allout-goto-prefix () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2831 (defun allout-goto-prefix () |
29490 | 2832 "Put point at beginning of immediately containing outline topic. |
2833 | |
2834 Goes to most immediate subsequent topic if none immediately containing. | |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2835 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2836 Not sensitive to topic visibility. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2837 |
46161
29f1f32aee5b
(outline-goto-prefix): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
44182
diff
changeset
|
2838 Returns the point at the beginning of the prefix, or nil if none." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2839 |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2840 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2841 (let (done) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2842 (while (and (not done) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2843 (search-backward "\n" nil 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2844 (forward-char 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2845 (if (looking-at allout-regexp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2846 (setq done (allout-prefix-data)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2847 (forward-char -1))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2848 (if (bobp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2849 (cond ((looking-at allout-regexp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2850 (allout-prefix-data)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2851 ((allout-next-heading)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2852 (done)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2853 done)))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2854 ;;;_ > allout-goto-prefix-doublechecked () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2855 (defun allout-goto-prefix-doublechecked () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2856 "Put point at beginning of immediately containing outline topic. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2857 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2858 Like `allout-goto-prefix', but shallow topics (according to |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2859 `allout-doublecheck-at-and-shallower') are checked and |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2860 disqualified for child containment discontinuity, according to |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
2861 `allout-aberrant-container-p'." |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2862 (if (allout-goto-prefix) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2863 (if (and (allout-do-doublecheck) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2864 (allout-aberrant-container-p)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2865 (allout-previous-heading) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2866 (point)))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2867 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2868 ;;;_ > allout-end-of-prefix () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2869 (defun allout-end-of-prefix (&optional ignore-decorations) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2870 "Position cursor at beginning of header text. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2871 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2872 If optional IGNORE-DECORATIONS is non-nil, put just after bullet, |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
2873 otherwise skip white space between bullet and ensuing text." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2874 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2875 (if (not (allout-goto-prefix-doublechecked)) |
3430 | 2876 nil |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2877 (goto-char allout-recent-prefix-end) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2878 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2879 (if ignore-decorations |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2880 t |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2881 (while (looking-at "[0-9]") (forward-char 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
2882 (if (and (not (eolp)) (looking-at "\\s-")) (forward-char 1)))) |
3430 | 2883 ;; Reestablish where we are: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2884 (allout-current-depth))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2885 ;;;_ > allout-current-bullet-pos () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2886 (defun allout-current-bullet-pos () |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
2887 "Return position of current (visible) topic's bullet." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2888 |
72917
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
2889 (if (not (allout-current-depth)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2890 nil |
72917
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
2891 (1- allout-recent-prefix-end))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2892 ;;;_ > allout-back-to-current-heading () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2893 (defun allout-back-to-current-heading () |
73315
df3186ae0953
* allout.el (allout-back-to-current-heading): Base on lower-level
Chong Yidong <cyd@stupidchicken.com>
parents:
73201
diff
changeset
|
2894 "Move to heading line of current topic, or beginning if not in a topic. |
df3186ae0953
* allout.el (allout-back-to-current-heading): Base on lower-level
Chong Yidong <cyd@stupidchicken.com>
parents:
73201
diff
changeset
|
2895 |
df3186ae0953
* allout.el (allout-back-to-current-heading): Base on lower-level
Chong Yidong <cyd@stupidchicken.com>
parents:
73201
diff
changeset
|
2896 If interactive, we position at the end of the prefix. |
df3186ae0953
* allout.el (allout-back-to-current-heading): Base on lower-level
Chong Yidong <cyd@stupidchicken.com>
parents:
73201
diff
changeset
|
2897 |
df3186ae0953
* allout.el (allout-back-to-current-heading): Base on lower-level
Chong Yidong <cyd@stupidchicken.com>
parents:
73201
diff
changeset
|
2898 Return value of resulting point, unless we started outside |
df3186ae0953
* allout.el (allout-back-to-current-heading): Base on lower-level
Chong Yidong <cyd@stupidchicken.com>
parents:
73201
diff
changeset
|
2899 of (before any) topics, in which case we return nil." |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2900 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2901 (allout-beginning-of-current-line) |
73315
df3186ae0953
* allout.el (allout-back-to-current-heading): Base on lower-level
Chong Yidong <cyd@stupidchicken.com>
parents:
73201
diff
changeset
|
2902 (let ((bol-point (point))) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2903 (if (allout-goto-prefix-doublechecked) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2904 (if (<= (point) bol-point) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2905 (if (interactive-p) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2906 (allout-end-of-prefix) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2907 (point)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2908 (goto-char (point-min)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
2909 nil)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2910 ;;;_ > allout-back-to-heading () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2911 (defalias 'allout-back-to-heading 'allout-back-to-current-heading) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2912 ;;;_ > allout-pre-next-prefix () |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2913 (defun allout-pre-next-prefix () |
3430 | 2914 "Skip forward to just before the next heading line. |
2915 | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2916 Returns that character position." |
3430 | 2917 |
72917
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
2918 (if (allout-next-heading) |
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
2919 (goto-char (1- allout-recent-prefix-beginning)))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2920 ;;;_ > allout-end-of-subtree (&optional current include-trailing-blank) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2921 (defun allout-end-of-subtree (&optional current include-trailing-blank) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2922 "Put point at the end of the last leaf in the containing topic. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2923 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2924 Optional CURRENT means put point at the end of the containing |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2925 visible topic. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2926 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2927 Optional INCLUDE-TRAILING-BLANK means include a trailing blank line, if |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2928 any, as part of the subtree. Otherwise, that trailing blank will be |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2929 excluded as delimiting whitespace between topics. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2930 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2931 Returns the value of point." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2932 (interactive "P") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2933 (if current |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2934 (allout-back-to-current-heading) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2935 (allout-goto-prefix-doublechecked)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2936 (let ((level allout-recent-depth)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2937 (allout-next-heading) |
3430 | 2938 (while (and (not (eobp)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2939 (> allout-recent-depth level)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2940 (allout-next-heading)) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2941 (if (eobp) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2942 (allout-end-of-entry) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
2943 (forward-char -1)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2944 (if (and (not include-trailing-blank) (= ?\n (preceding-char))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2945 (forward-char -1)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2946 (setq allout-recent-end-of-subtree (point)))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2947 ;;;_ > allout-end-of-current-subtree (&optional include-trailing-blank) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2948 (defun allout-end-of-current-subtree (&optional include-trailing-blank) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2949 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2950 "Put point at end of last leaf in currently visible containing topic. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2951 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2952 Optional INCLUDE-TRAILING-BLANK means include a trailing blank line, if |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2953 any, as part of the subtree. Otherwise, that trailing blank will be |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2954 excluded as delimiting whitespace between topics. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2955 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2956 Returns the value of point." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2957 (interactive) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2958 (allout-end-of-subtree t include-trailing-blank)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2959 ;;;_ > allout-beginning-of-current-entry () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2960 (defun allout-beginning-of-current-entry () |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2961 "When not already there, position point at beginning of current topic header. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2962 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2963 If already there, move cursor to bullet for hot-spot operation. |
69250
85c3b33d6427
Restablished intermediate missing comment header to preserve outline structure.
Eli Zaretskii <eliz@gnu.org>
parents:
69124
diff
changeset
|
2964 \(See `allout-mode' doc string for details of hot-spot operation.)" |
3430 | 2965 (interactive) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2966 (let ((start-point (point))) |
69250
85c3b33d6427
Restablished intermediate missing comment header to preserve outline structure.
Eli Zaretskii <eliz@gnu.org>
parents:
69124
diff
changeset
|
2967 (move-beginning-of-line 1) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2968 (if (< 0 (allout-current-depth)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2969 (goto-char allout-recent-prefix-end) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
2970 (goto-char (point-min))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2971 (allout-end-of-prefix) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2972 (if (and (interactive-p) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
2973 (= (point) start-point)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2974 (goto-char (allout-current-bullet-pos))))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2975 ;;;_ > allout-end-of-entry (&optional inclusive) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2976 (defun allout-end-of-entry (&optional inclusive) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2977 "Position the point at the end of the current topics' entry. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2978 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2979 Optional INCLUSIVE means also include trailing empty line, if any. When |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2980 unset, whitespace between items separates them even when the items are |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2981 collapsed." |
3430 | 2982 (interactive) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2983 (allout-pre-next-prefix) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2984 (if (and (not inclusive) (not (bobp)) (= ?\n (preceding-char))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2985 (forward-char -1)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2986 (point)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2987 ;;;_ > allout-end-of-current-heading () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2988 (defun allout-end-of-current-heading () |
29490 | 2989 (interactive) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2990 (allout-beginning-of-current-entry) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2991 (search-forward "\n" nil t) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2992 (forward-char -1)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
2993 (defalias 'allout-end-of-heading 'allout-end-of-current-heading) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2994 ;;;_ > allout-get-body-text () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2995 (defun allout-get-body-text () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2996 "Return the unmangled body text of the topic immediately containing point." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2997 (save-excursion |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
2998 (allout-end-of-prefix) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
2999 (if (not (search-forward "\n" nil t)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3000 nil |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3001 (backward-char 1) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3002 (let ((pre-body (point))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3003 (if (not pre-body) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3004 nil |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3005 (allout-end-of-entry t) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3006 (if (not (= pre-body (point))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3007 (buffer-substring-no-properties (1+ pre-body) (point)))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3008 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3009 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3010 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3011 ) |
3430 | 3012 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3013 ;;;_ - Depth-wise |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3014 ;;;_ > allout-ascend-to-depth (depth) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3015 (defun allout-ascend-to-depth (depth) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3016 "Ascend to depth DEPTH, returning depth if successful, nil if not." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3017 (if (and (> depth 0)(<= depth (allout-depth))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3018 (let (last-ascended) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3019 (while (and (< depth allout-recent-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3020 (setq last-ascended (allout-ascend)))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3021 (goto-char allout-recent-prefix-beginning) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3022 (if (interactive-p) (allout-end-of-prefix)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3023 (and last-ascended allout-recent-depth)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3024 ;;;_ > allout-ascend () |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3025 (defun allout-ascend (&optional dont-move-if-unsuccessful) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3026 "Ascend one level, returning resulting depth if successful, nil if not. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3027 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3028 Point is left at the beginning of the level whether or not |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3029 successful, unless optional DONT-MOVE-IF-UNSUCCESSFUL is set, in |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3030 which case point is returned to its original starting location." |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3031 (if dont-move-if-unsuccessful |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3032 (setq dont-move-if-unsuccessful (point))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3033 (prog1 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3034 (if (allout-beginning-of-level) |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
3035 (let ((bolevel (point)) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
3036 (bolevel-depth allout-recent-depth)) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
3037 (allout-previous-heading) |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3038 (cond ((< allout-recent-depth bolevel-depth) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3039 allout-recent-depth) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3040 ((= allout-recent-depth bolevel-depth) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3041 (if dont-move-if-unsuccessful |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3042 (goto-char dont-move-if-unsuccessful)) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3043 (allout-depth) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3044 nil) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3045 (t |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3046 ;; some topic after very first is lower depth than first: |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3047 (goto-char bolevel) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3048 (allout-depth) |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3049 nil)))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3050 (if (interactive-p) (allout-end-of-prefix)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3051 ;;;_ > allout-descend-to-depth (depth) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3052 (defun allout-descend-to-depth (depth) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3053 "Descend to depth DEPTH within current topic. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3054 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3055 Returning depth if successful, nil if not." |
3430 | 3056 (let ((start-point (point)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3057 (start-depth (allout-depth))) |
3430 | 3058 (while |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3059 (and (> (allout-depth) 0) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3060 (not (= depth allout-recent-depth)) ; ... not there yet |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3061 (allout-next-heading) ; ... go further |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3062 (< start-depth allout-recent-depth))) ; ... still in topic |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3063 (if (and (> (allout-depth) 0) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3064 (= allout-recent-depth depth)) |
3430 | 3065 depth |
3066 (goto-char start-point) | |
3067 nil)) | |
3068 ) | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3069 ;;;_ > allout-up-current-level (arg) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3070 (defun allout-up-current-level (arg) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3071 "Move out ARG levels from current visible topic." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3072 (interactive "p") |
72917
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
3073 (let ((start-point (point))) |
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
3074 (allout-back-to-current-heading) |
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
3075 (if (not (allout-ascend)) |
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
3076 (progn (goto-char start-point) |
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
3077 (error "Can't ascend past outermost level")) |
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
3078 (if (interactive-p) (allout-end-of-prefix)) |
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
3079 allout-recent-prefix-beginning))) |
3430 | 3080 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3081 ;;;_ - Linear |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3082 ;;;_ > allout-next-sibling (&optional depth backward) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3083 (defun allout-next-sibling (&optional depth backward) |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3084 "Like `allout-forward-current-level', but respects invisible topics. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3085 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3086 Traverse at optional DEPTH, or current depth if none specified. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3087 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3088 Go backward if optional arg BACKWARD is non-nil. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3089 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3090 Return the start point of the new topic if successful, nil otherwise." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3091 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3092 (if (if backward (bobp) (eobp)) |
3430 | 3093 nil |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3094 (let ((target-depth (or depth (allout-depth))) |
3430 | 3095 (start-point (point)) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
3096 (start-prefix-beginning allout-recent-prefix-beginning) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3097 (count 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3098 leaping |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3099 last-depth) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3100 (while (and |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3101 ;; done too few single steps to resort to the leap routine: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3102 (not leaping) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3103 ;; not at limit: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3104 (not (if backward (bobp) (eobp))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3105 ;; still traversable: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3106 (if backward (allout-previous-heading) (allout-next-heading)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3107 ;; we're below the target depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3108 (> (setq last-depth allout-recent-depth) target-depth)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3109 (setq count (1+ count)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3110 (if (> count 7) ; lists are commonly 7 +- 2, right?-) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3111 (setq leaping t))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3112 (cond (leaping |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3113 (or (allout-next-sibling-leap target-depth backward) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3114 (progn |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3115 (goto-char start-point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3116 (if depth (allout-depth) target-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3117 nil))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3118 ((and (not (eobp)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3119 (and (> (or last-depth (allout-depth)) 0) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
3120 (= allout-recent-depth target-depth)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
3121 (not (= start-prefix-beginning |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
3122 allout-recent-prefix-beginning))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3123 allout-recent-prefix-beginning) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3124 (t |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3125 (goto-char start-point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3126 (if depth (allout-depth) target-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3127 nil))))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3128 ;;;_ > allout-next-sibling-leap (&optional depth backward) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3129 (defun allout-next-sibling-leap (&optional depth backward) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3130 "Like `allout-next-sibling', but by direct search for topic at depth. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3131 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3132 Traverse at optional DEPTH, or current depth if none specified. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3133 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3134 Go backward if optional arg BACKWARD is non-nil. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3135 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3136 Return the start point of the new topic if successful, nil otherwise. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3137 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3138 Costs more than regular `allout-next-sibling' for short traversals: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3139 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3140 - we have to check the prior (next, if travelling backwards) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3141 item to confirm connectivity with the prior topic, and |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3142 - if confirmed, we have to reestablish the allout-recent-* settings with |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3143 some extra navigation |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3144 - if confirmation fails, we have to do more work to recover |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3145 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3146 It is an increasingly big win when there are many intervening |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3147 offspring before the next sibling, however, so |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3148 `allout-next-sibling' resorts to this if it finds itself in that |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3149 situation." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3150 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3151 (if (if backward (bobp) (eobp)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3152 nil |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3153 (let* ((start-point (point)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3154 (target-depth (or depth (allout-depth))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3155 (search-whitespace-regexp nil) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3156 (depth-biased (- target-depth 2)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3157 (expression (if (<= target-depth 1) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3158 allout-depth-one-regexp |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3159 (format allout-depth-specific-regexp |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3160 depth-biased depth-biased))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3161 found |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3162 done) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3163 (while (not done) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3164 (setq found (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3165 (if backward |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3166 (re-search-backward expression nil 'to-limit) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3167 (forward-char 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3168 (re-search-forward expression nil 'to-limit)))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3169 (if (and found (allout-aberrant-container-p)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3170 (setq found nil)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3171 (setq done (or found (if backward (bobp) (eobp))))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3172 (if (not found) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3173 (progn (goto-char start-point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3174 nil) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3175 ;; rationale: if any intervening items were at a lower depth, we |
79939 | 3176 ;; would now be on the first offspring at the target depth -- ie, |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3177 ;; the preceeding item (per the search direction) must be at a |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3178 ;; lesser depth. that's all we need to check. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3179 (if backward (allout-next-heading) (allout-previous-heading)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3180 (if (< allout-recent-depth target-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3181 ;; return to start and reestablish allout-recent-*: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3182 (progn |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3183 (goto-char start-point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3184 (allout-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3185 nil) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3186 (goto-char found) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3187 ;; locate cursor and set allout-recent-*: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3188 (allout-goto-prefix)))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3189 ;;;_ > allout-previous-sibling (&optional depth backward) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3190 (defun allout-previous-sibling (&optional depth backward) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3191 "Like `allout-forward-current-level' backwards, respecting invisible topics. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3192 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3193 Optional DEPTH specifies depth to traverse, default current depth. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3194 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3195 Optional BACKWARD reverses direction. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3196 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3197 Return depth if successful, nil otherwise." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3198 (allout-next-sibling depth (not backward)) |
3430 | 3199 ) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3200 ;;;_ > allout-snug-back () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3201 (defun allout-snug-back () |
64283
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
3202 "Position cursor at end of previous topic. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3203 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3204 Presumes point is at the start of a topic prefix." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3205 (if (or (bobp) (eobp)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3206 nil |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3207 (forward-char -1)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3208 (if (or (bobp) (not (= ?\n (preceding-char)))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3209 nil |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3210 (forward-char -1)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3211 (point)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3212 ;;;_ > allout-beginning-of-level () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3213 (defun allout-beginning-of-level () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3214 "Go back to the first sibling at this level, visible or not." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3215 (allout-end-of-level 'backward)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3216 ;;;_ > allout-end-of-level (&optional backward) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3217 (defun allout-end-of-level (&optional backward) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3218 "Go to the last sibling at this level, visible or not." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3219 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3220 (let ((depth (allout-depth))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3221 (while (allout-previous-sibling depth nil)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3222 (prog1 allout-recent-depth |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3223 (if (interactive-p) (allout-end-of-prefix))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3224 ;;;_ > allout-next-visible-heading (arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3225 (defun allout-next-visible-heading (arg) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3226 "Move to the next ARG'th visible heading line, backward if arg is negative. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3227 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3228 Move to buffer limit in indicated direction if headings are exhausted." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3229 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3230 (interactive "p") |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
3231 (let* ((inhibit-field-text-motion t) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
3232 (backward (if (< arg 0) (setq arg (* -1 arg)))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3233 (step (if backward -1 1)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3234 prev got) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3235 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3236 (while (> arg 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3237 (while (and |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3238 ;; Boundary condition: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3239 (not (if backward (bobp)(eobp))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3240 ;; Move, skipping over all concealed lines in one fell swoop: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3241 (prog1 (condition-case nil (or (line-move step) t) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3242 (error nil)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3243 (allout-beginning-of-current-line)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3244 ;; Deal with apparent header line: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3245 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3246 (if (not (looking-at allout-regexp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3247 ;; not a header line, keep looking: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3248 t |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3249 (allout-prefix-data) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3250 (if (and (allout-do-doublecheck) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3251 (allout-aberrant-container-p)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3252 ;; skip this aberrant prospective header line: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3253 t |
88056 | 3254 ;; this prospective headerline qualifies -- register: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3255 (setq got allout-recent-prefix-beginning) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3256 ;; and break the loop: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3257 nil))))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3258 ;; Register this got, it may be the last: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3259 (if got (setq prev got)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3260 (setq arg (1- arg))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3261 (cond (got ; Last move was to a prefix: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3262 (allout-end-of-prefix)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3263 (prev ; Last move wasn't, but prev was: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3264 (goto-char prev) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3265 (allout-end-of-prefix)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3266 ((not backward) (end-of-line) nil)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3267 ;;;_ > allout-previous-visible-heading (arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3268 (defun allout-previous-visible-heading (arg) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3269 "Move to the previous heading line. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3270 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3271 With argument, repeats or can move forward if negative. |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3272 A heading line is one that starts with a `*' (or that `allout-regexp' |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3273 matches)." |
3430 | 3274 (interactive "p") |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3275 (prog1 (allout-next-visible-heading (- arg)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3276 (if (interactive-p) (allout-end-of-prefix)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3277 ;;;_ > allout-forward-current-level (arg) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3278 (defun allout-forward-current-level (arg) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3279 "Position point at the next heading of the same level. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3280 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3281 Takes optional repeat-count, goes backward if count is negative. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3282 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3283 Returns resulting position, else nil if none found." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3284 (interactive "p") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3285 (let ((start-depth (allout-current-depth)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3286 (start-arg arg) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3287 (backward (> 0 arg))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3288 (if (= 0 start-depth) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3289 (error "No siblings, not in a topic...")) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3290 (if backward (setq arg (* -1 arg))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3291 (allout-back-to-current-heading) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3292 (while (and (not (zerop arg)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3293 (if backward |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3294 (allout-previous-sibling) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3295 (allout-next-sibling))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3296 (setq arg (1- arg))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3297 (if (not (interactive-p)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3298 nil |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3299 (allout-end-of-prefix) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3300 (if (not (zerop arg)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3301 (error "Hit %s level %d topic, traversed %d of %d requested" |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3302 (if backward "first" "last") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3303 allout-recent-depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3304 (- (abs start-arg) arg) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3305 (abs start-arg)))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3306 ;;;_ > allout-backward-current-level (arg) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3307 (defun allout-backward-current-level (arg) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3308 "Inverse of `allout-forward-current-level'." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3309 (interactive "p") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3310 (if (interactive-p) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3311 (let ((current-prefix-arg (* -1 arg))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3312 (call-interactively 'allout-forward-current-level)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3313 (allout-forward-current-level (* -1 arg)))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3314 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3315 ;;;_ #5 Alteration |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3316 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3317 ;;;_ - Fundamental |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3318 ;;;_ = allout-post-goto-bullet |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3319 (defvar allout-post-goto-bullet nil |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3320 "Outline internal var, for `allout-pre-command-business' hot-spot operation. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3321 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3322 When set, tells post-processing to reposition on topic bullet, and |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3323 then unset it. Set by `allout-pre-command-business' when implementing |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3324 hot-spot operation, where literal characters typed over a topic bullet |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3325 are mapped to the command of the corresponding control-key on the |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3326 `allout-mode-map'.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3327 (make-variable-buffer-local 'allout-post-goto-bullet) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3328 ;;;_ = allout-command-counter |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3329 (defvar allout-command-counter 0 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3330 "Counter that monotonically increases in allout-mode buffers. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3331 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3332 Set by `allout-pre-command-business', to support allout addons in |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3333 coordinating with allout activity.") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3334 (make-variable-buffer-local 'allout-command-counter) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3335 ;;;_ > allout-post-command-business () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3336 (defun allout-post-command-business () |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3337 "Outline `post-command-hook' function. |
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3338 |
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3339 - Implement (and clear) `allout-post-goto-bullet', for hot-spot |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3340 outline commands. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3341 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3342 - Decrypt topic currently being edited if it was encrypted for a save." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3343 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3344 ; Apply any external change func: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3345 (if (not (allout-mode-p)) ; In allout-mode. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3346 nil |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3347 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3348 (if (and (boundp 'allout-after-save-decrypt) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3349 allout-after-save-decrypt) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3350 (allout-after-saves-handler)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3351 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3352 ;; Implement allout-post-goto-bullet, if set: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3353 (if (and allout-post-goto-bullet |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3354 (allout-current-bullet-pos)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3355 (progn (goto-char (allout-current-bullet-pos)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3356 (setq allout-post-goto-bullet nil))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3357 )) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3358 ;;;_ > allout-pre-command-business () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3359 (defun allout-pre-command-business () |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3360 "Outline `pre-command-hook' function for outline buffers. |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3361 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3362 Among other things, implements special behavior when the cursor is on the |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3363 topic bullet character. |
49962
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3364 |
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3365 When the cursor is on the bullet character, self-insert characters are |
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3366 reinterpreted as the corresponding control-character in the |
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3367 `allout-mode-map'. The `allout-mode' `post-command-hook' insures that |
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3368 the cursor which has moved as a result of such reinterpretation is |
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3369 positioned on the bullet character of the destination topic. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3370 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3371 The upshot is that you can get easy, single (ie, unmodified) key |
29490 | 3372 outline maneuvering operations by positioning the cursor on the bullet |
49962
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3373 char. When in this mode you can use regular cursor-positioning |
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3374 command/keystrokes to relocate the cursor off of a bullet character to |
13d146080936
(allout-pre-command-business): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
49588
diff
changeset
|
3375 return to regular interpretation of self-insert characters." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3376 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3377 (if (not (allout-mode-p)) |
29490 | 3378 nil |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3379 ;; Increment allout-command-counter |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3380 (setq allout-command-counter (1+ allout-command-counter)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
3381 ;; Do hot-spot navigation. |
29490 | 3382 (if (and (eq this-command 'self-insert-command) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3383 (eq (point)(allout-current-bullet-pos))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3384 (allout-hotspot-key-handler)))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3385 ;;;_ > allout-hotspot-key-handler () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3386 (defun allout-hotspot-key-handler () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3387 "Catchall handling of key bindings in hot-spots. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3388 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3389 Translates unmodified keystrokes to corresponding allout commands, when |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3390 they would qualify if prefixed with the allout-command-prefix, and sets |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3391 this-command accordingly. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3392 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3393 Returns the qualifying command, if any, else nil." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3394 (interactive) |
101010
4efc7ca085ce
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
3395 (let* ((key-string (if (numberp last-command-event) |
4efc7ca085ce
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
3396 (char-to-string last-command-event))) |
4efc7ca085ce
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
3397 (key-num (cond ((numberp last-command-event) last-command-event) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3398 ;; for XEmacs character type: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3399 ((and (fboundp 'characterp) |
101010
4efc7ca085ce
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
3400 (apply 'characterp (list last-command-event))) |
4efc7ca085ce
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
3401 (apply 'char-to-int (list last-command-event))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3402 (t 0))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3403 mapped-binding) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3404 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3405 (if (zerop key-num) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3406 nil |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3407 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3408 (if (and |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3409 ;; exclude control chars and escape: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3410 (<= 33 key-num) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3411 (setq mapped-binding |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3412 (or (and (assoc key-string allout-keybindings-list) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3413 ;; translate literal membership on list: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3414 (cadr (assoc key-string allout-keybindings-list))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3415 ;; translate as a keybinding: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3416 (key-binding (vconcat allout-command-prefix |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3417 (char-to-string |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3418 (if (and (<= 97 key-num) ; "a" |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3419 (>= 122 key-num)) ; "z" |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3420 (- key-num 96) key-num))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3421 t)))) |
79939 | 3422 ;; Qualified as an allout command -- do hot-spot operation. |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3423 (setq allout-post-goto-bullet t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3424 ;; accept-defaults nil, or else we'll get allout-item-icon-key-handler. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3425 (setq mapped-binding (key-binding (char-to-string key-num)))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3426 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3427 (while (keymapp mapped-binding) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3428 (setq mapped-binding |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3429 (lookup-key mapped-binding (vector (read-char))))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3430 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3431 (if mapped-binding |
71915
9315116570f0
(allout-run-unit-tests-on-load): Rectified docstring grammar.
Nick Roberts <nickrob@snap.net.nz>
parents:
71893
diff
changeset
|
3432 (setq this-command mapped-binding))))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3433 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3434 ;;;_ > allout-find-file-hook () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3435 (defun allout-find-file-hook () |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
3436 "Activate `allout-mode' on non-nil `allout-auto-activation', `allout-layout'. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3437 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3438 See `allout-init' for setup instructions." |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3439 (if (and allout-auto-activation |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3440 (not (allout-mode-p)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3441 allout-layout) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3442 (allout-mode t))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3443 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3444 ;;;_ - Topic Format Assessment |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3445 ;;;_ > allout-solicit-alternate-bullet (depth &optional current-bullet) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3446 (defun allout-solicit-alternate-bullet (depth &optional current-bullet) |
3430 | 3447 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3448 "Prompt for and return a bullet char as an alternative to the current one. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3449 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3450 Offer one suitable for current depth DEPTH as default." |
3430 | 3451 |
29490 | 3452 (let* ((default-bullet (or (and (stringp current-bullet) current-bullet) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3453 (allout-bullet-for-depth depth))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3454 (sans-escapes (regexp-sans-escapes allout-bullets-string)) |
29490 | 3455 choice) |
3456 (save-excursion | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3457 (goto-char (allout-current-bullet-pos)) |
29490 | 3458 (setq choice (solicit-char-in-string |
3459 (format "Select bullet: %s ('%s' default): " | |
3460 sans-escapes | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3461 (substring-no-properties default-bullet)) |
29490 | 3462 sans-escapes |
3463 t))) | |
3464 (message "") | |
3430 | 3465 (if (string= choice "") default-bullet choice)) |
3466 ) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3467 ;;;_ > allout-distinctive-bullet (bullet) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3468 (defun allout-distinctive-bullet (bullet) |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
3469 "True if BULLET is one of those on `allout-distinctive-bullets-string'." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3470 (string-match (regexp-quote bullet) allout-distinctive-bullets-string)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3471 ;;;_ > allout-numbered-type-prefix (&optional prefix) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3472 (defun allout-numbered-type-prefix (&optional prefix) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3473 "True if current header prefix bullet is numbered bullet." |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3474 (and allout-numbered-bullet |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3475 (string= allout-numbered-bullet |
3430 | 3476 (if prefix |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3477 (allout-get-prefix-bullet prefix) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3478 (allout-get-bullet))))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3479 ;;;_ > allout-encrypted-type-prefix (&optional prefix) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3480 (defun allout-encrypted-type-prefix (&optional prefix) |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3481 "True if current header prefix bullet is for an encrypted entry (body)." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3482 (and allout-topic-encryption-bullet |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3483 (string= allout-topic-encryption-bullet |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3484 (if prefix |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3485 (allout-get-prefix-bullet prefix) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3486 (allout-get-bullet))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3487 ;;;_ > allout-bullet-for-depth (&optional depth) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3488 (defun allout-bullet-for-depth (&optional depth) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3489 "Return outline topic bullet suited to optional DEPTH, or current depth." |
3430 | 3490 ;; Find bullet in plain-bullets-string modulo DEPTH. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3491 (if allout-stylish-prefixes |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3492 (char-to-string (aref allout-plain-bullets-string |
3430 | 3493 (% (max 0 (- depth 2)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3494 allout-plain-bullets-string-len))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3495 allout-primary-bullet) |
3430 | 3496 ) |
3497 | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3498 ;;;_ - Topic Production |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3499 ;;;_ > allout-make-topic-prefix (&optional prior-bullet |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3500 (defun allout-make-topic-prefix (&optional prior-bullet |
3430 | 3501 new |
3502 depth | |
3503 solicit | |
3504 number-control | |
3505 index) | |
3506 ;; Depth null means use current depth, non-null means we're either | |
3507 ;; opening a new topic after current topic, lower or higher, or we're | |
3508 ;; changing level of current topic. | |
3509 ;; Solicit dominates specified bullet-char. | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3510 ;;;_ . Doc string: |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3511 "Generate a topic prefix suitable for optional arg DEPTH, or current depth. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3512 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3513 All the arguments are optional. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3514 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3515 PRIOR-BULLET indicates the bullet of the prefix being changed, or |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3516 nil if none. This bullet may be preserved (other options |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3517 notwithstanding) if it is on the `allout-distinctive-bullets-string', |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3518 for instance. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3519 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3520 Second arg NEW indicates that a new topic is being opened after the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3521 topic at point, if non-nil. Default bullet for new topics, eg, may |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3522 be set (contingent to other args) to numbered bullets if previous |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3523 sibling is one. The implication otherwise is that the current topic |
79939 | 3524 is being adjusted -- shifted or rebulleted -- and we don't consider |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3525 bullet or previous sibling. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3526 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3527 Third arg DEPTH forces the topic prefix to that depth, regardless of |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3528 the current topics' depth. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3529 |
29490 | 3530 If SOLICIT is non-nil, then the choice of bullet is solicited from |
3531 user. If it's a character, then that character is offered as the | |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3532 default, otherwise the one suited to the context (according to |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3533 distinction or depth) is offered. (This overrides other options, |
29490 | 3534 including, eg, a distinctive PRIOR-BULLET.) If non-nil, then the |
3535 context-specific bullet is used. | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3536 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3537 Fifth arg, NUMBER-CONTROL, matters only if `allout-numbered-bullet' |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3538 is non-nil *and* soliciting was not explicitly invoked. Then |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3539 NUMBER-CONTROL non-nil forces prefix to either numbered or |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3540 denumbered format, depending on the value of the sixth arg, INDEX. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3541 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3542 \(Note that NUMBER-CONTROL does *not* apply to level 1 topics. Sorry...) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3543 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3544 If NUMBER-CONTROL is non-nil and sixth arg INDEX is non-nil then |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3545 the prefix of the topic is forced to be numbered. Non-nil |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3546 NUMBER-CONTROL and nil INDEX forces non-numbered format on the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3547 bullet. Non-nil NUMBER-CONTROL and non-nil, non-number INDEX means |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3548 that the index for the numbered prefix will be derived, by counting |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3549 siblings back to start of level. If INDEX is a number, then that |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3550 number is used as the index for the numbered prefix (allowing, eg, |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
3551 sequential renumbering to not require this function counting back the |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3552 index for each successive sibling)." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3553 ;;;_ . Code: |
3430 | 3554 ;; The options are ordered in likely frequence of use, most common |
3555 ;; highest, least lowest. Ie, more likely to be doing prefix | |
3556 ;; adjustments than soliciting, and yet more than numbering. | |
3557 ;; Current prefix is least dominant, but most likely to be commonly | |
3558 ;; specified... | |
3559 | |
3560 (let* (body | |
3561 numbering | |
3562 denumbering | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3563 (depth (or depth (allout-depth))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3564 (header-lead allout-header-prefix) |
3430 | 3565 (bullet-char |
3566 | |
3567 ;; Getting value for bullet char is practically the whole job: | |
3568 | |
3569 (cond | |
79939 | 3570 ; Simplest situation -- level 1: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3571 ((<= depth 1) (setq header-lead "") allout-primary-bullet) |
3430 | 3572 ; Simple, too: all asterisks: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3573 (allout-old-style-prefixes |
79939 | 3574 ;; Cheat -- make body the whole thing, null out header-lead and |
3430 | 3575 ;; bullet-char: |
3576 (setq body (make-string depth | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3577 (string-to-char allout-primary-bullet))) |
3430 | 3578 (setq header-lead "") |
3579 "") | |
3580 | |
3581 ;; (Neither level 1 nor old-style, so we're space padding. | |
3582 ;; Sneak it in the condition of the next case, whatever it is.) | |
3583 | |
3584 ;; Solicitation overrides numbering and other cases: | |
3585 ((progn (setq body (make-string (- depth 2) ?\ )) | |
3586 ;; The actual condition: | |
3587 solicit) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3588 (let* ((got (allout-solicit-alternate-bullet depth solicit))) |
3430 | 3589 ;; Gotta check whether we're numbering and got a numbered bullet: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3590 (setq numbering (and allout-numbered-bullet |
3430 | 3591 (not (and number-control (not index))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3592 (string= got allout-numbered-bullet))) |
3430 | 3593 ;; Now return what we got, regardless: |
3594 got)) | |
3595 | |
3596 ;; Numbering invoked through args: | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3597 ((and allout-numbered-bullet number-control) |
3430 | 3598 (if (setq numbering (not (setq denumbering (not index)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3599 allout-numbered-bullet |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3600 (if (and prior-bullet |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3601 (not (string= allout-numbered-bullet |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3602 prior-bullet))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3603 prior-bullet |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3604 (allout-bullet-for-depth depth)))) |
3430 | 3605 |
3606 ;;; Neither soliciting nor controlled numbering ;;; | |
3607 ;;; (may be controlled denumbering, tho) ;;; | |
3608 | |
3609 ;; Check wrt previous sibling: | |
3610 ((and new ; only check for new prefixes | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3611 (<= depth (allout-depth)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3612 allout-numbered-bullet ; ... & numbering enabled |
3430 | 3613 (not denumbering) |
3614 (let ((sibling-bullet | |
3615 (save-excursion | |
3616 ;; Locate correct sibling: | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3617 (or (>= depth (allout-depth)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3618 (allout-ascend-to-depth depth)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3619 (allout-get-bullet)))) |
3430 | 3620 (if (and sibling-bullet |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3621 (string= allout-numbered-bullet sibling-bullet)) |
3430 | 3622 (setq numbering sibling-bullet))))) |
3623 | |
3624 ;; Distinctive prior bullet? | |
3625 ((and prior-bullet | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3626 (allout-distinctive-bullet prior-bullet) |
3430 | 3627 ;; Either non-numbered: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3628 (or (not (and allout-numbered-bullet |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3629 (string= prior-bullet allout-numbered-bullet))) |
3430 | 3630 ;; or numbered, and not denumbering: |
3631 (setq numbering (not denumbering))) | |
3632 ;; Here 'tis: | |
3633 prior-bullet)) | |
3634 | |
3635 ;; Else, standard bullet per depth: | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3636 ((allout-bullet-for-depth depth))))) |
3430 | 3637 |
3638 (concat header-lead | |
3639 body | |
3640 bullet-char | |
3641 (if numbering | |
3642 (format "%d" (cond ((and index (numberp index)) index) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3643 (new (1+ (allout-sibling-index depth))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3644 ((allout-sibling-index)))))) |
3430 | 3645 ) |
3646 ) | |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3647 ;;;_ > allout-open-topic (relative-depth &optional before offer-recent-bullet) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3648 (defun allout-open-topic (relative-depth &optional before offer-recent-bullet) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3649 "Open a new topic at depth DEPTH. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3650 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3651 New topic is situated after current one, unless optional flag BEFORE |
79939 | 3652 is non-nil, or unless current line is completely empty -- lacking even |
3653 whitespace -- in which case open is done on the current line. | |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3654 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3655 When adding an offspring, it will be added immediately after the parent if |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3656 the other offspring are exposed, or after the last child if the offspring |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3657 are hidden. (The intervening offspring will be exposed in the latter |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3658 case.) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3659 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3660 If OFFER-RECENT-BULLET is true, offer to use the bullet of the prior sibling. |
29490 | 3661 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3662 Nuances: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3663 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3664 - Creation of new topics is with respect to the visible topic |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3665 containing the cursor, regardless of intervening concealed ones. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3666 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3667 - New headers are generally created after/before the body of a |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3668 topic. However, they are created right at cursor location if the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3669 cursor is on a blank line, even if that breaks the current topic |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3670 body. This is intentional, to provide a simple means for |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3671 deliberately dividing topic bodies. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3672 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3673 - Double spacing of topic lists is preserved. Also, the first |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3674 level two topic is created double-spaced (and so would be |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3675 subsequent siblings, if that's left intact). Otherwise, |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3676 single-spacing is used. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3677 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3678 - Creation of sibling or nested topics is with respect to the topic |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3679 you're starting from, even when creating backwards. This way you |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3680 can easily create a sibling in front of the current topic without |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
3681 having to go to its preceding sibling, and then open forward |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3682 from there." |
3430 | 3683 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3684 (allout-beginning-of-current-line) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3685 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3686 (let* ((inhibit-field-text-motion t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3687 (depth (+ (allout-current-depth) relative-depth)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3688 (opening-on-blank (if (looking-at "^\$") |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3689 (not (setq before nil)))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3690 ;; bunch o vars set while computing ref-topic |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3691 opening-numbered |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3692 ref-depth |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3693 ref-bullet |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3694 (ref-topic (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3695 (cond ((< relative-depth 0) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3696 (allout-ascend-to-depth depth)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3697 ((>= relative-depth 1) nil) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3698 (t (allout-back-to-current-heading))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3699 (setq ref-depth allout-recent-depth) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3700 (setq ref-bullet |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3701 (if (> allout-recent-prefix-end 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3702 (allout-recent-bullet) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3703 "")) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3704 (setq opening-numbered |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3705 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3706 (and allout-numbered-bullet |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3707 (or (<= relative-depth 0) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3708 (allout-descend-to-depth depth)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3709 (if (allout-numbered-type-prefix) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3710 allout-numbered-bullet)))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3711 (point))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3712 dbl-space |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3713 doing-beginning |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3714 start end) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3715 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3716 (if (not opening-on-blank) |
3430 | 3717 ; Positioning and vertical |
79939 | 3718 ; padding -- only if not |
3430 | 3719 ; opening-on-blank: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3720 (progn |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3721 (goto-char ref-topic) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3722 (setq dbl-space ; Determine double space action: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3723 (or (and (<= relative-depth 0) ; not descending; |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3724 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3725 ;; at b-o-b or preceded by a blank line? |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3726 (or (> 0 (forward-line -1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3727 (looking-at "^\\s-*$") |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3728 (bobp))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3729 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3730 ;; succeeded by a blank line? |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3731 (allout-end-of-current-subtree) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3732 (looking-at "\n\n"))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3733 (and (= ref-depth 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3734 (or before |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3735 (= depth 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3736 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3737 ;; Don't already have following |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3738 ;; vertical padding: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3739 (not (allout-pre-next-prefix))))))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3740 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3741 ;; Position to prior heading, if inserting backwards, and not |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3742 ;; going outwards: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3743 (if (and before (>= relative-depth 0)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3744 (progn (allout-back-to-current-heading) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3745 (setq doing-beginning (bobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3746 (if (not (bobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3747 (allout-previous-heading))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3748 (if (and before (bobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3749 (open-line 1))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3750 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3751 (if (<= relative-depth 0) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3752 ;; Not going inwards, don't snug up: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3753 (if doing-beginning |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3754 (if (not dbl-space) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3755 (open-line 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3756 (open-line 2)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3757 (if before |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3758 (progn (end-of-line) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3759 (allout-pre-next-prefix) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3760 (while (and (= ?\n (following-char)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3761 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3762 (forward-char 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3763 (allout-hidden-p))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3764 (forward-char 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3765 (if (not (looking-at "^$")) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3766 (open-line 1))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3767 (allout-end-of-current-subtree) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3768 (if (looking-at "\n\n") (forward-char 1)))) |
88056 | 3769 ;; Going inwards -- double-space if first offspring is |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3770 ;; double-spaced, otherwise snug up. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3771 (allout-end-of-entry) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3772 (if (eobp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3773 (newline 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3774 (line-move 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3775 (allout-beginning-of-current-line) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3776 (backward-char 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3777 (if (bolp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3778 ;; Blank lines between current header body and next |
88056 | 3779 ;; header -- get to last substantive (non-white-space) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3780 ;; line in body: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3781 (progn (setq dbl-space t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3782 (re-search-backward "[^ \t\n]" nil t))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3783 (if (looking-at "\n\n") |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3784 (setq dbl-space t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3785 (if (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3786 (allout-next-heading) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3787 (when (> allout-recent-depth ref-depth) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3788 ;; This is an offspring. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3789 (forward-line -1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3790 (looking-at "^\\s-*$"))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3791 (progn (forward-line 1) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3792 (open-line 1) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3793 (forward-line 1))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3794 (allout-end-of-current-line)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3795 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3796 ;;(if doing-beginning (goto-char doing-beginning)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3797 (if (not (bobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3798 ;; We insert a newline char rather than using open-line to |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3799 ;; avoid rear-stickiness inheritence of read-only property. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3800 (progn (if (and (not (> depth ref-depth)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3801 (not before)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3802 (open-line 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3803 (if (and (not dbl-space) (> depth ref-depth)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3804 (newline 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3805 (if dbl-space |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3806 (open-line 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3807 (if (not before) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3808 (newline 1))))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3809 (if (and dbl-space (not (> relative-depth 0))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3810 (newline 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3811 (if (and (not (eobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3812 (or (not (bolp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3813 (and (not (bobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3814 ;; bolp doesnt detect concealed |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3815 ;; trailing newlines, compensate: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3816 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3817 (forward-char -1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3818 (allout-hidden-p))))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3819 (forward-char 1)))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3820 )) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3821 (setq start (point)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3822 (insert (concat (allout-make-topic-prefix opening-numbered t depth) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3823 " ")) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3824 (setq end (1+ (point))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3825 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3826 (allout-rebullet-heading (and offer-recent-bullet ref-bullet) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3827 depth nil nil t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3828 (if (> relative-depth 0) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3829 (save-excursion (goto-char ref-topic) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3830 (allout-show-children))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3831 (end-of-line) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3832 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3833 (run-hook-with-args 'allout-structure-added-hook start end) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3834 ) |
3430 | 3835 ) |
3836 ) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3837 ;;;_ > allout-open-subtopic (arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3838 (defun allout-open-subtopic (arg) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3839 "Open new topic header at deeper level than the current one. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3840 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3841 Negative universal arg means to open deeper, but place the new topic |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3842 prior to the current one." |
3430 | 3843 (interactive "p") |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3844 (allout-open-topic 1 (> 0 arg) (< 1 arg))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3845 ;;;_ > allout-open-sibtopic (arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3846 (defun allout-open-sibtopic (arg) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3847 "Open new topic header at same level as the current one. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3848 |
29490 | 3849 Positive universal arg means to use the bullet of the prior sibling. |
3850 | |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3851 Negative universal arg means to place the new topic prior to the current |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3852 one." |
3430 | 3853 (interactive "p") |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3854 (allout-open-topic 0 (> 0 arg) (not (= 1 arg)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3855 ;;;_ > allout-open-supertopic (arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3856 (defun allout-open-supertopic (arg) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3857 "Open new topic header at shallower level than the current one. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3858 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3859 Negative universal arg means to open shallower, but place the new |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3860 topic prior to the current one." |
3430 | 3861 |
3862 (interactive "p") | |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3863 (allout-open-topic -1 (> 0 arg) (< 1 arg))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3864 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3865 ;;;_ - Outline Alteration |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3866 ;;;_ : Topic Modification |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3867 ;;;_ = allout-former-auto-filler |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3868 (defvar allout-former-auto-filler nil |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
3869 "Name of modal fill function being wrapped by `allout-auto-fill'.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3870 ;;;_ > allout-auto-fill () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3871 (defun allout-auto-fill () |
48858
f4d079377a9a
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48857
diff
changeset
|
3872 "`allout-mode' autofill function. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3873 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
3874 Maintains outline hanging topic indentation if |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3875 `allout-use-hanging-indents' is set." |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3876 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3877 (when (not allout-inhibit-auto-fill) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3878 (let ((fill-prefix (if allout-use-hanging-indents |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3879 ;; Check for topic header indentation: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3880 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3881 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3882 (beginning-of-line) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3883 (if (looking-at allout-regexp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3884 ;; ... construct indentation to account for |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3885 ;; length of topic prefix: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3886 (make-string (progn (allout-end-of-prefix) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3887 (current-column)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
3888 ?\ )))))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3889 (use-auto-fill-function (or allout-outside-normal-auto-fill-function |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3890 auto-fill-function |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3891 'do-auto-fill))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3892 (if (or allout-former-auto-filler allout-use-hanging-indents) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
3893 (funcall use-auto-fill-function))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3894 ;;;_ > allout-reindent-body (old-depth new-depth &optional number) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3895 (defun allout-reindent-body (old-depth new-depth &optional number) |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
3896 "Reindent body lines which were indented at OLD-DEPTH to NEW-DEPTH. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3897 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3898 Optional arg NUMBER indicates numbering is being added, and it must |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
3899 be accommodated. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3900 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3901 Note that refill of indented paragraphs is not done." |
3430 | 3902 |
3903 (save-excursion | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3904 (allout-end-of-prefix) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3905 (let* ((new-margin (current-column)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3906 excess old-indent-begin old-indent-end |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3907 ;; We want the column where the header-prefix text started |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3908 ;; *before* the prefix was changed, so we infer it relative |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3909 ;; to the new margin and the shift in depth: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3910 (old-margin (+ old-depth (- new-margin new-depth)))) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
3911 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3912 ;; Process lines up to (but excluding) next topic header: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3913 (allout-unprotected |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3914 (save-match-data |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3915 (while |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
3916 (and (re-search-forward "\n\\(\\s-*\\)" |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3917 nil |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3918 t) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3919 ;; Register the indent data, before we reset the |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
3920 ;; match data with a subsequent `looking-at': |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3921 (setq old-indent-begin (match-beginning 1) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3922 old-indent-end (match-end 1)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3923 (not (looking-at allout-regexp))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3924 (if (> 0 (setq excess (- (- old-indent-end old-indent-begin) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3925 old-margin))) |
79939 | 3926 ;; Text starts left of old margin -- don't adjust: |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3927 nil |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
3928 ;; Text was hanging at or right of old left margin -- |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3929 ;; reindent it, preserving its existing indentation |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3930 ;; beyond the old margin: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3931 (delete-region old-indent-begin old-indent-end) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3932 (indent-to (+ new-margin excess (current-column)))))))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3933 ;;;_ > allout-rebullet-current-heading (arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3934 (defun allout-rebullet-current-heading (arg) |
29490 | 3935 "Solicit new bullet for current visible heading." |
3936 (interactive "p") | |
3937 (let ((initial-col (current-column)) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3938 (on-bullet (eq (point)(allout-current-bullet-pos))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3939 from to |
29490 | 3940 (backwards (if (< arg 0) |
3941 (setq arg (* arg -1))))) | |
3942 (while (> arg 0) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3943 (save-excursion (allout-back-to-current-heading) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3944 (allout-end-of-prefix) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3945 (setq from allout-recent-prefix-beginning |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3946 to allout-recent-prefix-end) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3947 (allout-rebullet-heading t ;;; solicit |
29490 | 3948 nil ;;; depth |
3949 nil ;;; number-control | |
3950 nil ;;; index | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3951 t) ;;; do-successors |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3952 (run-hook-with-args 'allout-exposure-change-hook |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3953 from to t)) |
29490 | 3954 (setq arg (1- arg)) |
3955 (if (<= arg 0) | |
3956 nil | |
3957 (setq initial-col nil) ; Override positioning back to init col | |
3958 (if (not backwards) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3959 (allout-next-visible-heading 1) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
3960 (allout-goto-prefix-doublechecked) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3961 (allout-next-visible-heading -1)))) |
29490 | 3962 (message "Done.") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3963 (cond (on-bullet (goto-char (allout-current-bullet-pos))) |
29490 | 3964 (initial-col (move-to-column initial-col))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3965 ;;;_ > allout-rebullet-heading (&optional solicit ...) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3966 (defun allout-rebullet-heading (&optional solicit |
3430 | 3967 new-depth |
3968 number-control | |
3969 index | |
3970 do-successors) | |
3971 | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3972 "Adjust bullet of current topic prefix. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3973 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3974 All args are optional. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3975 |
29490 | 3976 If SOLICIT is non-nil, then the choice of bullet is solicited from |
3977 user. If it's a character, then that character is offered as the | |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
3978 default, otherwise the one suited to the context (according to |
29490 | 3979 distinction or depth) is offered. If non-nil, then the |
3980 context-specific bullet is just used. | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3981 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3982 Second arg DEPTH forces the topic prefix to that depth, regardless |
29490 | 3983 of the topic's current depth. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3984 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3985 Third arg NUMBER-CONTROL can force the prefix to or away from |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
3986 numbered form. It has effect only if `allout-numbered-bullet' is |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3987 non-nil and soliciting was not explicitly invoked (via first arg). |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3988 Its effect, numbering or denumbering, then depends on the setting |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
3989 of the fourth arg, INDEX. |
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
3990 |
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
3991 If NUMBER-CONTROL is non-nil and fourth arg INDEX is nil, then the |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3992 prefix of the topic is forced to be non-numbered. Null index and |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3993 non-nil NUMBER-CONTROL forces denumbering. Non-nil INDEX (and |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3994 non-nil NUMBER-CONTROL) forces a numbered-prefix form. If non-nil |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3995 INDEX is a number, then that number is used for the numbered |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3996 prefix. Non-nil and non-number means that the index for the |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
3997 numbered prefix will be derived by allout-make-topic-prefix. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3998 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
3999 Fifth arg DO-SUCCESSORS t means re-resolve count on succeeding |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4000 siblings. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4001 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4002 Cf vars `allout-stylish-prefixes', `allout-old-style-prefixes', |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4003 and `allout-numbered-bullet', which all affect the behavior of |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4004 this function." |
3430 | 4005 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4006 (let* ((current-depth (allout-depth)) |
3430 | 4007 (new-depth (or new-depth current-depth)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4008 (mb allout-recent-prefix-beginning) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4009 (me allout-recent-prefix-end) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4010 (current-bullet (buffer-substring-no-properties (- me 1) me)) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4011 (has-annotation (get-text-property mb 'allout-was-hidden)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4012 (new-prefix (allout-make-topic-prefix current-bullet |
3430 | 4013 nil |
4014 new-depth | |
4015 solicit | |
4016 number-control | |
4017 index))) | |
4018 | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4019 ;; Is new one is identical to old? |
3430 | 4020 (if (and (= current-depth new-depth) |
4021 (string= current-bullet | |
4022 (substring new-prefix (1- (length new-prefix))))) | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4023 ;; Nothing to do: |
3430 | 4024 t |
4025 | |
4026 ;; New prefix probably different from old: | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4027 ; get rid of old one: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4028 (allout-unprotected (delete-region mb me)) |
3430 | 4029 (goto-char mb) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4030 ; Dispense with number if |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4031 ; numbered-bullet prefix: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4032 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4033 (if (and allout-numbered-bullet |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4034 (string= allout-numbered-bullet current-bullet) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4035 (looking-at "[0-9]+")) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4036 (allout-unprotected |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4037 (delete-region (match-beginning 0)(match-end 0))))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4038 |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4039 ;; convey 'allout-was-hidden annotation, if original had it: |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4040 (if has-annotation |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4041 (put-text-property 0 (length new-prefix) 'allout-was-hidden t |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4042 new-prefix)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4043 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4044 ; Put in new prefix: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4045 (allout-unprotected (insert new-prefix)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4046 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4047 ;; Reindent the body if elected, margin changed, and not encrypted body: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4048 (if (and allout-reindent-bodies |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4049 (not (= new-depth current-depth)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4050 (not (allout-encrypted-topic-p))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4051 (allout-reindent-body current-depth new-depth)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4052 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4053 ;; Recursively rectify successive siblings of orig topic if |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4054 ;; caller elected for it: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4055 (if do-successors |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4056 (save-excursion |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4057 (while (allout-next-sibling new-depth nil) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4058 (setq index |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4059 (cond ((numberp index) (1+ index)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4060 ((not number-control) (allout-sibling-index)))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4061 (if (allout-numbered-type-prefix) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4062 (allout-rebullet-heading nil ;;; solicit |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4063 new-depth ;;; new-depth |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4064 number-control;;; number-control |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4065 index ;;; index |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4066 nil))))) ;;;(dont!)do-successors |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4067 ) ; (if (and (= current-depth new-depth)...)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4068 ) ; let* ((current-depth (allout-depth))...) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4069 ) ; defun |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4070 ;;;_ > allout-rebullet-topic (arg) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4071 (defun allout-rebullet-topic (arg &optional sans-offspring) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4072 "Rebullet the visible topic containing point and all contained subtopics. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4073 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4074 Descends into invisible as well as visible topics, however. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4075 |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
4076 When optional SANS-OFFSPRING is non-nil, subtopics are not |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
4077 shifted. (Shifting a topic outwards without shifting its |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4078 offspring is disallowed, since this would create a \"containment |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4079 discontinuity\", where the depth difference between a topic and |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4080 its immediate offspring is greater than one.) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4081 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4082 With repeat count, shift topic depth by that amount." |
3430 | 4083 (interactive "P") |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4084 (let ((start-col (current-column))) |
3430 | 4085 (save-excursion |
4086 ;; Normalize arg: | |
4087 (cond ((null arg) (setq arg 0)) | |
4088 ((listp arg) (setq arg (car arg)))) | |
4089 ;; Fill the user in, in case we're shifting a big topic: | |
4090 (if (not (zerop arg)) (message "Shifting...")) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4091 (allout-back-to-current-heading) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4092 (if (<= (+ allout-recent-depth arg) 0) |
3430 | 4093 (error "Attempt to shift topic below level 1")) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4094 (allout-rebullet-topic-grunt arg nil nil nil nil sans-offspring) |
3430 | 4095 (if (not (zerop arg)) (message "Shifting... done."))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4096 (move-to-column (max 0 (+ start-col arg))))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4097 ;;;_ > allout-rebullet-topic-grunt (&optional relative-depth ...) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4098 (defun allout-rebullet-topic-grunt (&optional relative-depth |
3430 | 4099 starting-depth |
4100 starting-point | |
4101 index | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4102 do-successors |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4103 sans-offspring) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4104 "Like `allout-rebullet-topic', but on nearest containing topic |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4105 \(visible or not). |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4106 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4107 See `allout-rebullet-heading' for rebulleting behavior. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4108 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4109 All arguments are optional. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4110 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4111 First arg RELATIVE-DEPTH means to shift the depth of the entire |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4112 topic that amount. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4113 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4114 Several subsequent args are for internal recursive use by the function |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4115 itself: STARTING-DEPTH, STARTING-POINT, and INDEX. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4116 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4117 Finally, if optional SANS-OFFSPRING is non-nil then the offspring |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
4118 are not shifted. (Shifting a topic outwards without shifting |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4119 its offspring is disallowed, since this would create a |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4120 \"containment discontinuity\", where the depth difference between |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
4121 a topic and its immediate offspring is greater than one.)" |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4122 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4123 ;; XXX the recursion here is peculiar, and in general the routine may |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4124 ;; need simplification with refactoring. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4125 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4126 (if (and sans-offspring |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4127 relative-depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4128 (< relative-depth 0)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4129 (error (concat "Attempt to shift topic outwards without offspring," |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4130 " would cause containment discontinuity."))) |
3430 | 4131 |
4132 (let* ((relative-depth (or relative-depth 0)) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4133 (new-depth (allout-depth)) |
3430 | 4134 (starting-depth (or starting-depth new-depth)) |
4135 (on-starting-call (null starting-point)) | |
4136 (index (or index | |
4137 ;; Leave index null on starting call, so rebullet-heading | |
4138 ;; calculates it at what might be new depth: | |
4139 (and (or (zerop relative-depth) | |
4140 (not on-starting-call)) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4141 (allout-sibling-index)))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4142 (starting-index index) |
3430 | 4143 (moving-outwards (< 0 relative-depth)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4144 (starting-point (or starting-point (point))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4145 (local-point (point))) |
3430 | 4146 |
4147 ;; Sanity check for excessive promotion done only on starting call: | |
4148 (and on-starting-call | |
4149 moving-outwards | |
4150 (> 0 (+ starting-depth relative-depth)) | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4151 (error "Attempt to shift topic out beyond level 1")) |
3430 | 4152 |
4153 (cond ((= starting-depth new-depth) | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4154 ;; We're at depth to work on this one. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4155 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4156 ;; When shifting out we work on the children before working on |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4157 ;; the parent to avoid interim `allout-aberrant-container-p' |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4158 ;; aberrancy, and vice-versa when shifting in: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4159 (if (>= relative-depth 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4160 (allout-rebullet-heading nil |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4161 (+ starting-depth relative-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4162 nil ;;; number |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4163 index |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4164 nil)) ;;; do-successors |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4165 (when (not sans-offspring) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4166 ;; ... and work on subsequent ones which are at greater depth: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4167 (setq index 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4168 (allout-next-heading) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4169 (while (and (not (eobp)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4170 (< starting-depth (allout-depth))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4171 (setq index (1+ index)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4172 (allout-rebullet-topic-grunt relative-depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4173 (1+ starting-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4174 starting-point |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4175 index))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4176 (when (< relative-depth 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4177 (save-excursion |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4178 (goto-char local-point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4179 (allout-rebullet-heading nil ;;; solicit |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4180 (+ starting-depth relative-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4181 nil ;;; number |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4182 starting-index |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4183 nil)))) ;;; do-successors |
3430 | 4184 |
4185 ((< starting-depth new-depth) | |
79939 | 4186 ;; Rare case -- subtopic more than one level deeper than parent. |
3430 | 4187 ;; Treat this one at an even deeper level: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4188 (allout-rebullet-topic-grunt relative-depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4189 new-depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4190 starting-point |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4191 index |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4192 sans-offspring))) |
3430 | 4193 |
4194 (if on-starting-call | |
4195 (progn | |
4196 ;; Rectify numbering of former siblings of the adjusted topic, | |
4197 ;; if topic has changed depth | |
4198 (if (or do-successors | |
4199 (and (not (zerop relative-depth)) | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4200 (or (= allout-recent-depth starting-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4201 (= allout-recent-depth (+ starting-depth |
3430 | 4202 relative-depth))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4203 (allout-rebullet-heading nil nil nil nil t)) |
3430 | 4204 ;; Now rectify numbering of new siblings of the adjusted topic, |
4205 ;; if depth has been changed: | |
4206 (progn (goto-char starting-point) | |
4207 (if (not (zerop relative-depth)) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4208 (allout-rebullet-heading nil nil nil nil t))))) |
3430 | 4209 ) |
4210 ) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4211 ;;;_ > allout-renumber-to-depth (&optional depth) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4212 (defun allout-renumber-to-depth (&optional depth) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4213 "Renumber siblings at current depth. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4214 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4215 Affects superior topics if optional arg DEPTH is less than current depth. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4216 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4217 Returns final depth." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4218 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4219 ;; Proceed by level, processing subsequent siblings on each, |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4220 ;; ascending until we get shallower than the start depth: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4221 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4222 (let ((ascender (allout-depth)) |
29490 | 4223 was-eobp) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4224 (while (and (not (eobp)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4225 (allout-depth) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4226 (>= allout-recent-depth depth) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4227 (>= ascender depth)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4228 ; Skip over all topics at |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4229 ; lesser depths, which can not |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4230 ; have been disturbed: |
29490 | 4231 (while (and (not (setq was-eobp (eobp))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4232 (> allout-recent-depth ascender)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4233 (allout-next-heading)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4234 ; Prime ascender for ascension: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4235 (setq ascender (1- allout-recent-depth)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4236 (if (>= allout-recent-depth depth) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4237 (allout-rebullet-heading nil ;;; solicit |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4238 nil ;;; depth |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4239 nil ;;; number-control |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4240 nil ;;; index |
29490 | 4241 t)) ;;; do-successors |
4242 (if was-eobp (goto-char (point-max))))) | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4243 allout-recent-depth) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4244 ;;;_ > allout-number-siblings (&optional denumber) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4245 (defun allout-number-siblings (&optional denumber) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4246 "Assign numbered topic prefix to this topic and its siblings. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4247 |
79939 | 4248 With universal argument, denumber -- assign default bullet to this |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4249 topic and its siblings. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4250 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4251 With repeated universal argument (`^U^U'), solicit bullet for each |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4252 rebulleting each topic at this level." |
3430 | 4253 |
4254 (interactive "P") | |
4255 | |
4256 (save-excursion | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4257 (allout-back-to-current-heading) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4258 (allout-beginning-of-level) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4259 (let ((depth allout-recent-depth) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4260 (index (if (not denumber) 1)) |
3430 | 4261 (use-bullet (equal '(16) denumber)) |
4262 (more t)) | |
4263 (while more | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4264 (allout-rebullet-heading use-bullet ;;; solicit |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4265 depth ;;; depth |
3430 | 4266 t ;;; number-control |
4267 index ;;; index | |
4268 nil) ;;; do-successors | |
4269 (if index (setq index (1+ index))) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4270 (setq more (allout-next-sibling depth nil)))))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4271 ;;;_ > allout-shift-in (arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4272 (defun allout-shift-in (arg) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4273 "Increase depth of current heading and any items collapsed within it. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4274 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4275 With a negative argument, the item is shifted out using |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4276 `allout-shift-out', instead. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4277 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4278 With an argument greater than one, shift-in the item but not its |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4279 offspring, making the item into a sibling of its former children, |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4280 and a child of sibling that formerly preceeded it. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4281 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4282 You are not allowed to shift the first offspring of a topic |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4283 inwards, because that would yield a \"containment |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4284 discontinuity\", where the depth difference between a topic and |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4285 its immediate offspring is greater than one. The first topic in |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4286 the file can be adjusted to any positive depth, however." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4287 |
3430 | 4288 (interactive "p") |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4289 (if (< arg 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4290 (allout-shift-out (* arg -1)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4291 ;; refuse to create a containment discontinuity: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4292 (save-excursion |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4293 (allout-back-to-current-heading) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4294 (if (not (bobp)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4295 (let* ((current-depth allout-recent-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4296 (start-point (point)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4297 (predecessor-depth (progn |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4298 (forward-char -1) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4299 (allout-goto-prefix-doublechecked) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4300 (if (< (point) start-point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4301 allout-recent-depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4302 0)))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4303 (if (and (> predecessor-depth 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4304 (> (1+ current-depth) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4305 (1+ predecessor-depth))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4306 (error (concat "Disallowed shift deeper than" |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
4307 " containing topic's children.")) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
4308 (allout-back-to-current-heading) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
4309 (if (< allout-recent-depth (1+ current-depth)) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
4310 (allout-show-children)))))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4311 (let ((where (point))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4312 (allout-rebullet-topic 1 (and (> arg 1) 'sans-offspring)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4313 (run-hook-with-args 'allout-structure-shifted-hook arg where)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4314 ;;;_ > allout-shift-out (arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4315 (defun allout-shift-out (arg) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4316 "Decrease depth of current heading and any topics collapsed within it. |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4317 This will make the item a sibling of its former container. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4318 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4319 With a negative argument, the item is shifted in using |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4320 `allout-shift-in', instead. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4321 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4322 With an argument greater than one, shift-out the item's offspring |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4323 but not the item itself, making the former children siblings of |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4324 the item. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4325 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4326 With an argument greater than 1, the item's offspring are shifted |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4327 out without shifting the item. This will make the immediate |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4328 subtopics into siblings of the item." |
3430 | 4329 (interactive "p") |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4330 (if (< arg 0) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4331 (allout-shift-in (* arg -1)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4332 ;; Get proper exposure in this area: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4333 (save-excursion (if (allout-ascend) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4334 (allout-show-children))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4335 ;; Show collapsed children if there's a successor which will become |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4336 ;; their sibling: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4337 (if (and (allout-current-topic-collapsed-p) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4338 (save-excursion (allout-next-sibling))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4339 (allout-show-children)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4340 (let ((where (and (allout-depth) allout-recent-prefix-beginning))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4341 (save-excursion |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4342 (if (> arg 1) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4343 ;; Shift the offspring but not the topic: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4344 (let ((children-chart (allout-chart-subtree 1))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4345 (if (listp (car children-chart)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4346 ;; whoops: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4347 (setq children-chart (allout-flatten children-chart))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4348 (save-excursion |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4349 (dolist (child-point children-chart) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4350 (goto-char child-point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4351 (allout-shift-out 1)))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4352 (allout-rebullet-topic (* arg -1)))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4353 (run-hook-with-args 'allout-structure-shifted-hook (* arg -1) where)))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4354 ;;;_ : Surgery (kill-ring) functions with special provisions for outlines: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4355 ;;;_ > allout-kill-line (&optional arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4356 (defun allout-kill-line (&optional arg) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4357 "Kill line, adjusting subsequent lines suitably for outline mode." |
3430 | 4358 |
4359 (interactive "*P") | |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4360 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4361 (if (or (not (allout-mode-p)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4362 (not (bolp)) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4363 (not (save-match-data (looking-at allout-regexp)))) |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
4364 ;; Just do a regular kill: |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4365 (kill-line arg) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4366 ;; Ah, have to watch out for adjustments: |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4367 (let* ((beg (point)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4368 end |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4369 (beg-hidden (allout-hidden-p)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4370 (end-hidden (save-excursion (allout-end-of-current-line) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4371 (setq end (point)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4372 (allout-hidden-p))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4373 (depth (allout-depth))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4374 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4375 (allout-annotate-hidden beg end) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4376 (if (and (not beg-hidden) (not end-hidden)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4377 (allout-unprotected (kill-line arg)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4378 (kill-line arg)) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4379 (allout-deannotate-hidden beg end) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4380 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4381 (if allout-numbered-bullet |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4382 (save-excursion ; Renumber subsequent topics if needed: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4383 (if (not (save-match-data (looking-at allout-regexp))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4384 (allout-next-heading)) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4385 (allout-renumber-to-depth depth))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4386 (run-hook-with-args 'allout-structure-deleted-hook depth (point))))) |
73003
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4387 ;;;_ > allout-copy-line-as-kill () |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4388 (defun allout-copy-line-as-kill () |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4389 "Like allout-kill-topic, but save to kill ring instead of deleting." |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4390 (interactive) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4391 (let ((buffer-read-only t)) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4392 (condition-case nil |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4393 (allout-kill-line) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4394 (buffer-read-only nil)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4395 ;;;_ > allout-kill-topic () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4396 (defun allout-kill-topic () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4397 "Kill topic together with subtopics. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4398 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4399 Trailing whitespace is killed with a topic if that whitespace: |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4400 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4401 - would separate the topic from a subsequent sibling |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4402 - would separate the topic from the end of buffer |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4403 - would not be added to whitespace already separating the topic from the |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4404 previous one. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4405 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4406 Topic exposure is marked with text-properties, to be used by |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
4407 `allout-yank-processing' for exposure recovery." |
3430 | 4408 |
4409 (interactive) | |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4410 (let* ((inhibit-field-text-motion t) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4411 (beg (prog1 (allout-back-to-current-heading) (beginning-of-line))) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4412 end |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4413 (depth allout-recent-depth)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4414 (allout-end-of-current-subtree) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4415 (if (and (/= (current-column) 0) (not (eobp))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4416 (forward-char 1)) |
3430 | 4417 (if (not (eobp)) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4418 (if (and (save-match-data (looking-at "\n")) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4419 (or (save-excursion |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4420 (or (not (allout-next-heading)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4421 (= depth allout-recent-depth))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4422 (and (> (- beg (point-min)) 3) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4423 (string= (buffer-substring (- beg 2) beg) "\n\n")))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4424 (forward-char 1))) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
4425 |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4426 (allout-annotate-hidden beg (setq end (point))) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4427 (unwind-protect |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4428 (allout-unprotected (kill-region beg end)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4429 (if buffer-read-only |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4430 ;; eg, during copy-as-kill. |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4431 (allout-deannotate-hidden beg end))) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4432 |
3430 | 4433 (save-excursion |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4434 (allout-renumber-to-depth depth)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4435 (run-hook-with-args 'allout-structure-deleted-hook depth (point)))) |
73003
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4436 ;;;_ > allout-copy-topic-as-kill () |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4437 (defun allout-copy-topic-as-kill () |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
4438 "Like `allout-kill-topic', but save to kill ring instead of deleting." |
73003
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4439 (interactive) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4440 (let ((buffer-read-only t)) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4441 (condition-case nil |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4442 (allout-kill-topic) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4443 (buffer-read-only (message "Topic copied..."))))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4444 ;;;_ > allout-annotate-hidden (begin end) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4445 (defun allout-annotate-hidden (begin end) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4446 "Qualify text with properties to indicate exposure status." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4447 |
73003
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4448 (let ((was-modified (buffer-modified-p)) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4449 (buffer-read-only nil)) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4450 (allout-deannotate-hidden begin end) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4451 (save-excursion |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4452 (goto-char begin) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4453 (let (done next prev overlay) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4454 (while (not done) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4455 ;; at or advance to start of next hidden region: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4456 (if (not (allout-hidden-p)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4457 (setq next |
73003
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4458 (max (1+ (point)) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4459 (next-single-char-property-change (point) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4460 'invisible |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
4461 nil end)))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4462 (if (or (not next) (eq prev next)) |
79939 | 4463 ;; still not at start of hidden area -- must not be any left. |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4464 (setq done t) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4465 (goto-char next) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4466 (setq prev next) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4467 (if (not (allout-hidden-p)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4468 ;; still not at start of hidden area. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4469 (setq done t) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4470 (setq overlay (allout-get-invisibility-overlay)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4471 (setq next (overlay-end overlay) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4472 prev next) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4473 ;; advance to end of this hidden area: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4474 (when next |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4475 (goto-char next) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4476 (allout-unprotected |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4477 (let ((buffer-undo-list t)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4478 (put-text-property (overlay-start overlay) next |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4479 'allout-was-hidden t))))))))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4480 (set-buffer-modified-p was-modified))) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4481 ;;;_ > allout-deannotate-hidden (begin end) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4482 (defun allout-deannotate-hidden (begin end) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4483 "Remove allout hidden-text annotation between BEGIN and END." |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4484 |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4485 (allout-unprotected |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4486 (let ((inhibit-read-only t) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4487 (buffer-undo-list t)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4488 ;(remove-text-properties begin end '(allout-was-hidden t)) |
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4489 ))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4490 ;;;_ > allout-hide-by-annotation (begin end) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4491 (defun allout-hide-by-annotation (begin end) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4492 "Translate text properties indicating exposure status into actual exposure." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4493 (save-excursion |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4494 (goto-char begin) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4495 (let ((was-modified (buffer-modified-p)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4496 done next prev) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4497 (while (not done) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4498 ;; at or advance to start of next annotation: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4499 (if (not (get-text-property (point) 'allout-was-hidden)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4500 (setq next (next-single-char-property-change (point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4501 'allout-was-hidden |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4502 nil end))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4503 (if (or (not next) (eq prev next)) |
79939 | 4504 ;; no more or not advancing -- must not be any left. |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4505 (setq done t) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4506 (goto-char next) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4507 (setq prev next) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4508 (if (not (get-text-property (point) 'allout-was-hidden)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4509 ;; still not at start of annotation. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4510 (setq done t) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4511 ;; advance to just after end of this annotation: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4512 (setq next (next-single-char-property-change (point) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4513 'allout-was-hidden |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4514 nil end)) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4515 (overlay-put (make-overlay prev next nil 'front-advance) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4516 'category 'allout-exposure-category) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
4517 (allout-deannotate-hidden prev next) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4518 (setq prev next) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4519 (if next (goto-char next))))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4520 (set-buffer-modified-p was-modified)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4521 ;;;_ > allout-yank-processing () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4522 (defun allout-yank-processing (&optional arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4523 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4524 "Incidental allout-specific business to be done just after text yanks. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4525 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4526 Does depth adjustment of yanked topics, when: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4527 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4528 1 the stuff being yanked starts with a valid outline header prefix, and |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4529 2 it is being yanked at the end of a line which consists of only a valid |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4530 topic prefix. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4531 |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
4532 Also, adjusts numbering of subsequent siblings when appropriate. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4533 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4534 Depth adjustment alters the depth of all the topics being yanked |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4535 the amount it takes to make the first topic have the depth of the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4536 header into which it's being yanked. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4537 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4538 The point is left in front of yanked, adjusted topics, rather than |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4539 at the end (and vice-versa with the mark). Non-adjusted yanks, |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4540 however, are left exactly like normal, non-allout-specific yanks." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4541 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4542 (interactive "*P") |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4543 ; Get to beginning, leaving |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4544 ; region around subject: |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4545 (if (< (allout-mark-marker t) (point)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4546 (exchange-point-and-mark)) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4547 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4548 (let* ((subj-beg (point)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4549 (into-bol (bolp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4550 (subj-end (allout-mark-marker t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4551 ;; 'resituate' if yanking an entire topic into topic header: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4552 (resituate (and (let ((allout-inhibit-aberrance-doublecheck t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4553 (allout-e-o-prefix-p)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4554 (looking-at allout-regexp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4555 (allout-prefix-data))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4556 ;; `rectify-numbering' if resituating (where several topics may |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4557 ;; be resituating) or yanking a topic into a topic slot (bol): |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4558 (rectify-numbering (or resituate |
88056 | 4559 (and into-bol (looking-at allout-regexp))))) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4560 (if resituate |
88056 | 4561 ;; Yanking a topic into the start of a topic -- reconcile to fit: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4562 (let* ((inhibit-field-text-motion t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4563 (prefix-len (if (not (match-end 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4564 1 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4565 (- (match-end 1) subj-beg))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4566 (subj-depth allout-recent-depth) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4567 (prefix-bullet (allout-recent-bullet)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4568 (adjust-to-depth |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4569 ;; Nil if adjustment unnecessary, otherwise depth to which |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4570 ;; adjustment should be made: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4571 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4572 (and (goto-char subj-end) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4573 (eolp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4574 (goto-char subj-beg) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4575 (and (looking-at allout-regexp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4576 (progn |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4577 (beginning-of-line) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4578 (not (= (point) subj-beg))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4579 (looking-at allout-regexp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4580 (allout-prefix-data)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4581 allout-recent-depth))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4582 (more t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4583 (setq rectify-numbering allout-numbered-bullet) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4584 (if adjust-to-depth |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4585 ; Do the adjustment: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4586 (progn |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4587 (save-restriction |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4588 (narrow-to-region subj-beg subj-end) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4589 ; Trim off excessive blank |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4590 ; line at end, if any: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4591 (goto-char (point-max)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4592 (if (looking-at "^$") |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4593 (allout-unprotected (delete-char -1))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4594 ; Work backwards, with each |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4595 ; shallowest level, |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4596 ; successively excluding the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4597 ; last processed topic from |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4598 ; the narrow region: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4599 (while more |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4600 (allout-back-to-current-heading) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4601 ; go as high as we can in each bunch: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4602 (while (allout-ascend t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4603 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4604 (allout-unprotected |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4605 (allout-rebullet-topic-grunt (- adjust-to-depth |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4606 subj-depth))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4607 (allout-depth)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4608 (if (setq more (not (bobp))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4609 (progn (widen) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4610 (forward-char -1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4611 (narrow-to-region subj-beg (point)))))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4612 ;; Preserve new bullet if it's a distinctive one, otherwise |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4613 ;; use old one: |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4614 (if (string-match (regexp-quote prefix-bullet) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4615 allout-distinctive-bullets-string) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4616 ; Delete from bullet of old to |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4617 ; before bullet of new: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4618 (progn |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4619 (beginning-of-line) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4620 (allout-unprotected |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4621 (delete-region (point) subj-beg)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4622 (set-marker (allout-mark-marker t) subj-end) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4623 (goto-char subj-beg) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4624 (allout-end-of-prefix)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4625 ; Delete base subj prefix, |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4626 ; leaving old one: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4627 (allout-unprotected |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4628 (progn |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4629 (delete-region (point) (+ (point) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4630 prefix-len |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4631 (- adjust-to-depth |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4632 subj-depth))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4633 ; and delete residual subj |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4634 ; prefix digits and space: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4635 (while (looking-at "[0-9]") (delete-char 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4636 (if (looking-at " ") |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4637 (delete-char 1)))))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4638 (exchange-point-and-mark)))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4639 (if rectify-numbering |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4640 (progn |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4641 (save-excursion |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4642 ; Give some preliminary feedback: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4643 (message "... reconciling numbers") |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4644 ; ... and renumber, in case necessary: |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4645 (goto-char subj-beg) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4646 (if (allout-goto-prefix-doublechecked) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4647 (allout-unprotected |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4648 (allout-rebullet-heading nil ;;; solicit |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4649 (allout-depth) ;;; depth |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4650 nil ;;; number-control |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4651 nil ;;; index |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4652 t))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4653 (message "")))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4654 (if (or into-bol resituate) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4655 (allout-hide-by-annotation (point) (allout-mark-marker t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4656 (allout-deannotate-hidden (allout-mark-marker t) (point))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4657 (if (not resituate) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4658 (exchange-point-and-mark)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4659 (run-hook-with-args 'allout-structure-added-hook subj-beg subj-end)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4660 ;;;_ > allout-yank (&optional arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4661 (defun allout-yank (&optional arg) |
48858
f4d079377a9a
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48857
diff
changeset
|
4662 "`allout-mode' yank, with depth and numbering adjustment of yanked topics. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4663 |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
4664 Non-topic yanks work no differently than normal yanks. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4665 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4666 If a topic is being yanked into a bare topic prefix, the depth of the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4667 yanked topic is adjusted to the depth of the topic prefix. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4668 |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
4669 1 we're yanking in an `allout-mode' buffer |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4670 2 the stuff being yanked starts with a valid outline header prefix, and |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4671 3 it is being yanked at the end of a line which consists of only a valid |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4672 topic prefix. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4673 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4674 If these conditions hold then the depth of the yanked topics are all |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4675 adjusted the amount it takes to make the first one at the depth of the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4676 header into which it's being yanked. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4677 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4678 The point is left in front of yanked, adjusted topics, rather than |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4679 at the end (and vice-versa with the mark). Non-adjusted yanks, |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4680 however, (ones that don't qualify for adjustment) are handled |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4681 exactly like normal yanks. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4682 |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
4683 Numbering of yanked topics, and the successive siblings at the depth |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4684 into which they're being yanked, is adjusted. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4685 |
64283
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
4686 `allout-yank-pop' works with `allout-yank' just like normal `yank-pop' |
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
4687 works with normal `yank' in non-outline buffers." |
3430 | 4688 |
4689 (interactive "*P") | |
4690 (setq this-command 'yank) | |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4691 (allout-unprotected |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4692 (yank arg)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4693 (if (allout-mode-p) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4694 (allout-yank-processing))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4695 ;;;_ > allout-yank-pop (&optional arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4696 (defun allout-yank-pop (&optional arg) |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
4697 "Yank-pop like `allout-yank' when popping to bare outline prefixes. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4698 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4699 Adapts level of popped topics to level of fresh prefix. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4700 |
79939 | 4701 Note -- prefix changes to distinctive bullets will stick, if followed |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4702 by pops to non-distinctive yanks. Bug..." |
3430 | 4703 |
4704 (interactive "*p") | |
4705 (setq this-command 'yank) | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4706 (yank-pop arg) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4707 (if (allout-mode-p) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4708 (allout-yank-processing))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4709 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4710 ;;;_ - Specialty bullet functions |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4711 ;;;_ : File Cross references |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4712 ;;;_ > allout-resolve-xref () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4713 (defun allout-resolve-xref () |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4714 "Pop to file associated with current heading, if it has an xref bullet. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4715 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4716 \(Works according to setting of `allout-file-xref-bullet')." |
3430 | 4717 (interactive) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4718 (if (not allout-file-xref-bullet) |
3430 | 4719 (error |
79939 | 4720 "Outline cross references disabled -- no `allout-file-xref-bullet'") |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4721 (if (not (string= (allout-current-bullet) allout-file-xref-bullet)) |
64428
e55dd693f95b
(allout-resolve-xref): Fix typos in error strings.
Juanma Barranquero <lekktu@gmail.com>
parents:
64400
diff
changeset
|
4722 (error "Current heading lacks cross-reference bullet `%s'" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4723 allout-file-xref-bullet) |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4724 (let ((inhibit-field-text-motion t) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4725 file-name) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4726 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4727 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4728 (let* ((text-start allout-recent-prefix-end) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4729 (heading-end (progn (end-of-line) (point)))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4730 (goto-char text-start) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4731 (setq file-name |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4732 (if (re-search-forward "\\s-\\(\\S-*\\)" heading-end t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4733 (buffer-substring (match-beginning 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4734 (match-end 1))))))) |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
4735 (setq file-name (expand-file-name file-name)) |
3430 | 4736 (if (or (file-exists-p file-name) |
4737 (if (file-writable-p file-name) | |
4738 (y-or-n-p (format "%s not there, create one? " | |
4739 file-name)) | |
4740 (error "%s not found and can't be created" file-name))) | |
4741 (condition-case failure | |
4742 (find-file-other-window file-name) | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4743 (error failure)) |
3430 | 4744 (error "%s not found" file-name)) |
4745 ) | |
4746 ) | |
4747 ) | |
4748 ) | |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4749 |
29490 | 4750 ;;;_ #6 Exposure Control |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4751 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4752 ;;;_ - Fundamental |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4753 ;;;_ > allout-flag-region (from to flag) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4754 (defun allout-flag-region (from to flag) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4755 "Conceal text between FROM and TO if FLAG is non-nil, else reveal it. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4756 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4757 Exposure-change hook `allout-exposure-change-hook' is run with the same |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
4758 arguments as this function, after the exposure changes are made. (The old |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4759 `allout-view-change-hook' is being deprecated, and eventually will not be |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
4760 invoked.)" |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4761 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4762 ;; We use outline invisibility spec. |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
4763 (remove-overlays from to 'category 'allout-exposure-category) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4764 (when flag |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4765 (let ((o (make-overlay from to nil 'front-advance))) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
4766 (overlay-put o 'category 'allout-exposure-category) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4767 (when (featurep 'xemacs) |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
4768 (let ((props (symbol-plist 'allout-exposure-category))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4769 (while props |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4770 (overlay-put o (pop props) (pop props))))))) |
70616
b69cce4ff5a0
2006-05-12 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70256
diff
changeset
|
4771 (run-hooks 'allout-view-change-hook) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
4772 (run-hook-with-args 'allout-exposure-change-hook from to flag)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4773 ;;;_ > allout-flag-current-subtree (flag) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4774 (defun allout-flag-current-subtree (flag) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4775 "Conceal currently-visible topic's subtree if FLAG non-nil, else reveal it." |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4776 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4777 (save-excursion |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4778 (allout-back-to-current-heading) |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4779 (let ((inhibit-field-text-motion t)) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4780 (end-of-line)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4781 (allout-flag-region (point) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4782 ;; Exposing must not leave trailing blanks hidden, |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4783 ;; but can leave them exposed when hiding, so we |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4784 ;; can use flag's inverse as the |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4785 ;; include-trailing-blank cue: |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4786 (allout-end-of-current-subtree (not flag)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4787 flag))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4788 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4789 ;;;_ - Topic-specific |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
4790 ;;;_ > allout-show-entry () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
4791 (defun allout-show-entry () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
4792 "Like `allout-show-current-entry', but reveals entries in hidden topics. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4793 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4794 This is a way to give restricted peek at a concealed locality without the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4795 expense of exposing its context, but can leave the outline with aberrant |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4796 exposure. `allout-show-offshoot' should be used after the peek to rectify |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4797 the exposure." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4798 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4799 (interactive) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4800 (save-excursion |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4801 (let (beg end) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4802 (allout-goto-prefix-doublechecked) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4803 (setq beg (if (allout-hidden-p) (1- (point)) (point))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4804 (setq end (allout-pre-next-prefix)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4805 (allout-flag-region beg end nil) |
29490 | 4806 (list beg end)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4807 ;;;_ > allout-show-children (&optional level strict) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4808 (defun allout-show-children (&optional level strict) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4809 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4810 "If point is visible, show all direct subheadings of this heading. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4811 |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
4812 Otherwise, do `allout-show-to-offshoot', and then show subheadings. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4813 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4814 Optional LEVEL specifies how many levels below the current level |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4815 should be shown, or all levels if t. Default is 1. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4816 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4817 Optional STRICT means don't resort to -show-to-offshoot, no matter |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4818 what. This is basically so -show-to-offshoot, which is called by |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4819 this function, can employ the pure offspring-revealing capabilities of |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4820 it. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4821 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4822 Returns point at end of subtree that was opened, if any. (May get a |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4823 point of non-opened subtree?)" |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4824 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4825 (interactive "p") |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4826 (let ((start-point (point))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4827 (if (and (not strict) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4828 (allout-hidden-p)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4829 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4830 (progn (allout-show-to-offshoot) ; Point's concealed, open to |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4831 ; expose it. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4832 ;; Then recurse, but with "strict" set so we don't |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4833 ;; infinite regress: |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4834 (allout-show-children level t)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4835 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4836 (save-excursion |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4837 (allout-beginning-of-current-line) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4838 (save-restriction |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4839 (let* (depth |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4840 ;; translate the level spec for this routine to the ones |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4841 ;; used by -chart-subtree and -chart-to-reveal: |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4842 (chart-level (cond ((not level) 1) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4843 ((eq level t) nil) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4844 (t level))) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4845 (chart (allout-chart-subtree chart-level)) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4846 (to-reveal (or (allout-chart-to-reveal chart chart-level) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4847 ;; interactive, show discontinuous children: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4848 (and chart |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4849 (interactive-p) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4850 (save-excursion |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4851 (allout-back-to-current-heading) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4852 (setq depth (allout-current-depth)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4853 (and (allout-next-heading) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4854 (> allout-recent-depth |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4855 (1+ depth)))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4856 (message |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4857 "Discontinuous offspring; use `%s %s'%s." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4858 (substitute-command-keys |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4859 "\\[universal-argument]") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4860 (substitute-command-keys |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4861 "\\[allout-shift-out]") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4862 " to elevate them.") |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4863 (allout-chart-to-reveal |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4864 chart (- allout-recent-depth depth)))))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4865 (goto-char start-point) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4866 (when (and strict (allout-hidden-p)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4867 ;; Concealed root would already have been taken care of, |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4868 ;; unless strict was set. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4869 (allout-flag-region (point) (allout-snug-back) nil) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4870 (when allout-show-bodies |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4871 (goto-char (car to-reveal)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4872 (allout-show-current-entry))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4873 (while to-reveal |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4874 (goto-char (car to-reveal)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4875 (allout-flag-region (save-excursion (allout-snug-back) (point)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4876 (progn (search-forward "\n" nil t) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4877 (1- (point))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4878 nil) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4879 (when allout-show-bodies |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4880 (goto-char (car to-reveal)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4881 (allout-show-current-entry)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4882 (setq to-reveal (cdr to-reveal))))))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4883 ;; Compensate for `save-excursion's maintenance of point |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4884 ;; within invisible text: |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4885 (goto-char start-point))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4886 ;;;_ > allout-show-to-offshoot () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4887 (defun allout-show-to-offshoot () |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
4888 "Like `allout-show-entry', but reveals all concealed ancestors, as well. |
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
4889 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4890 Useful for coherently exposing to a random point in a hidden region." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4891 (interactive) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4892 (save-excursion |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4893 (let ((inhibit-field-text-motion t) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4894 (orig-pt (point)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4895 (orig-pref (allout-goto-prefix-doublechecked)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4896 (last-at (point)) |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4897 (bag-it 0)) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4898 (while (or (> bag-it 1) (allout-hidden-p)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4899 (while (allout-hidden-p) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4900 (move-beginning-of-line 1) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4901 (if (allout-hidden-p) (forward-char -1))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4902 (if (= last-at (setq last-at (point))) |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4903 ;; Oops, we're not making any progress! Show the current topic |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4904 ;; completely, and try one more time here, if we haven't already. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4905 (progn (beginning-of-line) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4906 (allout-show-current-subtree) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4907 (goto-char orig-pt) |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4908 (setq bag-it (1+ bag-it)) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4909 (if (> bag-it 1) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4910 (error "allout-show-to-offshoot: %s" |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4911 "Stumped by aberrant nesting."))) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
4912 (if (> bag-it 0) (setq bag-it 0)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4913 (allout-show-children) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4914 (goto-char orig-pref))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4915 (goto-char orig-pt))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4916 (if (allout-hidden-p) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4917 (allout-show-entry))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4918 ;;;_ > allout-hide-current-entry () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4919 (defun allout-hide-current-entry () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4920 "Hide the body directly following this heading." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4921 (interactive) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4922 (allout-back-to-current-heading) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4923 (save-excursion |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4924 (let ((inhibit-field-text-motion t)) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
4925 (end-of-line)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4926 (allout-flag-region (point) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4927 (progn (allout-end-of-entry) (point)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4928 t))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4929 ;;;_ > allout-show-current-entry (&optional arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4930 (defun allout-show-current-entry (&optional arg) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4931 "Show body following current heading, or hide entry with universal argument." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4932 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4933 (interactive "P") |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4934 (if arg |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4935 (allout-hide-current-entry) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4936 (save-excursion (allout-show-to-offshoot)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
4937 (save-excursion |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4938 (allout-flag-region (point) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4939 (progn (allout-end-of-entry t) (point)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4940 nil) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
4941 ))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4942 ;;;_ > allout-show-current-subtree (&optional arg) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4943 (defun allout-show-current-subtree (&optional arg) |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
4944 "Show everything within the current topic. |
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
4945 With a repeat-count, expose this topic and its siblings." |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4946 (interactive "P") |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4947 (save-excursion |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4948 (if (<= (allout-current-depth) 0) |
79939 | 4949 ;; Outside any topics -- try to get to the first: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4950 (if (not (allout-next-heading)) |
38431
853c3674f20a
Fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38250
diff
changeset
|
4951 (error "No topics") |
79939 | 4952 ;; got to first, outermost topic -- set to expose it and siblings: |
4953 (message "Above outermost topic -- exposing all.") | |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4954 (allout-flag-region (point-min)(point-max) nil)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4955 (allout-beginning-of-current-line) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4956 (if (not arg) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4957 (allout-flag-current-subtree nil) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4958 (allout-beginning-of-level) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4959 (allout-expose-topic '(* :)))))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4960 ;;;_ > allout-current-topic-collapsed-p (&optional include-single-liners) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4961 (defun allout-current-topic-collapsed-p (&optional include-single-liners) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4962 "True if the currently visible containing topic is already collapsed. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4963 |
70673
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
4964 Single line topics intrinsically can be considered as being both |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
4965 collapsed and uncollapsed. If optional INCLUDE-SINGLE-LINERS is |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
4966 true, then single-line topics are considered to be collapsed. By |
798fa39b6207
2006-05-16 Ken Manheimer <ken.manheimer@gmail.com>
Reiner Steib <Reiner.Steib@gmx.de>
parents:
70616
diff
changeset
|
4967 default, they are treated as being uncollapsed." |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4968 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4969 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4970 (and |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4971 ;; Is the topic all on one line (allowing for trailing blank line)? |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4972 (>= (progn (allout-back-to-current-heading) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4973 (move-end-of-line 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4974 (point)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4975 (allout-end-of-current-subtree (not (looking-at "\n\n")))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4976 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4977 (or include-single-liners |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
4978 (progn (backward-char 1) (allout-hidden-p))))))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4979 ;;;_ > allout-hide-current-subtree (&optional just-close) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
4980 (defun allout-hide-current-subtree (&optional just-close) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4981 "Close the current topic, or containing topic if this one is already closed. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4982 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4983 If this topic is closed and it's a top level topic, close this topic |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
4984 and its siblings. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4985 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4986 If optional arg JUST-CLOSE is non-nil, do not close the parent or |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
4987 siblings, even if the target topic is already closed." |
3430 | 4988 |
4989 (interactive) | |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4990 (let* ((from (point)) |
79939 | 4991 (sibs-msg "Top-level topic already closed -- closing siblings...") |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4992 (current-exposed (not (allout-current-topic-collapsed-p t)))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4993 (cond (current-exposed (allout-flag-current-subtree t)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4994 (just-close nil) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4995 ((allout-ascend) (allout-hide-current-subtree)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4996 (t (goto-char 0) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4997 (message sibs-msg) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
4998 (allout-goto-prefix-doublechecked) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
4999 (allout-expose-topic '(0 :)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5000 (message (concat sibs-msg " Done.")))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5001 (goto-char from))) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5002 ;;;_ > allout-toggle-current-subtree-exposure |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5003 (defun allout-toggle-current-subtree-exposure () |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5004 "Show or hide the current subtree depending on its current state." |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5005 ;; thanks to tassilo for suggesting this. |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5006 (interactive) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5007 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5008 (allout-back-to-heading) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5009 (if (allout-hidden-p (point-at-eol)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5010 (allout-show-current-subtree) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5011 (allout-hide-current-subtree)))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5012 ;;;_ > allout-show-current-branches () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5013 (defun allout-show-current-branches () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5014 "Show all subheadings of this heading, but not their bodies." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5015 (interactive) |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5016 (let ((inhibit-field-text-motion t)) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5017 (beginning-of-line)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5018 (allout-show-children t)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5019 ;;;_ > allout-hide-current-leaves () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5020 (defun allout-hide-current-leaves () |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5021 "Hide the bodies of the current topic and all its offspring." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5022 (interactive) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5023 (allout-back-to-current-heading) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5024 (allout-hide-region-body (point) (progn (allout-end-of-current-subtree) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5025 (point)))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5026 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5027 ;;;_ - Region and beyond |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5028 ;;;_ > allout-show-all () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5029 (defun allout-show-all () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5030 "Show all of the text in the buffer." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5031 (interactive) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5032 (message "Exposing entire buffer...") |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5033 (allout-flag-region (point-min) (point-max) nil) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5034 (message "Exposing entire buffer... Done.")) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5035 ;;;_ > allout-hide-bodies () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5036 (defun allout-hide-bodies () |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5037 "Hide all of buffer except headings." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5038 (interactive) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5039 (allout-hide-region-body (point-min) (point-max))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5040 ;;;_ > allout-hide-region-body (start end) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5041 (defun allout-hide-region-body (start end) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5042 "Hide all body lines in the region, but not headings." |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5043 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5044 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5045 (save-restriction |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5046 (narrow-to-region start end) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5047 (goto-char (point-min)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5048 (let ((inhibit-field-text-motion t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5049 (while (not (eobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5050 (end-of-line) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5051 (allout-flag-region (point) (allout-end-of-entry) t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5052 (if (not (eobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5053 (forward-char |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5054 (if (looking-at "\n\n") |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5055 2 1))))))))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5056 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5057 ;;;_ > allout-expose-topic (spec) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5058 (defun allout-expose-topic (spec) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5059 "Apply exposure specs to successive outline topic items. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5060 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5061 Use the more convenient frontend, `allout-new-exposure', if you don't |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5062 need evaluation of the arguments, or even better, the `allout-layout' |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5063 variable-keyed mode-activation/auto-exposure feature of allout outline |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5064 mode. See the respective documentation strings for more details. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5065 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5066 Cursor is left at start position. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5067 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5068 SPEC is either a number or a list. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5069 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5070 Successive specs on a list are applied to successive sibling topics. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5071 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5072 A simple spec (either a number, one of a few symbols, or the null |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5073 list) dictates the exposure for the corresponding topic. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5074 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5075 Non-null lists recursively designate exposure specs for respective |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5076 subtopics of the current topic. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5077 |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5078 The `:' repeat spec is used to specify exposure for any number of |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5079 successive siblings, up to the trailing ones for which there are |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5080 explicit specs following the `:'. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5081 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5082 Simple (numeric and null-list) specs are interpreted as follows: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5083 |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5084 Numbers indicate the relative depth to open the corresponding topic. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5085 - negative numbers force the topic to be closed before opening to the |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5086 absolute value of the number, so all siblings are open only to |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5087 that level. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5088 - positive numbers open to the relative depth indicated by the |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5089 number, but do not force already opened subtopics to be closed. |
79939 | 5090 - 0 means to close topic -- hide all offspring. |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5091 : - `repeat' |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5092 apply prior element to all siblings at current level, *up to* |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5093 those siblings that would be covered by specs following the `:' |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5094 on the list. Ie, apply to all topics at level but the last |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5095 ones. (Only first of multiple colons at same level is |
79939 | 5096 respected -- subsequent ones are discarded.) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5097 * - completely opens the topic, including bodies. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5098 + - shows all the sub headers, but not the bodies |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5099 - - exposes the body of the corresponding topic. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5100 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5101 Examples: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5102 \(allout-expose-topic '(-1 : 0)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5103 Close this and all following topics at current level, exposing |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5104 only their immediate children, but close down the last topic |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5105 at this current level completely. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5106 \(allout-expose-topic '(-1 () : 1 0)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5107 Close current topic so only the immediate subtopics are shown; |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5108 show the children in the second to last topic, and completely |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5109 close the last one. |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5110 \(allout-expose-topic '(-2 : -1 *)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5111 Expose children and grandchildren of all topics at current |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5112 level except the last two; expose children of the second to |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5113 last and completely open the last one." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5114 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5115 (interactive "xExposure spec: ") |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5116 (if (not (listp spec)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5117 nil |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5118 (let ((depth (allout-depth)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5119 (max-pos 0) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5120 prev-elem curr-elem |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5121 stay) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5122 (while spec |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5123 (setq prev-elem curr-elem |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5124 curr-elem (car spec) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5125 spec (cdr spec)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5126 (cond ; Do current element: |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5127 ((null curr-elem) nil) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5128 ((symbolp curr-elem) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5129 (cond ((eq curr-elem '*) (allout-show-current-subtree) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5130 (if (> allout-recent-end-of-subtree max-pos) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5131 (setq max-pos allout-recent-end-of-subtree))) |
73201
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
5132 ((eq curr-elem '+) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
5133 (if (not (allout-hidden-p)) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
5134 (save-excursion (allout-hide-current-subtree t))) |
16a7031b0447
(allout-expose-topic): Rectify implementation of "+" spec, so that bodies are
Eli Zaretskii <eliz@gnu.org>
parents:
73003
diff
changeset
|
5135 (allout-show-current-branches) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5136 (if (> allout-recent-end-of-subtree max-pos) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5137 (setq max-pos allout-recent-end-of-subtree))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5138 ((eq curr-elem '-) (allout-show-current-entry)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5139 ((eq curr-elem ':) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5140 (setq stay t) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5141 ;; Expand the `repeat' spec to an explicit version, |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5142 ;; w.r.t. remaining siblings: |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5143 (let ((residue ; = # of sibs not covered by remaining spec |
79939 | 5144 ;; Dang, could be nice to make use of the chart, sigh: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5145 (- (length (allout-chart-siblings)) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5146 (length spec)))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5147 (if (< 0 residue) |
79939 | 5148 ;; Some residue -- cover it with prev-elem: |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5149 (setq spec (append (make-list residue prev-elem) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5150 spec))))))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5151 ((numberp curr-elem) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5152 (if (and (>= 0 curr-elem) (not (allout-hidden-p))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5153 (save-excursion (allout-hide-current-subtree t) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5154 (if (> 0 curr-elem) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5155 nil |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5156 (if (> allout-recent-end-of-subtree max-pos) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5157 (setq max-pos |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5158 allout-recent-end-of-subtree))))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5159 (if (> (abs curr-elem) 0) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5160 (progn (allout-show-children (abs curr-elem)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5161 (if (> allout-recent-end-of-subtree max-pos) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5162 (setq max-pos allout-recent-end-of-subtree))))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5163 ((listp curr-elem) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5164 (if (allout-descend-to-depth (1+ depth)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5165 (let ((got (allout-expose-topic curr-elem))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5166 (if (and got (> got max-pos)) (setq max-pos got)))))) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5167 (cond (stay (setq stay nil)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5168 ((listp (car spec)) nil) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5169 ((> max-pos (point)) |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5170 ;; Capitalize on max-pos state to get us nearer next sibling: |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5171 (progn (goto-char (min (point-max) max-pos)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5172 (allout-next-heading))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5173 ((allout-next-sibling depth)))) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5174 max-pos))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5175 ;;;_ > allout-old-expose-topic (spec &rest followers) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5176 (defun allout-old-expose-topic (spec &rest followers) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5177 |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5178 "Deprecated. Use `allout-expose-topic' (with different schema |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5179 format) instead. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5180 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5181 Dictate wholesale exposure scheme for current topic, according to SPEC. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5182 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5183 SPEC is either a number or a list. Optional successive args |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5184 dictate exposure for subsequent siblings of current topic. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5185 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5186 A simple spec (either a number, a special symbol, or the null list) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5187 dictates the overall exposure for a topic. Non null lists are |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5188 composite specs whose first element dictates the overall exposure for |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5189 a topic, with the subsequent elements in the list interpreted as specs |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5190 that dictate the exposure for the successive offspring of the topic. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5191 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5192 Simple (numeric and null-list) specs are interpreted as follows: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5193 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5194 - Numbers indicate the relative depth to open the corresponding topic: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5195 - negative numbers force the topic to be close before opening to the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5196 absolute value of the number. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5197 - positive numbers just open to the relative depth indicated by the number. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5198 - 0 just closes |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5199 - `*' completely opens the topic, including bodies. |
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5200 - `+' shows all the sub headers, but not the bodies |
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5201 - `-' exposes the body and immediate offspring of the corresponding topic. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5202 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5203 If the spec is a list, the first element must be a number, which |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5204 dictates the exposure depth of the topic as a whole. Subsequent |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5205 elements of the list are nested SPECs, dictating the specific exposure |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5206 for the corresponding offspring of the topic. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5207 |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5208 Optional FOLLOWERS arguments dictate exposure for succeeding siblings." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5209 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5210 (interactive "xExposure spec: ") |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5211 (let ((inhibit-field-text-motion t) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5212 (depth (allout-current-depth)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5213 max-pos) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5214 (cond ((null spec) nil) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5215 ((symbolp spec) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5216 (if (eq spec '*) (allout-show-current-subtree)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5217 (if (eq spec '+) (allout-show-current-branches)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5218 (if (eq spec '-) (allout-show-current-entry))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5219 ((numberp spec) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5220 (if (>= 0 spec) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5221 (save-excursion (allout-hide-current-subtree t) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5222 (end-of-line) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5223 (if (or (not max-pos) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5224 (> (point) max-pos)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5225 (setq max-pos (point))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5226 (if (> 0 spec) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5227 (setq spec (* -1 spec))))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5228 (if (> spec 0) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5229 (allout-show-children spec))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5230 ((listp spec) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5231 ;(let ((got (allout-old-expose-topic (car spec)))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5232 ; (if (and got (or (not max-pos) (> got max-pos))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5233 ; (setq max-pos got))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5234 (let ((new-depth (+ (allout-current-depth) 1)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5235 got) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5236 (setq max-pos (allout-old-expose-topic (car spec))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5237 (setq spec (cdr spec)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5238 (if (and spec |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5239 (allout-descend-to-depth new-depth) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5240 (not (allout-hidden-p))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5241 (progn (setq got (apply 'allout-old-expose-topic spec)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5242 (if (and got (or (not max-pos) (> got max-pos))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5243 (setq max-pos got))))))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5244 (while (and followers |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5245 (progn (if (and max-pos (< (point) max-pos)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5246 (progn (goto-char max-pos) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5247 (setq max-pos nil))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5248 (end-of-line) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5249 (allout-next-sibling depth))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5250 (allout-old-expose-topic (car followers)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5251 (setq followers (cdr followers))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5252 max-pos)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5253 ;;;_ > allout-new-exposure '() |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5254 (defmacro allout-new-exposure (&rest spec) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5255 "Literal frontend for `allout-expose-topic', doesn't evaluate arguments. |
48857
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
5256 Some arguments that would need to be quoted in `allout-expose-topic' |
8641226163f1
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
48856
diff
changeset
|
5257 need not be quoted in `allout-new-exposure'. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5258 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5259 Cursor is left at start position. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5260 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5261 Use this instead of obsolete `allout-exposure'. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5262 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5263 Examples: |
61969
38ca28ee68d6
(allout-exposure): Remove macro and obsolete declaration.
Nick Roberts <nickrob@snap.net.nz>
parents:
59996
diff
changeset
|
5264 \(allout-new-exposure (-1 () () () 1) 0) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5265 Close current topic at current level so only the immediate |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5266 subtopics are shown, except also show the children of the |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5267 third subtopic; and close the next topic at the current level. |
61969
38ca28ee68d6
(allout-exposure): Remove macro and obsolete declaration.
Nick Roberts <nickrob@snap.net.nz>
parents:
59996
diff
changeset
|
5268 \(allout-new-exposure : -1 0) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5269 Close all topics at current level to expose only their |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5270 immediate children, except for the last topic at the current |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
5271 level, in which even its immediate children are hidden. |
61969
38ca28ee68d6
(allout-exposure): Remove macro and obsolete declaration.
Nick Roberts <nickrob@snap.net.nz>
parents:
59996
diff
changeset
|
5272 \(allout-new-exposure -2 : -1 *) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5273 Expose children and grandchildren of first topic at current |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5274 level, and expose children of subsequent topics at current |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5275 level *except* for the last, which should be opened completely." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5276 (list 'save-excursion |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
5277 '(if (not (or (allout-goto-prefix-doublechecked) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5278 (allout-next-heading))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5279 (error "allout-new-exposure: Can't find any outline topics")) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5280 (list 'allout-expose-topic (list 'quote spec)))) |
29490 | 5281 |
79939 | 5282 ;;;_ #7 Systematic outline presentation -- copying, printing, flattening |
29490 | 5283 |
5284 ;;;_ - Mapping and processing of topics | |
5285 ;;;_ ( See also Subtree Charting, in Navigation code.) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5286 ;;;_ > allout-stringify-flat-index (flat-index) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5287 (defun allout-stringify-flat-index (flat-index &optional context) |
29490 | 5288 "Convert list representing section/subsection/... to document string. |
5289 | |
5290 Optional arg CONTEXT indicates interior levels to include." | |
5291 (let ((delim ".") | |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
5292 result |
29490 | 5293 numstr |
5294 (context-depth (or (and context 2) 1))) | |
5295 ;; Take care of the explicit context: | |
5296 (while (> context-depth 0) | |
5297 (setq numstr (int-to-string (car flat-index)) | |
5298 flat-index (cdr flat-index) | |
5299 result (if flat-index | |
5300 (cons delim (cons numstr result)) | |
5301 (cons numstr result)) | |
5302 context-depth (if flat-index (1- context-depth) 0))) | |
5303 (setq delim " ") | |
5304 ;; Take care of the indentation: | |
5305 (if flat-index | |
5306 (progn | |
5307 (while flat-index | |
5308 (setq result | |
5309 (cons delim | |
5310 (cons (make-string | |
5311 (1+ (truncate (if (zerop (car flat-index)) | |
5312 1 | |
5313 (log10 (car flat-index))))) | |
5314 ? ) | |
5315 result))) | |
5316 (setq flat-index (cdr flat-index))) | |
5317 ;; Dispose of single extra delim: | |
5318 (setq result (cdr result)))) | |
5319 (apply 'concat result))) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5320 ;;;_ > allout-stringify-flat-index-plain (flat-index) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5321 (defun allout-stringify-flat-index-plain (flat-index) |
29490 | 5322 "Convert list representing section/subsection/... to document string." |
5323 (let ((delim ".") | |
5324 result) | |
5325 (while flat-index | |
5326 (setq result (cons (int-to-string (car flat-index)) | |
5327 (if result | |
5328 (cons delim result)))) | |
5329 (setq flat-index (cdr flat-index))) | |
5330 (apply 'concat result))) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5331 ;;;_ > allout-stringify-flat-index-indented (flat-index) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5332 (defun allout-stringify-flat-index-indented (flat-index) |
29490 | 5333 "Convert list representing section/subsection/... to document string." |
5334 (let ((delim ".") | |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
5335 result |
29490 | 5336 numstr) |
5337 ;; Take care of the explicit context: | |
5338 (setq numstr (int-to-string (car flat-index)) | |
5339 flat-index (cdr flat-index) | |
5340 result (if flat-index | |
5341 (cons delim (cons numstr result)) | |
5342 (cons numstr result))) | |
5343 (setq delim " ") | |
5344 ;; Take care of the indentation: | |
5345 (if flat-index | |
5346 (progn | |
5347 (while flat-index | |
5348 (setq result | |
5349 (cons delim | |
5350 (cons (make-string | |
5351 (1+ (truncate (if (zerop (car flat-index)) | |
5352 1 | |
5353 (log10 (car flat-index))))) | |
5354 ? ) | |
5355 result))) | |
5356 (setq flat-index (cdr flat-index))) | |
5357 ;; Dispose of single extra delim: | |
5358 (setq result (cdr result)))) | |
5359 (apply 'concat result))) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5360 ;;;_ > allout-listify-exposed (&optional start end format) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5361 (defun allout-listify-exposed (&optional start end format) |
29490 | 5362 |
5363 "Produce a list representing exposed topics in current region. | |
5364 | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5365 This list can then be used by `allout-process-exposed' to manipulate |
29490 | 5366 the subject region. |
5367 | |
5368 Optional START and END indicate bounds of region. | |
5369 | |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
5370 Optional arg, FORMAT, designates an alternate presentation form for |
29490 | 5371 the prefix: |
5372 | |
79939 | 5373 list -- Present prefix as numeric section.subsection..., starting with |
29490 | 5374 section indicated by the list, innermost nesting first. |
79939 | 5375 `indent' (symbol) -- Convert header prefixes to all white space, |
29490 | 5376 except for distinctive bullets. |
5377 | |
5378 The elements of the list produced are lists that represents a topic | |
5379 header and body. The elements of that list are: | |
5380 | |
5381 - a number representing the depth of the topic, | |
5382 - a string representing the header-prefix, including trailing whitespace and | |
5383 bullet. | |
5384 - a string representing the bullet character, | |
5385 - and a series of strings, each containing one line of the exposed | |
5386 portion of the topic entry." | |
5387 | |
5388 (interactive "r") | |
5389 (save-excursion | |
5390 (let* | |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5391 ((inhibit-field-text-motion t) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5392 ;; state vars: |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5393 strings prefix result depth new-depth out gone-out bullet beg |
29490 | 5394 next done) |
5395 | |
5396 (goto-char start) | |
5397 (beginning-of-line) | |
5398 ;; Goto initial topic, and register preceeding stuff, if any: | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
5399 (if (> (allout-goto-prefix-doublechecked) start) |
79939 | 5400 ;; First topic follows beginning point -- register preliminary stuff: |
29490 | 5401 (setq result (list (list 0 "" nil |
5402 (buffer-substring start (1- (point))))))) | |
5403 (while (and (not done) | |
5404 (not (eobp)) ; Loop until we've covered the region. | |
5405 (not (> (point) end))) | |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
5406 (setq depth allout-recent-depth ; Current topics depth, |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5407 bullet (allout-recent-bullet) ; ... bullet, |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5408 prefix (allout-recent-prefix) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5409 beg (progn (allout-end-of-prefix t) (point))) ; and beginning. |
29490 | 5410 (setq done ; The boundary for the current topic: |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5411 (not (allout-next-visible-heading 1))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
5412 (setq new-depth allout-recent-depth) |
29490 | 5413 (setq gone-out out |
5414 out (< new-depth depth)) | |
5415 (beginning-of-line) | |
5416 (setq next (point)) | |
5417 (goto-char beg) | |
5418 (setq strings nil) | |
5419 (while (> next (point)) ; Get all the exposed text in | |
5420 (setq strings | |
5421 (cons (buffer-substring | |
5422 beg | |
5423 ;To hidden text or end of line: | |
5424 (progn | |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5425 (end-of-line) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5426 (allout-back-to-visible-text))) |
29490 | 5427 strings)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5428 (when (< (point) next) ; Resume from after hid text, if any. |
73003
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
5429 (line-move 1) |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
5430 (beginning-of-line)) |
29490 | 5431 (setq beg (point))) |
5432 ;; Accumulate list for this topic: | |
5433 (setq strings (nreverse strings)) | |
5434 (setq result | |
5435 (cons | |
5436 (if format | |
5437 (let ((special (if (string-match | |
5438 (regexp-quote bullet) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5439 allout-distinctive-bullets-string) |
29490 | 5440 bullet))) |
5441 (cond ((listp format) | |
5442 (list depth | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5443 (if allout-abbreviate-flattened-numbering |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5444 (allout-stringify-flat-index format |
29490 | 5445 gone-out) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5446 (allout-stringify-flat-index-plain |
29490 | 5447 format)) |
5448 strings | |
5449 special)) | |
5450 ((eq format 'indent) | |
5451 (if special | |
5452 (list depth | |
5453 (concat (make-string (1+ depth) ? ) | |
5454 (substring prefix -1)) | |
5455 strings) | |
5456 (list depth | |
5457 (make-string depth ? ) | |
5458 strings))) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5459 (t (error "allout-listify-exposed: %s %s" |
29490 | 5460 "invalid format" format)))) |
5461 (list depth prefix strings)) | |
5462 result)) | |
5463 ;; Reasses format, if any: | |
5464 (if (and format (listp format)) | |
5465 (cond ((= new-depth depth) | |
5466 (setq format (cons (1+ (car format)) | |
5467 (cdr format)))) | |
79939 | 5468 ((> new-depth depth) ; descending -- assume by 1: |
29490 | 5469 (setq format (cons 1 format))) |
5470 (t | |
5471 ; Pop the residue: | |
5472 (while (< new-depth depth) | |
5473 (setq format (cdr format)) | |
5474 (setq depth (1- depth))) | |
5475 ; And increment the current one: | |
5476 (setq format | |
5477 (cons (1+ (or (car format) | |
5478 -1)) | |
5479 (cdr format))))))) | |
5480 ;; Put the list with first at front, to last at back: | |
5481 (nreverse result)))) | |
87407
25c8924964c6
(allout-region-active-p): Renamed from my-region-active-p. Use `use-region-p'.
Richard M. Stallman <rms@gnu.org>
parents:
87160
diff
changeset
|
5482 ;;;_ > allout-region-active-p () |
25c8924964c6
(allout-region-active-p): Renamed from my-region-active-p. Use `use-region-p'.
Richard M. Stallman <rms@gnu.org>
parents:
87160
diff
changeset
|
5483 (defmacro allout-region-active-p () |
87943
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
5484 (cond ((fboundp 'use-region-p) '(use-region-p)) |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
5485 ((fboundp 'region-active-p) '(region-active-p)) |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
5486 (t 'mark-active))) |
4fb8430d030b
(allout-keybindings-list): In initial setting, express
Ken Manheimer <ken.manheimer@gmail.com>
parents:
87649
diff
changeset
|
5487 ;;_ > allout-process-exposed (&optional func from to frombuf |
29490 | 5488 ;;; tobuf format) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5489 (defun allout-process-exposed (&optional func from to frombuf tobuf |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5490 format start-num) |
29490 | 5491 "Map function on exposed parts of current topic; results to another buffer. |
5492 | |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5493 All args are options; default values itemized below. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5494 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5495 Apply FUNCTION to exposed portions FROM position TO position in buffer |
29490 | 5496 FROMBUF to buffer TOBUF. Sixth optional arg, FORMAT, designates an |
5497 alternate presentation form: | |
5498 | |
79939 | 5499 `flat' -- Present prefix as numeric section.subsection..., starting with |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
5500 section indicated by the START-NUM, innermost nesting first. |
79939 | 5501 X`flat-indented' -- Prefix is like `flat' for first topic at each |
29490 | 5502 X level, but subsequent topics have only leaf topic |
5503 X number, padded with blanks to line up with first. | |
79939 | 5504 `indent' (symbol) -- Convert header prefixes to all white space, |
29490 | 5505 except for distinctive bullets. |
5506 | |
5507 Defaults: | |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5508 FUNCTION: `allout-insert-listified' |
29490 | 5509 FROM: region start, if region active, else start of buffer |
5510 TO: region end, if region active, else end of buffer | |
5511 FROMBUF: current buffer | |
5512 TOBUF: buffer name derived: \"*current-buffer-name exposed*\" | |
5513 FORMAT: nil" | |
5514 | |
5515 ; Resolve arguments, | |
5516 ; defaulting if necessary: | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5517 (if (not func) (setq func 'allout-insert-listified)) |
29490 | 5518 (if (not (and from to)) |
87407
25c8924964c6
(allout-region-active-p): Renamed from my-region-active-p. Use `use-region-p'.
Richard M. Stallman <rms@gnu.org>
parents:
87160
diff
changeset
|
5519 (if (allout-region-active-p) |
29490 | 5520 (setq from (region-beginning) to (region-end)) |
5521 (setq from (point-min) to (point-max)))) | |
5522 (if frombuf | |
5523 (if (not (bufferp frombuf)) | |
79939 | 5524 ;; Specified but not a buffer -- get it: |
29490 | 5525 (let ((got (get-buffer frombuf))) |
5526 (if (not got) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5527 (error (concat "allout-process-exposed: source buffer " |
29490 | 5528 frombuf |
5529 " not found.")) | |
5530 (setq frombuf got)))) | |
79939 | 5531 ;; not specified -- default it: |
29490 | 5532 (setq frombuf (current-buffer))) |
5533 (if tobuf | |
5534 (if (not (bufferp tobuf)) | |
5535 (setq tobuf (get-buffer-create tobuf))) | |
79939 | 5536 ;; not specified -- default it: |
29490 | 5537 (setq tobuf (concat "*" (buffer-name frombuf) " exposed*"))) |
5538 (if (listp format) | |
5539 (nreverse format)) | |
5540 | |
5541 (let* ((listified | |
5542 (progn (set-buffer frombuf) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5543 (allout-listify-exposed from to format)))) |
29490 | 5544 (set-buffer tobuf) |
84855
5b7295004fd1
(produce-allout-mode-map, allout-process-exposed):
Juanma Barranquero <lekktu@gmail.com>
parents:
78492
diff
changeset
|
5545 (mapc func listified) |
29490 | 5546 (pop-to-buffer tobuf))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5547 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5548 ;;;_ - Copy exposed |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5549 ;;;_ > allout-insert-listified (listified) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5550 (defun allout-insert-listified (listified) |
29490 | 5551 "Insert contents of listified outline portion in current buffer. |
5552 | |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5553 LISTIFIED is a list representing each topic header and body: |
29490 | 5554 |
5555 \`(depth prefix text)' | |
5556 | |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5557 or \`(depth prefix text bullet-plus)' |
29490 | 5558 |
5559 If `bullet-plus' is specified, it is inserted just after the entire prefix." | |
5560 (setq listified (cdr listified)) | |
5561 (let ((prefix (prog1 | |
5562 (car listified) | |
5563 (setq listified (cdr listified)))) | |
5564 (text (prog1 | |
5565 (car listified) | |
5566 (setq listified (cdr listified)))) | |
5567 (bullet-plus (car listified))) | |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5568 (insert prefix) |
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5569 (if bullet-plus (insert (concat " " bullet-plus))) |
29490 | 5570 (while text |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5571 (insert (car text)) |
29490 | 5572 (if (setq text (cdr text)) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5573 (insert "\n"))) |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5574 (insert "\n"))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5575 ;;;_ > allout-copy-exposed-to-buffer (&optional arg tobuf format) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5576 (defun allout-copy-exposed-to-buffer (&optional arg tobuf format) |
29490 | 5577 "Duplicate exposed portions of current outline to another buffer. |
5578 | |
5579 Other buffer has current buffers name with \" exposed\" appended to it. | |
5580 | |
5581 With repeat count, copy the exposed parts of only the current topic. | |
5582 | |
5583 Optional second arg TOBUF is target buffer name. | |
5584 | |
5585 Optional third arg FORMAT, if non-nil, symbolically designates an | |
5586 alternate presentation format for the outline: | |
5587 | |
5588 `flat' - Convert topic header prefixes to numeric | |
5589 section.subsection... identifiers. | |
5590 `indent' - Convert header prefixes to all white space, except for | |
5591 distinctive bullets. | |
5592 `indent-flat' - The best of both - only the first of each level has | |
5593 the full path, the rest have only the section number | |
5594 of the leaf, preceded by the right amount of indentation." | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5595 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5596 (interactive "P") |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5597 (if (not tobuf) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5598 (setq tobuf (get-buffer-create (concat "*" (buffer-name) " exposed*")))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5599 (let* ((start-pt (point)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5600 (beg (if arg (allout-back-to-current-heading) (point-min))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5601 (end (if arg (allout-end-of-current-subtree) (point-max))) |
29490 | 5602 (buf (current-buffer)) |
5603 (start-list ())) | |
5604 (if (eq format 'flat) | |
5605 (setq format (if arg (save-excursion | |
5606 (goto-char beg) | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5607 (allout-topic-flat-index)) |
29490 | 5608 '(1)))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5609 (save-excursion (set-buffer tobuf)(erase-buffer)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5610 (allout-process-exposed 'allout-insert-listified |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5611 beg |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5612 end |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5613 (current-buffer) |
29490 | 5614 tobuf |
5615 format start-list) | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5616 (goto-char (point-min)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5617 (pop-to-buffer buf) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5618 (goto-char start-pt))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5619 ;;;_ > allout-flatten-exposed-to-buffer (&optional arg tobuf) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5620 (defun allout-flatten-exposed-to-buffer (&optional arg tobuf) |
29490 | 5621 "Present numeric outline of outline's exposed portions in another buffer. |
5622 | |
79939 | 5623 The resulting outline is not compatible with outline mode -- use |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5624 `allout-copy-exposed-to-buffer' if you want that. |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5625 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5626 Use `allout-indented-exposed-to-buffer' for indented presentation. |
29490 | 5627 |
5628 With repeat count, copy the exposed portions of only current topic. | |
5629 | |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5630 Other buffer has current buffer's name with \" exposed\" appended to |
29490 | 5631 it, unless optional second arg TOBUF is specified, in which case it is |
5632 used verbatim." | |
5633 (interactive "P") | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5634 (allout-copy-exposed-to-buffer arg tobuf 'flat)) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5635 ;;;_ > allout-indented-exposed-to-buffer (&optional arg tobuf) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5636 (defun allout-indented-exposed-to-buffer (&optional arg tobuf) |
29490 | 5637 "Present indented outline of outline's exposed portions in another buffer. |
5638 | |
79939 | 5639 The resulting outline is not compatible with outline mode -- use |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5640 `allout-copy-exposed-to-buffer' if you want that. |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5641 |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5642 Use `allout-flatten-exposed-to-buffer' for numeric sectional presentation. |
29490 | 5643 |
5644 With repeat count, copy the exposed portions of only current topic. | |
5645 | |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5646 Other buffer has current buffer's name with \" exposed\" appended to |
29490 | 5647 it, unless optional second arg TOBUF is specified, in which case it is |
5648 used verbatim." | |
5649 (interactive "P") | |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5650 (allout-copy-exposed-to-buffer arg tobuf 'indent)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5651 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5652 ;;;_ - LaTeX formatting |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5653 ;;;_ > allout-latex-verb-quote (string &optional flow) |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5654 (defun allout-latex-verb-quote (string &optional flow) |
64283
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
5655 "Return copy of STRING for literal reproduction across LaTeX processing. |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5656 Expresses the original characters (including carriage returns) of the |
64283
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
5657 string across LaTeX processing." |
29490 | 5658 (mapconcat (function |
5659 (lambda (char) | |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5660 (cond ((memq char '(?\\ ?$ ?% ?# ?& ?{ ?} ?_ ?^ ?- ?*)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5661 (concat "\\char" (number-to-string char) "{}")) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5662 ((= char ?\n) "\\\\") |
29490 | 5663 (t (char-to-string char))))) |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5664 string |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5665 "")) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5666 ;;;_ > allout-latex-verbatim-quote-curr-line () |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5667 (defun allout-latex-verbatim-quote-curr-line () |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5668 "Express line for exact (literal) representation across LaTeX processing. |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5669 |
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5670 Adjust line contents so it is unaltered (from the original line) |
64283
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
5671 across LaTeX processing, within the context of a `verbatim' |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5672 environment. Leaves point at the end of the line." |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5673 (let ((inhibit-field-text-motion t)) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5674 (beginning-of-line) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5675 (let ((beg (point)) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5676 (end (progn (end-of-line)(point)))) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
5677 (goto-char beg) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5678 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5679 (while (re-search-forward "\\\\" |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5680 ;;"\\\\\\|\\{\\|\\}\\|\\_\\|\\$\\|\\\"\\|\\&\\|\\^\\|\\-\\|\\*\\|#" |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5681 end ; bounded by end-of-line |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5682 1) ; no matches, move to end & return nil |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5683 (goto-char (match-beginning 2)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5684 (insert "\\") |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5685 (setq end (1+ end)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
5686 (goto-char (1+ (match-end 2)))))))) |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5687 ;;;_ > allout-insert-latex-header (buffer) |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5688 (defun allout-insert-latex-header (buffer) |
64283
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
5689 "Insert initial LaTeX commands at point in BUFFER." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5690 ;; Much of this is being derived from the stuff in appendix of E in |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5691 ;; the TeXBook, pg 421. |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5692 (set-buffer buffer) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5693 (let ((doc-style (format "\n\\documentstyle{%s}\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5694 "report")) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5695 (page-numbering (if allout-number-pages |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5696 "\\pagestyle{empty}\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5697 "")) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5698 (titlecmd (format "\\newcommand{\\titlecmd}[1]{{%s #1}}\n" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5699 allout-title-style)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5700 (labelcmd (format "\\newcommand{\\labelcmd}[1]{{%s #1}}\n" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5701 allout-label-style)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5702 (headlinecmd (format "\\newcommand{\\headlinecmd}[1]{{%s #1}}\n" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5703 allout-head-line-style)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5704 (bodylinecmd (format "\\newcommand{\\bodylinecmd}[1]{{%s #1}}\n" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5705 allout-body-line-style)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5706 (setlength (format "%s%s%s%s" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5707 "\\newlength{\\stepsize}\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5708 "\\setlength{\\stepsize}{" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5709 allout-indent |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5710 "}\n")) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5711 (oneheadline (format "%s%s%s%s%s%s%s" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5712 "\\newcommand{\\OneHeadLine}[3]{%\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5713 "\\noindent%\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5714 "\\hspace*{#2\\stepsize}%\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5715 "\\labelcmd{#1}\\hspace*{.2cm}" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5716 "\\headlinecmd{#3}\\\\[" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5717 allout-line-skip |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5718 "]\n}\n")) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5719 (onebodyline (format "%s%s%s%s%s%s" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5720 "\\newcommand{\\OneBodyLine}[2]{%\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5721 "\\noindent%\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5722 "\\hspace*{#1\\stepsize}%\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5723 "\\bodylinecmd{#2}\\\\[" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5724 allout-line-skip |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5725 "]\n}\n")) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5726 (begindoc "\\begin{document}\n\\begin{center}\n") |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5727 (title (format "%s%s%s%s" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5728 "\\titlecmd{" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5729 (allout-latex-verb-quote (if allout-title |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5730 (condition-case nil |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5731 (eval allout-title) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
5732 (error "<unnamed buffer>")) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5733 "Unnamed Outline")) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5734 "}\n" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5735 "\\end{center}\n\n")) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5736 (hsize "\\hsize = 7.5 true in\n") |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5737 (hoffset "\\hoffset = -1.5 true in\n") |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5738 (vspace "\\vspace{.1cm}\n\n")) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5739 (insert (concat doc-style |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5740 page-numbering |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5741 titlecmd |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5742 labelcmd |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5743 headlinecmd |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5744 bodylinecmd |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5745 setlength |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5746 oneheadline |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5747 onebodyline |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5748 begindoc |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5749 title |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5750 hsize |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5751 hoffset |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5752 vspace) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5753 ))) |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5754 ;;;_ > allout-insert-latex-trailer (buffer) |
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5755 (defun allout-insert-latex-trailer (buffer) |
64283
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
5756 "Insert concluding LaTeX commands at point in BUFFER." |
55717
50b099e608af
(allout-chart-subtree, allout-rebullet-topic-grunt): Don't mention in the
Juanma Barranquero <lekktu@gmail.com>
parents:
54952
diff
changeset
|
5757 (set-buffer buffer) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5758 (insert "\n\\end{document}\n")) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5759 ;;;_ > allout-latexify-one-item (depth prefix bullet text) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5760 (defun allout-latexify-one-item (depth prefix bullet text) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5761 "Insert LaTeX commands for formatting one outline item. |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5762 |
29490 | 5763 Args are the topics numeric DEPTH, the header PREFIX lead string, the |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5764 BULLET string, and a list of TEXT strings for the body." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5765 (let* ((head-line (if text (car text))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5766 (body-lines (cdr text)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5767 (curr-line) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5768 body-content bop) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5769 ; Do the head line: |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48859
diff
changeset
|
5770 (insert (concat "\\OneHeadLine{\\verb\1 " |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5771 (allout-latex-verb-quote bullet) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5772 "\1}{" |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5773 depth |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5774 "}{\\verb\1 " |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5775 (if head-line |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5776 (allout-latex-verb-quote head-line) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5777 "") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5778 "\1}\n")) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5779 (if (not body-lines) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5780 nil |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5781 ;;(insert "\\beginlines\n") |
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5782 (insert "\\begin{verbatim}\n") |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5783 (while body-lines |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5784 (setq curr-line (car body-lines)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5785 (if (and (not body-content) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5786 (not (string-match "^\\s-*$" curr-line))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5787 (setq body-content t)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5788 ; Mangle any occurrences of |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5789 ; "\end{verbatim}" in text, |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5790 ; it's special: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5791 (if (and body-content |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5792 (setq bop (string-match "\\end{verbatim}" curr-line))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5793 (setq curr-line (concat (substring curr-line 0 bop) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5794 ">" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5795 (substring curr-line bop)))) |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5796 ;;(insert "|" (car body-lines) "|") |
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5797 (insert curr-line) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5798 (allout-latex-verbatim-quote-curr-line) |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5799 (insert "\n") |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5800 (setq body-lines (cdr body-lines))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5801 (if body-content |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5802 (setq body-content nil) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5803 (forward-char -1) |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5804 (insert "\\ ") |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5805 (forward-char 1)) |
41571
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5806 ;;(insert "\\endlines\n") |
2902b21d2034
(outline-version, outline-open-topic)
Pavel Janík <Pavel@Janik.cz>
parents:
38431
diff
changeset
|
5807 (insert "\\end{verbatim}\n") |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5808 ))) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5809 ;;;_ > allout-latexify-exposed (arg &optional tobuf) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5810 (defun allout-latexify-exposed (arg &optional tobuf) |
64283
d57ad48e7901
(my-mark-marker, allout-isearch-prior-pos, allout-unprotected,
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
5811 "Format current topics exposed portions to TOBUF for LaTeX processing. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5812 TOBUF defaults to a buffer named the same as the current buffer, but |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
5813 with \"*\" prepended and \" latex-formed*\" appended. |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5814 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5815 With repeat count, copy the exposed portions of entire buffer." |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5816 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5817 (interactive "P") |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5818 (if (not tobuf) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5819 (setq tobuf |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5820 (get-buffer-create (concat "*" (buffer-name) " latexified*")))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5821 (let* ((start-pt (point)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5822 (beg (if arg (point-min) (allout-back-to-current-heading))) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5823 (end (if arg (point-max) (allout-end-of-current-subtree))) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5824 (buf (current-buffer))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5825 (set-buffer tobuf) |
3430 | 5826 (erase-buffer) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5827 (allout-insert-latex-header tobuf) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5828 (goto-char (point-max)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5829 (allout-process-exposed 'allout-latexify-one-item |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5830 beg |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5831 end |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5832 buf |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5833 tobuf) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5834 (goto-char (point-max)) |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
5835 (allout-insert-latex-trailer tobuf) |
3430 | 5836 (goto-char (point-min)) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5837 (pop-to-buffer buf) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5838 (goto-char start-pt))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
5839 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5840 ;;;_ #8 Encryption |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5841 ;;;_ > allout-toggle-current-subtree-encryption (&optional fetch-pass) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5842 (defun allout-toggle-current-subtree-encryption (&optional fetch-pass) |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5843 "Encrypt clear or decrypt encoded text of visibly-containing topic's contents. |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5844 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5845 Optional FETCH-PASS universal argument provokes key-pair encryption with |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5846 single universal argument. With doubled universal argument (value = 16), |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5847 it forces prompting for the passphrase regardless of availability from the |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5848 passphrase cache. With no universal argument, the appropriate passphrase |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5849 is obtained from the cache, if available, else from the user. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5850 |
74987
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
5851 Only GnuPG encryption is supported. |
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
5852 |
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
5853 \*NOTE WELL* that the encrypted text must be ascii-armored. For gnupg |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5854 encryption, include the option ``armor'' in your ~/.gnupg/gpg.conf file. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5855 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5856 Both symmetric-key and key-pair encryption is implemented. Symmetric is |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5857 the default, use a single (x4) universal argument for keypair mode. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5858 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5859 Encrypted topic's bullet is set to a `~' to signal that the contents of the |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5860 topic (body and subtopics, but not heading) is pending encryption or |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5861 encrypted. `*' asterisk immediately after the bullet signals that the body |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5862 is encrypted, its' absence means the topic is meant to be encrypted but is |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5863 not. When a file with topics pending encryption is saved, topics pending |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5864 encryption are encrypted. See allout-encrypt-unencrypted-on-saves for |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5865 auto-encryption specifics. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5866 |
74987
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
5867 \*NOTE WELL* that automatic encryption that happens during saves will |
79939 | 5868 default to symmetric encryption -- you must deliberately (re)encrypt key-pair |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5869 encrypted topics if you want them to continue to use the key-pair cipher. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5870 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
5871 Level-one topics, with prefix consisting solely of an `*' asterisk, cannot be |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5872 encrypted. If you want to encrypt the contents of a top-level topic, use |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5873 \\[allout-shift-in] to increase its depth. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5874 |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5875 Passphrase Caching |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5876 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5877 The encryption passphrase is solicited if not currently available in the |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5878 passphrase cache from a recent encryption action. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5879 |
74987
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
5880 The solicited passphrase is retained for reuse in a cache, if enabled. See |
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
5881 `pgg-cache-passphrase' and `pgg-passphrase-cache-expiry' for details. |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5882 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5883 Symmetric Passphrase Hinting and Verification |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5884 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5885 If the file previously had no associated passphrase, or had a different |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5886 passphrase than specified, the user is prompted to repeat the new one for |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5887 corroboration. A random string encrypted by the new passphrase is set on |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5888 the buffer-specific variable `allout-passphrase-verifier-string', for |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5889 confirmation of the passphrase when next obtained, before encrypting or |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5890 decrypting anything with it. This helps avoid mistakenly shifting between |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5891 keys. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5892 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5893 If allout customization var `allout-passphrase-verifier-handling' is |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5894 non-nil, an entry for `allout-passphrase-verifier-string' and its value is |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5895 added to an Emacs 'local variables' section at the end of the file, which |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5896 is created if necessary. That setting is for retention of the passphrase |
73763
89b9e8184350
(allout-adjust-file-variable, allout-passphrase-verifier-string,
Juanma Barranquero <lekktu@gmail.com>
parents:
73660
diff
changeset
|
5897 verifier across Emacs sessions. |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5898 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5899 Similarly, `allout-passphrase-hint-string' stores a user-provided reminder |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5900 about their passphrase, and `allout-passphrase-hint-handling' specifies |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5901 when the hint is presented, or if passphrase hints are disabled. If |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5902 enabled (see the `allout-passphrase-hint-handling' docstring for details), |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5903 the hint string is stored in the local-variables section of the file, and |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5904 solicited whenever the passphrase is changed." |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5905 (interactive "P") |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5906 (save-excursion |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5907 (allout-back-to-current-heading) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5908 (allout-toggle-subtree-encryption fetch-pass) |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5909 ) |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5910 ) |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5911 ;;;_ > allout-toggle-subtree-encryption (&optional fetch-pass) |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5912 (defun allout-toggle-subtree-encryption (&optional fetch-pass) |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5913 "Encrypt clear text or decrypt encoded topic contents (body and subtopics.) |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5914 |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5915 Optional FETCH-PASS universal argument provokes key-pair encryption with |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
5916 single universal argument. With doubled universal argument (value = 16), |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5917 it forces prompting for the passphrase regardless of availability from the |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5918 passphrase cache. With no universal argument, the appropriate passphrase |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5919 is obtained from the cache, if available, else from the user. |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5920 |
74864
e97d916ee47b
(allout-encrypt-string): Inhibit use of agent within
Chong Yidong <cyd@stupidchicken.com>
parents:
74381
diff
changeset
|
5921 Currently only GnuPG encryption is supported, and integration |
e97d916ee47b
(allout-encrypt-string): Inhibit use of agent within
Chong Yidong <cyd@stupidchicken.com>
parents:
74381
diff
changeset
|
5922 with gpg-agent is not yet implemented. |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5923 |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5924 \**NOTE WELL** that the encrypted text must be ascii-armored. For gnupg |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5925 encryption, include the option ``armor'' in your ~/.gnupg/gpg.conf file. |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5926 |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
5927 See `allout-toggle-current-subtree-encryption' for more details." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5928 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5929 (interactive "P") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5930 (save-excursion |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5931 (allout-end-of-prefix t) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5932 |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
5933 (if (= allout-recent-depth 1) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5934 (error (concat "Cannot encrypt or decrypt level 1 topics -" |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5935 " shift it in to make it encryptable"))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5936 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5937 (let* ((allout-buffer (current-buffer)) |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5938 ;; Assess location: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
5939 (bullet-pos allout-recent-prefix-beginning) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5940 (after-bullet-pos (point)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5941 (was-encrypted |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5942 (progn (if (= (point-max) after-bullet-pos) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5943 (error "no body to encrypt")) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5944 (allout-encrypted-topic-p))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5945 (was-collapsed (if (not (search-forward "\n" nil t)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5946 nil |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5947 (backward-char 1) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5948 (allout-hidden-p))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5949 (subtree-beg (1+ (point))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5950 (subtree-end (allout-end-of-subtree)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5951 (subject-text (buffer-substring-no-properties subtree-beg |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5952 subtree-end)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5953 (subtree-end-char (char-after (1- subtree-end))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5954 (subtree-trailing-char (char-after subtree-end)) |
79939 | 5955 ;; kluge -- result-text needs to be nil, but we also want to |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5956 ;; check for the error condition |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5957 (result-text (if (or (string= "" subject-text) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5958 (string= "\n" subject-text)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5959 (error "No topic contents to %scrypt" |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5960 (if was-encrypted "de" "en")) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5961 nil)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5962 ;; Assess key parameters: |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5963 (key-info (or |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5964 ;; detect the type by which it is already encrypted |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5965 (and was-encrypted |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5966 (allout-encrypted-key-info subject-text)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5967 (and (member fetch-pass '(4 (4))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5968 '(keypair nil)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5969 '(symmetric nil))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5970 (for-key-type (car key-info)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5971 (for-key-identity (cadr key-info)) |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5972 (fetch-pass (and fetch-pass (member fetch-pass '(16 (16))))) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5973 (was-coding-system buffer-file-coding-system)) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5974 |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5975 (when (not was-encrypted) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5976 ;; ensure that non-ascii chars pending encryption are noticed before |
95241 | 5977 ;; they're encrypted, so the coding system is set to accommodate |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5978 ;; them. |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5979 (setq buffer-file-coding-system |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5980 (select-safe-coding-system subtree-beg subtree-end)) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5981 ;; if the coding system for the text being encrypted is different |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5982 ;; than that prevailing, then there a real risk that the coding |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5983 ;; system can't be noticed by emacs when the file is visited. to |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5984 ;; mitigate that, offer to preserve the coding system using a file |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5985 ;; local variable. |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5986 (if (and (not (equal buffer-file-coding-system |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5987 was-coding-system)) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5988 (yes-or-no-p |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5989 (format (concat "Register coding system %s as file local" |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5990 " var? Necessary when only encrypted text" |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5991 " is in that coding system. ") |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5992 buffer-file-coding-system))) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5993 (allout-adjust-file-variable "buffer-file-coding-system" |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
5994 buffer-file-coding-system))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5995 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5996 (setq result-text |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
5997 (allout-encrypt-string subject-text was-encrypted |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5998 (current-buffer) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
5999 for-key-type for-key-identity fetch-pass)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6000 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6001 ;; Replace the subtree with the processed product. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6002 (allout-unprotected |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6003 (progn |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6004 (set-buffer allout-buffer) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6005 (delete-region subtree-beg subtree-end) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6006 (insert result-text) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6007 (if was-collapsed |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6008 (allout-flag-region (1- subtree-beg) (point) t)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6009 ;; adjust trailing-blank-lines to preserve topic spacing: |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6010 (if (not was-encrypted) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6011 (if (and (= subtree-end-char ?\n) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6012 (= subtree-trailing-char ?\n)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6013 (insert subtree-trailing-char))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6014 ;; Ensure that the item has an encrypted-entry bullet: |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6015 (if (not (string= (buffer-substring-no-properties |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6016 (1- after-bullet-pos) after-bullet-pos) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6017 allout-topic-encryption-bullet)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6018 (progn (goto-char (1- after-bullet-pos)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6019 (delete-char 1) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6020 (insert allout-topic-encryption-bullet))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6021 (if was-encrypted |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6022 ;; Remove the is-encrypted bullet qualifier: |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6023 (progn (goto-char after-bullet-pos) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6024 (delete-char 1)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6025 ;; Add the is-encrypted bullet qualifier: |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6026 (goto-char after-bullet-pos) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6027 (insert "*")))) |
73003
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
6028 (run-hook-with-args 'allout-structure-added-hook |
ec72ab6f5541
* allout.el (allout-unprotected): Let inhibit-read-only only when
Chong Yidong <cyd@stupidchicken.com>
parents:
72917
diff
changeset
|
6029 bullet-pos subtree-end)))) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6030 ;;;_ > allout-encrypt-string (text decrypt allout-buffer key-type for-key |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6031 ;;; fetch-pass &optional retried verifying |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6032 ;;; passphrase) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6033 (defun allout-encrypt-string (text decrypt allout-buffer key-type for-key |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6034 fetch-pass &optional retried rejected |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6035 verifying passphrase) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6036 "Encrypt or decrypt message TEXT. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6037 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6038 If DECRYPT is true (default false), then decrypt instead of encrypt. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6039 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6040 FETCH-PASS (default false) forces fresh prompting for the passphrase. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6041 |
79939 | 6042 KEY-TYPE, either `symmetric' or `keypair', specifies which type |
6043 of cypher to use. | |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6044 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6045 FOR-KEY is human readable identification of the first of the user's |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6046 eligible secret keys a keypair decryption targets, or else nil. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6047 |
79939 | 6048 Optional RETRIED is for internal use -- conveys the number of failed keys |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6049 that have been solicited in sequence leading to this current call. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6050 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6051 Optional PASSPHRASE enables explicit delivery of the decryption passphrase, |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6052 for verification purposes. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6053 |
79939 | 6054 Optional REJECTED is for internal use -- conveys the number of |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6055 rejections due to matches against |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6056 `allout-encryption-ciphertext-rejection-regexps', as limited by |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6057 `allout-encryption-ciphertext-rejection-ceiling'. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6058 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6059 Returns the resulting string, or nil if the transformation fails." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6060 |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6061 (require 'pgg) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6062 |
67262
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
6063 (if (not (fboundp 'pgg-encrypt-symmetric)) |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
6064 (error "Allout encryption depends on a newer version of pgg")) |
c3cfae9a5571
(eval-when-compile): Remove unnecessary load of 'cl. Add fset of
Eli Zaretskii <eliz@gnu.org>
parents:
66319
diff
changeset
|
6065 |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6066 (let* ((scheme (upcase |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6067 (format "%s" (or pgg-scheme pgg-default-scheme "GPG")))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6068 (for-key (and (equal key-type 'keypair) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6069 (or for-key |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6070 (split-string (read-string |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6071 (format "%s message recipients: " |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6072 scheme)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6073 "[ \t,]+")))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6074 (target-prompt-id (if (equal key-type 'keypair) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6075 (if (= (length for-key) 1) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6076 (car for-key) for-key) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6077 (buffer-name allout-buffer))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6078 (target-cache-id (format "%s-%s" |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6079 key-type |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6080 (if (equal key-type 'keypair) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6081 target-prompt-id |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6082 (or (buffer-file-name allout-buffer) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6083 target-prompt-id)))) |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6084 (encoding (with-current-buffer allout-buffer |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6085 buffer-file-coding-system)) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6086 (multibyte (with-current-buffer allout-buffer |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6087 enable-multibyte-characters)) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6088 (strip-plaintext-regexps |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6089 (if (not decrypt) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6090 (allout-get-configvar-values |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6091 'allout-encryption-plaintext-sanitization-regexps))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6092 (reject-ciphertext-regexps |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6093 (if (not decrypt) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6094 (allout-get-configvar-values |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6095 'allout-encryption-ciphertext-rejection-regexps))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6096 (rejected (or rejected 0)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6097 (rejections-left (- allout-encryption-ciphertext-rejection-ceiling |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6098 rejected)) |
74864
e97d916ee47b
(allout-encrypt-string): Inhibit use of agent within
Chong Yidong <cyd@stupidchicken.com>
parents:
74381
diff
changeset
|
6099 result-text status |
76204
b5b902938a0a
(allout-encrypt-string): Remove inhibition
Nick Roberts <nickrob@snap.net.nz>
parents:
75347
diff
changeset
|
6100 ) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6101 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6102 (if (and fetch-pass (not passphrase)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6103 ;; Force later fetch by evicting passphrase from the cache. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6104 (pgg-remove-passphrase-from-cache target-cache-id t)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6105 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6106 (catch 'encryption-failed |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6107 |
74987
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
6108 ;; We handle only symmetric-key passphrase caching. |
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
6109 (if (and (not passphrase) |
3a115c11d329
(allout-encrypt-string): Handle symmetric-key passphrase caching but leave
Eli Zaretskii <eliz@gnu.org>
parents:
74864
diff
changeset
|
6110 (not (equal key-type 'keypair))) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6111 (setq passphrase (allout-obtain-passphrase for-key |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6112 target-cache-id |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6113 target-prompt-id |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6114 key-type |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6115 allout-buffer |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6116 retried fetch-pass))) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6117 |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6118 (with-temp-buffer |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6119 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6120 (insert text) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6121 |
74011
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6122 ;; convey the text characteristics of the original buffer: |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6123 (set-buffer-multibyte multibyte) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6124 (when encoding |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6125 (set-buffer-file-coding-system encoding) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6126 (if (not decrypt) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6127 (encode-coding-region (point-min) (point-max) encoding))) |
cce8c092567f
(allout-doublecheck-at-and-shallower): Clarify docstring.
Chong Yidong <cyd@stupidchicken.com>
parents:
73763
diff
changeset
|
6128 |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6129 (when (and strip-plaintext-regexps (not decrypt)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6130 (dolist (re strip-plaintext-regexps) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6131 (let ((re (if (listp re) (car re) re)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6132 (replacement (if (listp re) (cadr re) ""))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6133 (goto-char (point-min)) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6134 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6135 (while (re-search-forward re nil t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6136 (replace-match replacement nil nil)))))) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6137 |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6138 (cond |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6139 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6140 ;; symmetric: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6141 ((equal key-type 'symmetric) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6142 (setq status |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6143 (if decrypt |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6144 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6145 (pgg-decrypt (point-min) (point-max) passphrase) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6146 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6147 (pgg-encrypt-symmetric (point-min) (point-max) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6148 passphrase))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6149 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6150 (if status |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6151 (pgg-situate-output (point-min) (point-max)) |
79939 | 6152 ;; failed -- handle passphrase caching |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6153 (if verifying |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6154 (throw 'encryption-failed nil) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6155 (pgg-remove-passphrase-from-cache target-cache-id t) |
79939 | 6156 (error "Symmetric-cipher %scryption failed -- %s" |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6157 (if decrypt "de" "en") |
79939 | 6158 "try again with different passphrase")))) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6159 |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
6160 ;; encrypt `keypair': |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6161 ((not decrypt) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6162 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6163 (setq status |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6164 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6165 (pgg-encrypt for-key |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6166 nil (point-min) (point-max) passphrase)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6167 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6168 (if status |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6169 (pgg-situate-output (point-min) (point-max)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6170 (error (pgg-remove-passphrase-from-cache target-cache-id t) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6171 (error "encryption failed")))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6172 |
79940
b113c474ec50
More trivial doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79939
diff
changeset
|
6173 ;; decrypt `keypair': |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6174 (t |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6175 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6176 (setq status |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6177 (pgg-decrypt (point-min) (point-max) passphrase)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6178 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6179 (if status |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6180 (pgg-situate-output (point-min) (point-max)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6181 (error (pgg-remove-passphrase-from-cache target-cache-id t) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6182 (error "decryption failed"))))) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6183 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6184 (setq result-text |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6185 (buffer-substring-no-properties |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6186 1 (- (point-max) (if decrypt 0 1)))) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6187 ) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6188 |
79939 | 6189 ;; validate result -- non-empty |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6190 (cond ((not result-text) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6191 (if verifying |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6192 nil |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6193 ;; transform was fruitless, retry w/new passphrase. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6194 (pgg-remove-passphrase-from-cache target-cache-id t) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6195 (allout-encrypt-string text decrypt allout-buffer |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6196 key-type for-key nil |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6197 (if retried (1+ retried) 1) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6198 rejected verifying nil))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6199 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6200 ;; Retry (within limit) if ciphertext contains rejections: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6201 ((and (not decrypt) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6202 ;; Check for disqualification of this ciphertext: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6203 (let ((regexps reject-ciphertext-regexps) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6204 reject-it) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6205 (while (and regexps (not reject-it)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6206 (setq reject-it (string-match (car regexps) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6207 result-text)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6208 (pop regexps)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6209 reject-it)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6210 (setq rejections-left (1- rejections-left)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6211 (if (<= rejections-left 0) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6212 (error (concat "Ciphertext rejected too many times" |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6213 " (%s), per `%s'") |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6214 allout-encryption-ciphertext-rejection-ceiling |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6215 'allout-encryption-ciphertext-rejection-regexps) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6216 (allout-encrypt-string text decrypt allout-buffer |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6217 key-type for-key nil |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6218 retried (1+ rejected) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6219 verifying passphrase))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6220 ;; Barf if encryption yields extraordinary control chars: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6221 ((and (not decrypt) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6222 (string-match "[\C-a\C-k\C-o-\C-z\C-@]" |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6223 result-text)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6224 (error (concat "Encryption produced non-armored text, which" |
79939 | 6225 "conflicts with allout mode -- reconfigure!"))) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6226 |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6227 ;; valid result and just verifying or non-symmetric: |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6228 ((or verifying (not (equal key-type 'symmetric))) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6229 (if (or verifying decrypt) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6230 (pgg-add-passphrase-to-cache target-cache-id |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6231 passphrase t)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6232 result-text) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6233 |
79939 | 6234 ;; valid result and regular symmetric -- "register" |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6235 ;; passphrase with mnemonic aids/cache. |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6236 (t |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6237 (set-buffer allout-buffer) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6238 (if passphrase |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6239 (pgg-add-passphrase-to-cache target-cache-id |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6240 passphrase t)) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6241 (allout-update-passphrase-mnemonic-aids for-key passphrase |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6242 allout-buffer) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6243 result-text) |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6244 ) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6245 ) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6246 ) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6247 ) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6248 ;;;_ > allout-obtain-passphrase (for-key cache-id prompt-id key-type |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6249 ;;; allout-buffer retried fetch-pass) |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
6250 (defun allout-obtain-passphrase (for-key cache-id prompt-id key-type |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6251 allout-buffer retried fetch-pass) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6252 "Obtain passphrase for a key from the cache or else from the user. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6253 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6254 When obtaining from the user, symmetric-cipher passphrases are verified |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6255 against either, if available and enabled, a random string that was |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6256 encrypted against the passphrase, or else against repeated entry by the |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6257 user for corroboration. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6258 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6259 FOR-KEY is the key for which the passphrase is being obtained. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6260 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6261 CACHE-ID is the cache id of the key for the passphrase. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6262 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6263 PROMPT-ID is the id for use when prompting the user. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6264 |
79939 | 6265 KEY-TYPE is either `symmetric' or `keypair'. |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6266 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6267 ALLOUT-BUFFER is the buffer containing the entry being en/decrypted. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6268 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6269 RETRIED is the number of this attempt to obtain this passphrase. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6270 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6271 FETCH-PASS causes the passphrase to be solicited from the user, regardless |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6272 of the availability of a cached copy." |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6273 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6274 (if (not (equal key-type 'symmetric)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6275 ;; do regular passphrase read on non-symmetric passphrase: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6276 (pgg-read-passphrase (format "%s passphrase%s: " |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6277 (upcase (format "%s" (or pgg-scheme |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6278 pgg-default-scheme |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6279 "GPG"))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6280 (if prompt-id |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6281 (format " for %s" prompt-id) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6282 "")) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6283 cache-id t) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6284 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6285 ;; Symmetric hereon: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6286 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6287 (save-excursion |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6288 (set-buffer allout-buffer) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6289 (let* ((hint (if (and (not (string= allout-passphrase-hint-string "")) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6290 (or (equal allout-passphrase-hint-handling 'always) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6291 (and (equal allout-passphrase-hint-handling |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6292 'needed) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6293 retried))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6294 (format " [%s]" allout-passphrase-hint-string) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6295 "")) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6296 (retry-message (if retried (format " (%s retry)" retried) "")) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6297 (prompt-sans-hint (format "'%s' symmetric passphrase%s: " |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6298 prompt-id retry-message)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6299 (full-prompt (format "'%s' symmetric passphrase%s%s: " |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6300 prompt-id hint retry-message)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6301 (prompt full-prompt) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6302 (verifier-string (allout-get-encryption-passphrase-verifier)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6303 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6304 (cached (and (not fetch-pass) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6305 (pgg-read-passphrase-from-cache cache-id t))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6306 (got-pass (or cached |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6307 (pgg-read-passphrase full-prompt cache-id t))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6308 confirmation) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6309 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6310 (if (not got-pass) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6311 nil |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6312 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6313 ;; Duplicate our handle on the passphrase so it's not clobbered by |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6314 ;; deactivate-passwd memory clearing: |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6315 (setq got-pass (copy-sequence got-pass)) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6316 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6317 (cond (verifier-string |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6318 (save-window-excursion |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6319 (if (allout-encrypt-string verifier-string 'decrypt |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6320 allout-buffer 'symmetric |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6321 for-key nil 0 0 'verifying |
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6322 (copy-sequence got-pass)) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6323 (setq confirmation (format "%s" got-pass)))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6324 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6325 (if (and (not confirmation) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6326 (if (yes-or-no-p |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6327 (concat "Passphrase differs from established" |
79939 | 6328 " -- use new one instead? ")) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6329 ;; deactivate password for subsequent |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6330 ;; confirmation: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6331 (progn |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6332 (pgg-remove-passphrase-from-cache cache-id t) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6333 (setq prompt prompt-sans-hint) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6334 nil) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6335 t)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6336 (progn (pgg-remove-passphrase-from-cache cache-id t) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6337 (error "Wrong passphrase.")))) |
79939 | 6338 ;; No verifier string -- force confirmation by repetition of |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6339 ;; (new) passphrase: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6340 ((or fetch-pass (not cached)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6341 (pgg-remove-passphrase-from-cache cache-id t)))) |
79939 | 6342 ;; confirmation vs new input -- doing pgg-read-passphrase will do the |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6343 ;; right thing, in either case: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6344 (if (not confirmation) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6345 (setq confirmation |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6346 (pgg-read-passphrase (concat prompt |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6347 " ... confirm spelling: ") |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6348 cache-id t))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6349 (prog1 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6350 (if (equal got-pass confirmation) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6351 confirmation |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6352 (if (yes-or-no-p (concat "spelling of original and" |
79939 | 6353 " confirmation differ -- retry? ")) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6354 (progn (setq retried (if retried (1+ retried) 1)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6355 (pgg-remove-passphrase-from-cache cache-id t) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6356 ;; recurse to this routine: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6357 (pgg-read-passphrase prompt-sans-hint cache-id t)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6358 (pgg-remove-passphrase-from-cache cache-id t) |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6359 (error "Confirmation failed.")))))))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6360 ;;;_ > allout-encrypted-topic-p () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6361 (defun allout-encrypted-topic-p () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6362 "True if the current topic is encryptable and encrypted." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6363 (save-excursion |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6364 (allout-end-of-prefix t) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6365 (and (string= (buffer-substring-no-properties (1- (point)) (point)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6366 allout-topic-encryption-bullet) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6367 (save-match-data (looking-at "\\*"))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6368 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6369 ) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6370 ;;;_ > allout-encrypted-key-info (text) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6371 ;; XXX gpg-specific, alas |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6372 (defun allout-encrypted-key-info (text) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6373 "Return a pair of the key type and identity of a recipient's secret key. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6374 |
79939 | 6375 The key type is one of `symmetric' or `keypair'. |
6376 | |
6377 If `keypair', and some of the user's secret keys are among those for which | |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
6378 the message was encoded, return the identity of the first. Otherwise, |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6379 return nil for the second item of the pair. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6380 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6381 An error is raised if the text is not encrypted." |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6382 (require 'pgg-parse) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6383 (save-excursion |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6384 (with-temp-buffer |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6385 (insert text) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6386 (let* ((parsed-armor (pgg-parse-armor-region (point-min) (point-max))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6387 (type (if (pgg-gpg-symmetric-key-p parsed-armor) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6388 'symmetric |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6389 'keypair)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6390 secret-keys first-secret-key for-key-owner) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6391 (if (equal type 'keypair) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6392 (setq secret-keys (pgg-gpg-lookup-all-secret-keys) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6393 first-secret-key (pgg-gpg-select-matching-key parsed-armor |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6394 secret-keys) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6395 for-key-owner (and first-secret-key |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6396 (pgg-gpg-lookup-key-owner |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6397 first-secret-key)))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6398 (list type (pgg-gpg-key-id-from-key-owner for-key-owner)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6399 ) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6400 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6401 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6402 ) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6403 ;;;_ > allout-create-encryption-passphrase-verifier (passphrase) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6404 (defun allout-create-encryption-passphrase-verifier (passphrase) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6405 "Encrypt random message for later validation of symmetric key's passphrase." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6406 ;; use 20 random ascii characters, across the entire ascii range. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6407 (random t) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6408 (let ((spew (make-string 20 ?\0))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6409 (dotimes (i (length spew)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6410 (aset spew i (1+ (random 254)))) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6411 (allout-encrypt-string spew nil (current-buffer) 'symmetric |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6412 nil nil 0 0 passphrase)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6413 ) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6414 ;;;_ > allout-update-passphrase-mnemonic-aids (for-key passphrase |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
6415 ;;; outline-buffer) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6416 (defun allout-update-passphrase-mnemonic-aids (for-key passphrase |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6417 outline-buffer) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6418 "Update passphrase verifier and hint strings if necessary. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6419 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6420 See `allout-passphrase-verifier-string' and `allout-passphrase-hint-string' |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6421 settings. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6422 |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
6423 PASSPHRASE is the passphrase being mnemonicized. |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6424 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6425 OUTLINE-BUFFER is the buffer of the outline being adjusted. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6426 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6427 These are used to help the user keep track of the passphrase they use for |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6428 symmetric encryption in the file. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6429 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6430 Behavior is governed by `allout-passphrase-verifier-handling', |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6431 `allout-passphrase-hint-handling', and also, controlling whether the values |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6432 are preserved on Emacs local file variables, |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6433 `allout-enable-file-variable-adjustment'." |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6434 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6435 ;; If passphrase doesn't agree with current verifier: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6436 ;; - adjust the verifier |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6437 ;; - if passphrase hint handling is enabled, adjust the passphrase hint |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6438 ;; - if file var settings are enabled, adjust the file vars |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6439 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6440 (let* ((new-verifier-needed (not (allout-verify-passphrase |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6441 for-key passphrase outline-buffer))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6442 (new-verifier-string |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6443 (if new-verifier-needed |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6444 ;; Collapse to a single line and enclose in string quotes: |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6445 (subst-char-in-string |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6446 ?\n ?\C-a (allout-create-encryption-passphrase-verifier |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6447 passphrase)))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6448 new-hint) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6449 (when new-verifier-string |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6450 ;; do the passphrase hint first, since it's interactive |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6451 (when (and allout-passphrase-hint-handling |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6452 (not (equal allout-passphrase-hint-handling 'disabled))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6453 (setq new-hint |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6454 (read-from-minibuffer "Passphrase hint to jog your memory: " |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6455 allout-passphrase-hint-string)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6456 (when (not (string= new-hint allout-passphrase-hint-string)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6457 (setq allout-passphrase-hint-string new-hint) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6458 (allout-adjust-file-variable "allout-passphrase-hint-string" |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6459 allout-passphrase-hint-string))) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6460 (when allout-passphrase-verifier-handling |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6461 (setq allout-passphrase-verifier-string new-verifier-string) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6462 (allout-adjust-file-variable "allout-passphrase-verifier-string" |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6463 allout-passphrase-verifier-string)) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6464 ) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6465 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6466 ) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6467 ;;;_ > allout-get-encryption-passphrase-verifier () |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6468 (defun allout-get-encryption-passphrase-verifier () |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6469 "Return text of the encrypt passphrase verifier, unmassaged, or nil if none. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6470 |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
6471 Derived from value of `allout-passphrase-verifier-string'." |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6472 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6473 (let ((verifier-string (and (boundp 'allout-passphrase-verifier-string) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6474 allout-passphrase-verifier-string))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6475 (if verifier-string |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6476 ;; Return it uncollapsed |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6477 (subst-char-in-string ?\C-a ?\n verifier-string)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6478 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6479 ) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6480 ;;;_ > allout-verify-passphrase (key passphrase allout-buffer) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6481 (defun allout-verify-passphrase (key passphrase allout-buffer) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6482 "True if passphrase successfully decrypts verifier, nil otherwise. |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6483 |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6484 \"Otherwise\" includes absence of passphrase verifier." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6485 (save-excursion |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6486 (set-buffer allout-buffer) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6487 (and (boundp 'allout-passphrase-verifier-string) |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6488 allout-passphrase-verifier-string |
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6489 (allout-encrypt-string (allout-get-encryption-passphrase-verifier) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6490 'decrypt allout-buffer 'symmetric |
72367
12fa9bdadf0a
(allout-prior-bindings, allout-added-bindings): Remove, after long deprecation.
Eli Zaretskii <eliz@gnu.org>
parents:
72050
diff
changeset
|
6491 key nil 0 0 'verifying passphrase) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6492 t))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6493 ;;;_ > allout-next-topic-pending-encryption (&optional except-mark) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6494 (defun allout-next-topic-pending-encryption (&optional except-mark) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6495 "Return the point of the next topic pending encryption, or nil if none. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6496 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6497 EXCEPT-MARK identifies a point whose containing topics should be excluded |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6498 from encryption. This supports 'except-current mode of |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6499 `allout-encrypt-unencrypted-on-saves'. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6500 |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
6501 Such a topic has the `allout-topic-encryption-bullet' without an |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6502 immediately following '*' that would mark the topic as being encrypted. It |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6503 must also have content." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6504 (let (done got content-beg) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6505 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6506 (while (not done) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6507 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6508 (if (not (re-search-forward |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6509 (format "\\(\\`\\|\n\\)%s *%s[^*]" |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6510 (regexp-quote allout-header-prefix) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6511 (regexp-quote allout-topic-encryption-bullet)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6512 nil t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6513 (setq got nil |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6514 done t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6515 (goto-char (setq got (match-beginning 0))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6516 (if (save-match-data (looking-at "\n")) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6517 (forward-char 1)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6518 (setq got (point))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6519 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6520 (cond ((not got) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6521 (setq done t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6522 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6523 ((not (search-forward "\n")) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6524 (setq got nil |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6525 done t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6526 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6527 ((eobp) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6528 (setq got nil |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6529 done t)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6530 |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6531 (t |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6532 (setq content-beg (point)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6533 (backward-char 1) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6534 (allout-end-of-subtree) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6535 (if (or (<= (point) content-beg) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6536 (and except-mark |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6537 (<= content-beg except-mark) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6538 (>= (point) except-mark))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6539 ;; Continue looking |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6540 (setq got nil) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6541 ;; Got it! |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6542 (setq done t))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6543 ) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6544 ) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6545 (if got |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6546 (goto-char got)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6547 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6548 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6549 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6550 ;;;_ > allout-encrypt-decrypted (&optional except-mark) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6551 (defun allout-encrypt-decrypted (&optional except-mark) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6552 "Encrypt topics pending encryption except those containing exemption point. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6553 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6554 EXCEPT-MARK identifies a point whose containing topics should be excluded |
79939 | 6555 from encryption. This supports the `except-current' mode of |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6556 `allout-encrypt-unencrypted-on-saves'. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6557 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6558 If a topic that is currently being edited was encrypted, we return a list |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6559 containing the location of the topic and the location of the cursor just |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6560 before the topic was encrypted. This can be used, eg, to decrypt the topic |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6561 and exactly resituate the cursor if this is being done as part of a file |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6562 save. See `allout-encrypt-unencrypted-on-saves' for more info." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6563 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6564 (interactive "p") |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6565 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6566 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6567 (let* ((current-mark (point-marker)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6568 (current-mark-position (marker-position current-mark)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6569 was-modified |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6570 bo-subtree |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6571 editing-topic editing-point) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6572 (goto-char (point-min)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6573 (while (allout-next-topic-pending-encryption except-mark) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6574 (setq was-modified (buffer-modified-p)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6575 (when (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6576 (and (boundp 'allout-encrypt-unencrypted-on-saves) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6577 allout-encrypt-unencrypted-on-saves |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6578 (setq bo-subtree (re-search-forward "$")) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6579 (not (allout-hidden-p)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6580 (>= current-mark (point)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6581 (allout-end-of-current-subtree) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6582 (<= current-mark (point)))) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6583 (setq editing-topic (point) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6584 ;; we had to wait for this 'til now so prior topics are |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6585 ;; encrypted, any relevant text shifts are in place: |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6586 editing-point (- current-mark-position |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6587 (count-trailing-whitespace-region |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6588 bo-subtree current-mark-position)))) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6589 (allout-toggle-subtree-encryption) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6590 (if (not was-modified) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6591 (set-buffer-modified-p nil)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6592 ) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6593 (if (not was-modified) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6594 (set-buffer-modified-p nil)) |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6595 (if editing-topic (list editing-topic editing-point)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6596 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6597 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6598 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6599 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6600 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6601 ;;;_ #9 miscellaneous |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6602 ;;;_ : Mode: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6603 ;;;_ > outlineify-sticky () |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6604 ;; outlinify-sticky is correct spelling; provide this alias for sticklers: |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6605 ;;;###autoload |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6606 (defalias 'outlinify-sticky 'outlineify-sticky) |
66319
4b40c48a16ad
Increment version number to 2.1, and use a literal
Eli Zaretskii <eliz@gnu.org>
parents:
66230
diff
changeset
|
6607 ;;;###autoload |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6608 (defun outlineify-sticky (&optional arg) |
13964
4de229297f1f
(outline-primary-bullet, outline-numbered-bullet,
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
6609 "Activate outline mode and establish file var so it is started subsequently. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6610 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
6611 See doc-string for `allout-layout' and `allout-init' for details on |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6612 setup for auto-startup." |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6613 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6614 (interactive "P") |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6615 |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
6616 (allout-mode t) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6617 |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6618 (save-excursion |
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6619 (goto-char (point-min)) |
73660
4a5c7b0a29cc
2006-11-03 Ken Manheimer <ken.manheimer@gmail.com>
Kim F. Storm <storm@cua.dk>
parents:
73315
diff
changeset
|
6620 (if (allout-goto-prefix) |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6621 t |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
6622 (allout-open-topic 2) |
79939 | 6623 (insert (concat "Dummy outline topic header -- see" |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6624 "`allout-mode' docstring: `^Hm'.")) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6625 (allout-adjust-file-variable |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
6626 "allout-layout" (or allout-layout '(-1 : 0)))))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6627 ;;;_ > allout-file-vars-section-data () |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6628 (defun allout-file-vars-section-data () |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6629 "Return data identifying the file-vars section, or nil if none. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6630 |
79939 | 6631 Returns a list of the form (BEGINNING-POINT PREFIX-STRING SUFFIX-STRING)." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6632 ;; minimally gleaned from emacs 21.4 files.el hack-local-variables function. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6633 (let (beg prefix suffix) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6634 (save-excursion |
3430 | 6635 (goto-char (point-max)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6636 (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6637 (if (let ((case-fold-search t)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6638 (not (search-forward "Local Variables:" nil t))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6639 nil |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6640 (setq beg (- (point) 16)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6641 (setq suffix (buffer-substring-no-properties |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6642 (point) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6643 (progn (if (search-forward "\n" nil t) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6644 (forward-char -1)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6645 (point)))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6646 (setq prefix (buffer-substring-no-properties |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6647 (progn (if (search-backward "\n" nil t) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6648 (forward-char 1)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6649 (point)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6650 beg)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6651 (list beg prefix suffix)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6652 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6653 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6654 ) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6655 ;;;_ > allout-adjust-file-variable (varname value) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6656 (defun allout-adjust-file-variable (varname value) |
73763
89b9e8184350
(allout-adjust-file-variable, allout-passphrase-verifier-string,
Juanma Barranquero <lekktu@gmail.com>
parents:
73660
diff
changeset
|
6657 "Adjust the setting of an Emacs file variable named VARNAME to VALUE. |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6658 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6659 This activity is inhibited if either `enable-local-variables' |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6660 `allout-enable-file-variable-adjustment' are nil. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6661 |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6662 When enabled, an entry for the variable is created if not already present, |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6663 or changed if established with a different value. The section for the file |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6664 variables, itself, is created if not already present. When created, the |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
6665 section lines (including the section line) exist as second-level topics in |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6666 a top-level topic at the end of the file. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6667 |
73763
89b9e8184350
(allout-adjust-file-variable, allout-passphrase-verifier-string,
Juanma Barranquero <lekktu@gmail.com>
parents:
73660
diff
changeset
|
6668 `enable-local-variables' must be true for any of this to happen." |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6669 (if (not (and enable-local-variables |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6670 allout-enable-file-variable-adjustment)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6671 nil |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6672 (save-excursion |
72050
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
6673 (let ((inhibit-field-text-motion t) |
d79208e62ea9
(allout-unprotected, allout-e-o-prefix-p)
Eli Zaretskii <eliz@gnu.org>
parents:
71915
diff
changeset
|
6674 (section-data (allout-file-vars-section-data)) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6675 beg prefix suffix) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6676 (if section-data |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6677 (setq beg (car section-data) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6678 prefix (cadr section-data) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6679 suffix (car (cddr section-data))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6680 ;; create the section |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6681 (goto-char (point-max)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6682 (open-line 1) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6683 (allout-open-topic 0) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6684 (end-of-line) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6685 (insert "Local emacs vars.\n") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6686 (allout-open-topic 1) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6687 (setq beg (point) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6688 suffix "" |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6689 prefix (buffer-substring-no-properties (progn |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6690 (beginning-of-line) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6691 (point)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6692 beg)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6693 (goto-char beg) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6694 (insert "Local variables:\n") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6695 (allout-open-topic 0) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6696 (insert "End:\n") |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6697 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6698 ;; look for existing entry or create one, leaving point for insertion |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6699 ;; of new value: |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6700 (goto-char beg) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6701 (allout-show-to-offshoot) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6702 (if (search-forward (concat "\n" prefix varname ":") nil t) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6703 (let* ((value-beg (point)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6704 (line-end (progn (if (search-forward "\n" nil t) |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6705 (forward-char -1)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6706 (point))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6707 (value-end (- line-end (length suffix)))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6708 (if (> value-end value-beg) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6709 (delete-region value-beg value-end))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6710 (end-of-line) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6711 (open-line 1) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6712 (forward-line 1) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6713 (insert (concat prefix varname ":"))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6714 (insert (format " %S%s" value suffix)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6715 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6716 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6717 ) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6718 ) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6719 ;;;_ > allout-get-configvar-values (varname) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6720 (defun allout-get-configvar-values (configvar-name) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6721 "Return a list of values of the symbols in list bound to CONFIGVAR-NAME. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6722 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6723 The user is prompted for removal of symbols that are unbound, and they |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6724 otherwise are ignored. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6725 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6726 CONFIGVAR-NAME should be the name of the configuration variable, |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6727 not its value." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6728 |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6729 (let ((configvar-value (symbol-value configvar-name)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6730 got) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6731 (dolist (sym configvar-value) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6732 (if (not (boundp sym)) |
79939 | 6733 (if (yes-or-no-p (format "%s entry `%s' is unbound -- remove it? " |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6734 configvar-name sym)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6735 (delq sym (symbol-value configvar-name))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6736 (push (symbol-value sym) got))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6737 (reverse got))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6738 ;;;_ : Topics: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6739 ;;;_ > allout-mark-topic () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6740 (defun allout-mark-topic () |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6741 "Put the region around topic currently containing point." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6742 (interactive) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6743 (let ((inhibit-field-text-motion t)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6744 (beginning-of-line)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6745 (allout-goto-prefix-doublechecked) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6746 (push-mark (point)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6747 (allout-end-of-current-subtree) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6748 (exchange-point-and-mark)) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6749 ;;;_ : UI: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6750 ;;;_ > solicit-char-in-string (prompt string &optional do-defaulting) |
3430 | 6751 (defun solicit-char-in-string (prompt string &optional do-defaulting) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6752 "Solicit (with first arg PROMPT) choice of a character from string STRING. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6753 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6754 Optional arg DO-DEFAULTING indicates to accept empty input (CR)." |
3430 | 6755 |
6756 (let ((new-prompt prompt) | |
6757 got) | |
6758 | |
6759 (while (not got) | |
6760 (message "%s" new-prompt) | |
6761 | |
6762 ;; We do our own reading here, so we can circumvent, eg, special | |
29490 | 6763 ;; treatment for `?' character. (Oughta use minibuffer keymap instead.) |
3430 | 6764 (setq got |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6765 (char-to-string (let ((cursor-in-echo-area nil)) (read-char)))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6766 |
29490 | 6767 (setq got |
6768 (cond ((string-match (regexp-quote got) string) got) | |
6769 ((and do-defaulting (string= got "\r")) | |
6770 ;; Return empty string to default: | |
6771 "") | |
6772 ((string= got "\C-g") (signal 'quit nil)) | |
6773 (t | |
6774 (setq new-prompt (concat prompt | |
6775 got | |
6776 " ...pick from: " | |
6777 string | |
6778 "")) | |
6779 nil)))) | |
79939 | 6780 ;; got something out of loop -- return it: |
29490 | 6781 got) |
3430 | 6782 ) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6783 ;;;_ : Strings: |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6784 ;;;_ > regexp-sans-escapes (string) |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6785 (defun regexp-sans-escapes (regexp &optional successive-backslashes) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6786 "Return a copy of REGEXP with all character escapes stripped out. |
7416
4996c50431de
(outline-init) New user interface for control of
Richard M. Stallman <rms@gnu.org>
parents:
7218
diff
changeset
|
6787 |
79939 | 6788 Representations of actual backslashes -- '\\\\\\\\' -- are left as a |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6789 single backslash. |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6790 |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6791 Optional arg SUCCESSIVE-BACKSLASHES is used internally for recursion." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6792 |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6793 (if (string= regexp "") |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6794 "" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6795 ;; Set successive-backslashes to number if current char is |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6796 ;; backslash, or else to nil: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6797 (setq successive-backslashes |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6798 (if (= (aref regexp 0) ?\\) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6799 (if successive-backslashes (1+ successive-backslashes) 1) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6800 nil)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6801 (if (or (not successive-backslashes) (= 2 successive-backslashes)) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6802 ;; Include first char: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6803 (concat (substring regexp 0 1) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6804 (regexp-sans-escapes (substring regexp 1))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6805 ;; Exclude first char, but maintain count: |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
6806 (regexp-sans-escapes (substring regexp 1) successive-backslashes)))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6807 ;;;_ > count-trailing-whitespace-region (beg end) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6808 (defun count-trailing-whitespace-region (beg end) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6809 "Return number of trailing whitespace chars between BEG and END. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6810 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6811 If BEG is bigger than END we return 0." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6812 (if (> beg end) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6813 0 |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6814 (save-match-data |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6815 (save-excursion |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6816 (goto-char beg) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6817 (let ((count 0)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6818 (while (re-search-forward "[ ][ ]*$" end t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6819 (goto-char (1+ (match-beginning 2))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6820 (setq count (1+ count))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6821 count))))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6822 ;;;_ > allout-format-quote (string) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6823 (defun allout-format-quote (string) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6824 "Return a copy of string with all \"%\" characters doubled." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6825 (apply 'concat |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6826 (mapcar (lambda (char) (if (= char ?%) "%%" (char-to-string char))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6827 string))) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6828 ;;;_ : lists |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6829 ;;;_ > allout-flatten (list) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6830 (defun allout-flatten (list) |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6831 "Return a list of all atoms in list." |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6832 ;; classic. |
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6833 (cond ((null list) nil) |
72917
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
6834 ((atom (car list)) (cons (car list) (allout-flatten (cdr list)))) |
17942cb3949e
(allout-regexp, allout-line-boundary-regexp)
Eli Zaretskii <eliz@gnu.org>
parents:
72873
diff
changeset
|
6835 (t (append (allout-flatten (car list)) (allout-flatten (cdr list)))))) |
79915
e54d9b453e0e
(allout-prefix-data): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
6836 ;;;_ : Compatibility: |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6837 ;;;_ > allout-mark-marker to accommodate divergent emacsen: |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6838 (defun allout-mark-marker (&optional force buffer) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6839 "Accommodate the different signature for `mark-marker' across Emacsen. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6840 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6841 XEmacs takes two optional args, while mainline GNU Emacs does not, |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6842 so pass them along when appropriate." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6843 (if (featurep 'xemacs) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6844 (apply 'mark-marker force buffer) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6845 (mark-marker))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6846 ;;;_ > subst-char-in-string if necessary |
66230
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6847 (if (not (fboundp 'subst-char-in-string)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6848 (defun subst-char-in-string (fromchar tochar string &optional inplace) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6849 "Replace FROMCHAR with TOCHAR in STRING each time it occurs. |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6850 Unless optional argument INPLACE is non-nil, return a new string." |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6851 (let ((i (length string)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6852 (newstr (if inplace string (copy-sequence string)))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6853 (while (> i 0) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6854 (setq i (1- i)) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6855 (if (eq (aref newstr i) fromchar) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6856 (aset newstr i tochar))) |
4344fd52a670
Add autoloads of crypt++ and mailcrypt routines, all for encryption
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
6857 newstr))) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6858 ;;;_ > wholenump if necessary |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6859 (if (not (fboundp 'wholenump)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6860 (defalias 'wholenump 'natnump)) |
72873
b42e98d06749
* allout.el (allout-regexp, allout-line-boundary-regexp)
Chong Yidong <cyd@stupidchicken.com>
parents:
72367
diff
changeset
|
6861 ;;;_ > remove-overlays if necessary |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6862 (if (not (fboundp 'remove-overlays)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6863 (defun remove-overlays (&optional beg end name val) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6864 "Clear BEG and END of overlays whose property NAME has value VAL. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6865 Overlays might be moved and/or split. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6866 BEG and END default respectively to the beginning and end of buffer." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6867 (unless beg (setq beg (point-min))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6868 (unless end (setq end (point-max))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6869 (if (< end beg) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6870 (setq beg (prog1 end (setq end beg)))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6871 (save-excursion |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6872 (dolist (o (overlays-in beg end)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6873 (when (eq (overlay-get o name) val) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6874 ;; Either push this overlay outside beg...end |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6875 ;; or split it to exclude beg...end |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6876 ;; or delete it entirely (if it is contained in beg...end). |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6877 (if (< (overlay-start o) beg) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6878 (if (> (overlay-end o) end) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6879 (progn |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6880 (move-overlay (copy-overlay o) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6881 (overlay-start o) beg) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6882 (move-overlay o end (overlay-end o))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6883 (move-overlay o (overlay-start o) beg)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6884 (if (> (overlay-end o) end) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6885 (move-overlay o end (overlay-end o)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6886 (delete-overlay o))))))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6887 ) |
79939 | 6888 ;;;_ > copy-overlay if necessary -- xemacs ~ 21.4 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6889 (if (not (fboundp 'copy-overlay)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6890 (defun copy-overlay (o) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6891 "Return a copy of overlay O." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6892 (let ((o1 (make-overlay (overlay-start o) (overlay-end o) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6893 ;; FIXME: there's no easy way to find the |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6894 ;; insertion-type of the two markers. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6895 (overlay-buffer o))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6896 (props (overlay-properties o))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6897 (while props |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6898 (overlay-put o1 (pop props) (pop props))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6899 o1))) |
79939 | 6900 ;;;_ > add-to-invisibility-spec if necessary -- xemacs ~ 21.4 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6901 (if (not (fboundp 'add-to-invisibility-spec)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6902 (defun add-to-invisibility-spec (element) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6903 "Add ELEMENT to `buffer-invisibility-spec'. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6904 See documentation for `buffer-invisibility-spec' for the kind of elements |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6905 that can be added." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6906 (if (eq buffer-invisibility-spec t) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6907 (setq buffer-invisibility-spec (list t))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6908 (setq buffer-invisibility-spec |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6909 (cons element buffer-invisibility-spec)))) |
79939 | 6910 ;;;_ > remove-from-invisibility-spec if necessary -- xemacs ~ 21.4 |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6911 (if (not (fboundp 'remove-from-invisibility-spec)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6912 (defun remove-from-invisibility-spec (element) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6913 "Remove ELEMENT from `buffer-invisibility-spec'." |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6914 (if (consp buffer-invisibility-spec) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6915 (setq buffer-invisibility-spec (delete element |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6916 buffer-invisibility-spec))))) |
79939 | 6917 ;;;_ > move-beginning-of-line if necessary -- older emacs, xemacs |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6918 (if (not (fboundp 'move-beginning-of-line)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6919 (defun move-beginning-of-line (arg) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6920 "Move point to beginning of current line as displayed. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6921 \(This disregards invisible newlines such as those |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6922 which are part of the text that an image rests on.) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6923 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6924 With argument ARG not nil or 1, move forward ARG - 1 lines first. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6925 If point reaches the beginning or end of buffer, it stops there. |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
6926 To ignore intangibility, bind `inhibit-point-motion-hooks' to t." |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6927 (interactive "p") |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6928 (or arg (setq arg 1)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6929 (if (/= arg 1) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6930 (condition-case nil (line-move (1- arg)) (error nil))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6931 |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6932 ;; Move to beginning-of-line, ignoring fields and invisibles. |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6933 (skip-chars-backward "^\n") |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6934 (while (and (not (bobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6935 (let ((prop |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6936 (get-char-property (1- (point)) 'invisible))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6937 (if (eq buffer-invisibility-spec t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6938 prop |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6939 (or (memq prop buffer-invisibility-spec) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6940 (assq prop buffer-invisibility-spec))))) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6941 (goto-char (if (featurep 'xemacs) |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6942 (previous-property-change (point)) |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6943 (previous-char-property-change (point)))) |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6944 (skip-chars-backward "^\n")) |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6945 (vertical-motion 0)) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6946 ) |
79939 | 6947 ;;;_ > move-end-of-line if necessary -- older emacs, xemacs |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6948 (if (not (fboundp 'move-end-of-line)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6949 (defun move-end-of-line (arg) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6950 "Move point to end of current line as displayed. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6951 \(This disregards invisible newlines such as those |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6952 which are part of the text that an image rests on.) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6953 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6954 With argument ARG not nil or 1, move forward ARG - 1 lines first. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6955 If point reaches the beginning or end of buffer, it stops there. |
69481
be6a0491d438
* allout.el: Increment version to 2.2.1 in file commentary.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69250
diff
changeset
|
6956 To ignore intangibility, bind `inhibit-point-motion-hooks' to t." |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6957 (interactive "p") |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6958 (or arg (setq arg 1)) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6959 (let (done) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6960 (while (not done) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6961 (let ((newpos |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6962 (save-excursion |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6963 (let ((goal-column 0)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6964 (and (condition-case nil |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6965 (or (line-move arg) t) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6966 (error nil)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6967 (not (bobp)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6968 (progn |
85769
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6969 (while |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6970 (and |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6971 (not (bobp)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6972 (let ((prop |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6973 (get-char-property (1- (point)) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6974 'invisible))) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6975 (if (eq buffer-invisibility-spec t) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6976 prop |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6977 (or (memq prop |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6978 buffer-invisibility-spec) |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6979 (assq prop |
de8ef384c3ef
* allout.el (allout-command-prefix, allout-inhibit-auto-fill):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85114
diff
changeset
|
6980 buffer-invisibility-spec))))) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6981 (goto-char |
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6982 (previous-char-property-change (point)))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6983 (backward-char 1))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6984 (point))))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6985 (goto-char newpos) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6986 (if (and (> (point) newpos) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6987 (eq (preceding-char) ?\n)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6988 (backward-char 1) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6989 (if (and (> (point) newpos) (not (eobp)) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6990 (not (eq (following-char) ?\n))) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6991 ;; If we skipped something intangible |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6992 ;; and now we're not really at eol, |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6993 ;; keep going. |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6994 (setq arg 1) |
70244
ccd02e1ca0e3
Remove local autoload declaration for
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70225
diff
changeset
|
6995 (setq done t))))))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6996 ) |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6997 |
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
6998 ;;;_ #10 Unfinished |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
6999 ;;;_ > allout-bullet-isearch (&optional bullet) |
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
7000 (defun allout-bullet-isearch (&optional bullet) |
74381
cba6f2b24720
Ken Manheimer <ken.manheimer@gmail.com>:
Kim F. Storm <storm@cua.dk>
parents:
74011
diff
changeset
|
7001 "Isearch (regexp) for topic with bullet BULLET." |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7002 (interactive) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7003 (if (not bullet) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7004 (setq bullet (solicit-char-in-string |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7005 "ISearch for topic with bullet: " |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
7006 (regexp-sans-escapes allout-bullets-string)))) |
15664
a50ebf4ac764
(outline-auto-activation, outline-layout)
Karl Heuer <kwzh@gnu.org>
parents:
15663
diff
changeset
|
7007 |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7008 (let ((isearch-regexp t) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7009 (isearch-string (concat "^" |
48856
e7aab76fa215
Avoid name conflicts with outline.el. Use 3 installments to keep
Markus Rost <rost@math.uni-bielefeld.de>
parents:
47127
diff
changeset
|
7010 allout-header-prefix |
7218
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7011 "[ \t]*" |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7012 bullet))) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7013 (isearch-repeat 'forward) |
49f9f9a08b4c
major code speedups, bug fixes, behavior
Richard M. Stallman <rms@gnu.org>
parents:
6736
diff
changeset
|
7014 (isearch-mode t))) |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
7015 |
79939 | 7016 ;;;_ #11 Unit tests -- this should be last item before "Provide" |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7017 ;;;_ > allout-run-unit-tests () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7018 (defun allout-run-unit-tests () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7019 "Run the various allout unit tests." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7020 (message "Running allout tests...") |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7021 (allout-test-resumptions) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7022 (message "Running allout tests... Done.") |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7023 (sit-for .5)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7024 ;;;_ : test resumptions: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7025 ;;;_ > allout-tests-obliterate-variable (name) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7026 (defun allout-tests-obliterate-variable (name) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7027 "Completely unbind variable with NAME." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7028 (if (local-variable-p name) (kill-local-variable name)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7029 (while (boundp name) (makunbound name))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7030 ;;;_ > allout-test-resumptions () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7031 (defvar allout-tests-globally-unbound nil |
79939 | 7032 "Fodder for allout resumptions tests -- defvar just for byte compiler.") |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7033 (defvar allout-tests-globally-true nil |
79939 | 7034 "Fodder for allout resumptions tests -- defvar just for byte compiler.") |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7035 (defvar allout-tests-locally-true nil |
79939 | 7036 "Fodder for allout resumptions tests -- defvar just for byte compiler.") |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7037 (defun allout-test-resumptions () |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7038 "Exercise allout resumptions." |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7039 ;; for each resumption case, we also test that the right local/global |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7040 ;; scopes are affected during resumption effects: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7041 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7042 ;; ensure that previously unbound variables return to the unbound state. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7043 (with-temp-buffer |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7044 (allout-tests-obliterate-variable 'allout-tests-globally-unbound) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7045 (allout-add-resumptions '(allout-tests-globally-unbound t)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7046 (assert (not (default-boundp 'allout-tests-globally-unbound))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7047 (assert (local-variable-p 'allout-tests-globally-unbound)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7048 (assert (boundp 'allout-tests-globally-unbound)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7049 (assert (equal allout-tests-globally-unbound t)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7050 (allout-do-resumptions) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7051 (assert (not (local-variable-p 'allout-tests-globally-unbound))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7052 (assert (not (boundp 'allout-tests-globally-unbound)))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7053 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7054 ;; ensure that variable with prior global value is resumed |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7055 (with-temp-buffer |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7056 (allout-tests-obliterate-variable 'allout-tests-globally-true) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7057 (setq allout-tests-globally-true t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7058 (allout-add-resumptions '(allout-tests-globally-true nil)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7059 (assert (equal (default-value 'allout-tests-globally-true) t)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7060 (assert (local-variable-p 'allout-tests-globally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7061 (assert (equal allout-tests-globally-true nil)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7062 (allout-do-resumptions) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7063 (assert (not (local-variable-p 'allout-tests-globally-true))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7064 (assert (boundp 'allout-tests-globally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7065 (assert (equal allout-tests-globally-true t))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7066 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7067 ;; ensure that prior local value is resumed |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7068 (with-temp-buffer |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7069 (allout-tests-obliterate-variable 'allout-tests-locally-true) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7070 (set (make-local-variable 'allout-tests-locally-true) t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7071 (assert (not (default-boundp 'allout-tests-locally-true)) |
79939 | 7072 nil (concat "Test setup mistake -- variable supposed to" |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7073 " not have global binding, but it does.")) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7074 (assert (local-variable-p 'allout-tests-locally-true) |
79939 | 7075 nil (concat "Test setup mistake -- variable supposed to have" |
71893
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7076 " local binding, but it lacks one.")) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7077 (allout-add-resumptions '(allout-tests-locally-true nil)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7078 (assert (not (default-boundp 'allout-tests-locally-true))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7079 (assert (local-variable-p 'allout-tests-locally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7080 (assert (equal allout-tests-locally-true nil)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7081 (allout-do-resumptions) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7082 (assert (boundp 'allout-tests-locally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7083 (assert (local-variable-p 'allout-tests-locally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7084 (assert (equal allout-tests-locally-true t)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7085 (assert (not (default-boundp 'allout-tests-locally-true)))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7086 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7087 ;; ensure that last of multiple resumptions holds, for various scopes. |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7088 (with-temp-buffer |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7089 (allout-tests-obliterate-variable 'allout-tests-globally-unbound) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7090 (allout-tests-obliterate-variable 'allout-tests-globally-true) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7091 (setq allout-tests-globally-true t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7092 (allout-tests-obliterate-variable 'allout-tests-locally-true) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7093 (set (make-local-variable 'allout-tests-locally-true) t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7094 (allout-add-resumptions '(allout-tests-globally-unbound t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7095 '(allout-tests-globally-true nil) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7096 '(allout-tests-locally-true nil)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7097 (allout-add-resumptions '(allout-tests-globally-unbound 2) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7098 '(allout-tests-globally-true 3) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7099 '(allout-tests-locally-true 4)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7100 ;; reestablish many of the basic conditions are maintained after re-add: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7101 (assert (not (default-boundp 'allout-tests-globally-unbound))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7102 (assert (local-variable-p 'allout-tests-globally-unbound)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7103 (assert (equal allout-tests-globally-unbound 2)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7104 (assert (default-boundp 'allout-tests-globally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7105 (assert (local-variable-p 'allout-tests-globally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7106 (assert (equal allout-tests-globally-true 3)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7107 (assert (not (default-boundp 'allout-tests-locally-true))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7108 (assert (local-variable-p 'allout-tests-locally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7109 (assert (equal allout-tests-locally-true 4)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7110 (allout-do-resumptions) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7111 (assert (not (local-variable-p 'allout-tests-globally-unbound))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7112 (assert (not (boundp 'allout-tests-globally-unbound))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7113 (assert (not (local-variable-p 'allout-tests-globally-true))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7114 (assert (boundp 'allout-tests-globally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7115 (assert (equal allout-tests-globally-true t)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7116 (assert (boundp 'allout-tests-locally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7117 (assert (local-variable-p 'allout-tests-locally-true)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7118 (assert (equal allout-tests-locally-true t)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7119 (assert (not (default-boundp 'allout-tests-locally-true)))) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7120 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7121 ;; ensure that deliberately unbinding registered variables doesn't foul things |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7122 (with-temp-buffer |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7123 (allout-tests-obliterate-variable 'allout-tests-globally-unbound) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7124 (allout-tests-obliterate-variable 'allout-tests-globally-true) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7125 (setq allout-tests-globally-true t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7126 (allout-tests-obliterate-variable 'allout-tests-locally-true) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7127 (set (make-local-variable 'allout-tests-locally-true) t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7128 (allout-add-resumptions '(allout-tests-globally-unbound t) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7129 '(allout-tests-globally-true nil) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7130 '(allout-tests-locally-true nil)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7131 (allout-tests-obliterate-variable 'allout-tests-globally-unbound) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7132 (allout-tests-obliterate-variable 'allout-tests-globally-true) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7133 (allout-tests-obliterate-variable 'allout-tests-locally-true) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7134 (allout-do-resumptions)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7135 ) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7136 ;;;_ % Run unit tests if `allout-run-unit-tests-after-load' is true: |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7137 (when allout-run-unit-tests-on-load |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7138 (allout-run-unit-tests)) |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7139 |
bb3316be643e
Require 'cl during byte-compilation/interactive load, for the `assert' macro.
Eli Zaretskii <eliz@gnu.org>
parents:
71625
diff
changeset
|
7140 ;;;_ #12 Provide |
68953
0ddd5b380ffb
Use allout invisible-text overlays instead of
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
7141 (provide 'allout) |
3430 | 7142 |
7143 ;;;_* Local emacs vars. | |
69124
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7144 ;; The following `allout-layout' local variable setting: |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7145 ;; - closes all topics from the first topic to just before the third-to-last, |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7146 ;; - shows the children of the third to last (config vars) |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7147 ;; - and the second to last (code section), |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7148 ;; - and closes the last topic (this local-variables section). |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7149 ;;Local variables: |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7150 ;;allout-layout: (0 : -1 -1 0) |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7151 ;;End: |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7152 |
f6b5ed4f7f58
Add 2006 copyright.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68956
diff
changeset
|
7153 ;; arch-tag: cf38fbc3-c044-450f-8bff-afed8ba5681c |
38431
853c3674f20a
Fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
38250
diff
changeset
|
7154 ;;; allout.el ends here |