diff options
| author | Ken Manheimer | 2011-02-16 16:29:32 -0500 |
|---|---|---|
| committer | Ken Manheimer | 2011-02-16 16:29:32 -0500 |
| commit | 96497653538b909d541ece0707448b08ea99ee2f (patch) | |
| tree | bd2b68a991ac1e56fa664605d8e4828b4b4d47f1 | |
| parent | be4a1d714e48267dfaac06e99184040242880754 (diff) | |
| download | emacs-96497653538b909d541ece0707448b08ea99ee2f.tar.gz emacs-96497653538b909d541ece0707448b08ea99ee2f.zip | |
Include PGP and GnuPG in Keywords, and other commentary refinements.
(allout-abbreviate-flattened-numbering): Rename to
allout-flattened-numbering-abbreviation, and define-obsolete-variable-alias
the old name.
(allout-flattened-numbering-abbreviation): Rename from
allout-abbreviate-flattened-numbering.
(allout-mode-p): Include among autoloads, for use by other modes with impunity.
(allout-listify-exposed): Use allout-flattened-numbering-abbreviation.
(allout-encrypt-string): Use set-buffer-multibyte directly.
(allout-set-buffer-multibyte): Remove.
| -rw-r--r-- | lisp/ChangeLog | 16 | ||||
| -rw-r--r-- | lisp/allout.el | 35 |
2 files changed, 31 insertions, 20 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b8354c9b0f..b6cbc91fb37 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,19 @@ | |||
| 1 | 2011-02-16 Ken Manheimer <ken.manheimer@gmail.com> | ||
| 2 | |||
| 3 | * allout.el: Include PGP and GnuPG in Keywords, and other | ||
| 4 | commentary refinements. | ||
| 5 | (allout-abbreviate-flattened-numbering): Rename to | ||
| 6 | allout-flattened-numbering-abbreviation, and | ||
| 7 | define-obsolete-variable-alias the old name. | ||
| 8 | (allout-flattened-numbering-abbreviation): Rename from | ||
| 9 | allout-abbreviate-flattened-numbering. | ||
| 10 | (allout-mode-p): Include among autoloads, for use by other modes | ||
| 11 | with impunity. | ||
| 12 | (allout-listify-exposed): Use | ||
| 13 | allout-flattened-numbering-abbreviation. | ||
| 14 | (allout-encrypt-string): Use set-buffer-multibyte directly. | ||
| 15 | (allout-set-buffer-multibyte): Remove. | ||
| 16 | |||
| 1 | 2011-02-16 Deniz Dogan <deniz.a.m.dogan@gmail.com> | 17 | 2011-02-16 Deniz Dogan <deniz.a.m.dogan@gmail.com> |
| 2 | 18 | ||
| 3 | * simple.el (just-one-space): Remove useless `or' call. | 19 | * simple.el (just-one-space): Remove useless `or' call. |
diff --git a/lisp/allout.el b/lisp/allout.el index 5d87415a57f..f77fb0b47bd 100644 --- a/lisp/allout.el +++ b/lisp/allout.el | |||
| @@ -6,7 +6,7 @@ | |||
| 6 | ;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com> | 6 | ;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com> |
| 7 | ;; Created: Dec 1991 -- first release to usenet | 7 | ;; Created: Dec 1991 -- first release to usenet |
| 8 | ;; Version: 2.3 | 8 | ;; Version: 2.3 |
| 9 | ;; Keywords: outlines wp languages | 9 | ;; Keywords: outlines, wp, languages, PGP, GnuPG |
| 10 | ;; Website: http://myriadicity.net/Sundry/EmacsAllout | 10 | ;; Website: http://myriadicity.net/Sundry/EmacsAllout |
| 11 | 11 | ||
| 12 | ;; This file is part of GNU Emacs. | 12 | ;; This file is part of GNU Emacs. |
| @@ -59,8 +59,8 @@ | |||
| 59 | ;; See the `allout-mode' function's docstring for an introduction to the | 59 | ;; See the `allout-mode' function's docstring for an introduction to the |
| 60 | ;; mode. | 60 | ;; mode. |
| 61 | ;; | 61 | ;; |
| 62 | ;; The latest development version and helpful notes are available at | 62 | ;; Directions to the latest development version and helpful notes are |
| 63 | ;; http://myriadicity.net/Sundry/EmacsAllout . | 63 | ;; available at http://myriadicity.net/Sundry/EmacsAllout . |
| 64 | ;; | 64 | ;; |
| 65 | ;; The outline menubar additions provide quick reference to many of the | 65 | ;; The outline menubar additions provide quick reference to many of the |
| 66 | ;; features. See the docstring of the variables `allout-layout' and | 66 | ;; features. See the docstring of the variables `allout-layout' and |
| @@ -76,7 +76,7 @@ | |||
| 76 | 76 | ||
| 77 | ;;; Code: | 77 | ;;; Code: |
| 78 | 78 | ||
| 79 | ;;;_* Dependency autoloads | 79 | ;;;_* Dependency loads |
| 80 | (require 'overlay) | 80 | (require 'overlay) |
| 81 | (eval-when-compile | 81 | (eval-when-compile |
| 82 | ;; Most of the requires here are for stuff covered by autoloads, which | 82 | ;; Most of the requires here are for stuff covered by autoloads, which |
| @@ -94,7 +94,9 @@ | |||
| 94 | 94 | ||
| 95 | ;;;_ > defgroup allout, allout-keybindings | 95 | ;;;_ > defgroup allout, allout-keybindings |
| 96 | (defgroup allout nil | 96 | (defgroup allout nil |
| 97 | "Extensive outline mode for use alone and with other modes." | 97 | "Extensive outline minor-mode, for use stand-alone and with other modes. |
| 98 | |||
| 99 | See Allout Auto Activation for automatic activation." | ||
| 98 | :prefix "allout-" | 100 | :prefix "allout-" |
| 99 | :group 'outlines) | 101 | :group 'outlines) |
| 100 | (defgroup allout-keybindings nil | 102 | (defgroup allout-keybindings nil |
| @@ -308,9 +310,7 @@ performing auto-layout is asked of the user each time. | |||
| 308 | With value \"activate\", only auto-mode-activation is enabled. | 310 | With value \"activate\", only auto-mode-activation is enabled. |
| 309 | Auto-layout is not. | 311 | Auto-layout is not. |
| 310 | 312 | ||
| 311 | With value nil, neither auto-mode-activation nor auto-layout are | 313 | With value nil, inhibit any automatic allout-mode activation." |
| 312 | enabled, and allout auto-activation processing is removed from | ||
| 313 | file visiting activities." | ||
| 314 | :set 'allout-auto-activation-helper | 314 | :set 'allout-auto-activation-helper |
| 315 | :type '(choice (const :tag "On" t) | 315 | :type '(choice (const :tag "On" t) |
| 316 | (const :tag "Ask about layout" "ask") | 316 | (const :tag "Ask about layout" "ask") |
| @@ -752,8 +752,10 @@ Set this var to the bullet you want to use for file cross-references." | |||
| 752 | ;;;###autoload | 752 | ;;;###autoload |
| 753 | (put 'allout-presentation-padding 'safe-local-variable 'integerp) | 753 | (put 'allout-presentation-padding 'safe-local-variable 'integerp) |
| 754 | 754 | ||
| 755 | ;;;_ = allout-abbreviate-flattened-numbering | 755 | ;;;_ = allout-flattened-numbering-abbreviation |
| 756 | (defcustom allout-abbreviate-flattened-numbering nil | 756 | (define-obsolete-variable-alias 'allout-abbreviate-flattened-numbering |
| 757 | 'allout-flattened-numbering-abbreviation "24.0") | ||
| 758 | (defcustom allout-flattened-numbering-abbreviation nil | ||
| 757 | "If non-nil, `allout-flatten-exposed-to-buffer' abbreviates topic | 759 | "If non-nil, `allout-flatten-exposed-to-buffer' abbreviates topic |
| 758 | numbers to minimal amount with some context. Otherwise, entire | 760 | numbers to minimal amount with some context. Otherwise, entire |
| 759 | numbers are always used." | 761 | numbers are always used." |
| @@ -1553,6 +1555,7 @@ See `allout-encryption-ciphertext-rejection-regexps' for rejection reasons.") | |||
| 1553 | ;;;_ > allout-mode-p () | 1555 | ;;;_ > allout-mode-p () |
| 1554 | ;; Must define this macro above any uses, or byte compilation will lack | 1556 | ;; Must define this macro above any uses, or byte compilation will lack |
| 1555 | ;; proper def, if file isn't loaded -- eg, during emacs build! | 1557 | ;; proper def, if file isn't loaded -- eg, during emacs build! |
| 1558 | ;;;###autoload | ||
| 1556 | (defmacro allout-mode-p () | 1559 | (defmacro allout-mode-p () |
| 1557 | "Return t if `allout-mode' is active in current buffer." | 1560 | "Return t if `allout-mode' is active in current buffer." |
| 1558 | 'allout-mode) | 1561 | 'allout-mode) |
| @@ -5410,7 +5413,7 @@ header and body. The elements of that list are: | |||
| 5410 | bullet))) | 5413 | bullet))) |
| 5411 | (cond ((listp format) | 5414 | (cond ((listp format) |
| 5412 | (list depth | 5415 | (list depth |
| 5413 | (if allout-abbreviate-flattened-numbering | 5416 | (if allout-flattened-numbering-abbreviation |
| 5414 | (allout-stringify-flat-index format | 5417 | (allout-stringify-flat-index format |
| 5415 | gone-out) | 5418 | gone-out) |
| 5416 | (allout-stringify-flat-index-plain | 5419 | (allout-stringify-flat-index-plain |
| @@ -6054,7 +6057,7 @@ signal." | |||
| 6054 | (with-temp-buffer | 6057 | (with-temp-buffer |
| 6055 | (insert text) | 6058 | (insert text) |
| 6056 | ;; convey the text characteristics of the original buffer: | 6059 | ;; convey the text characteristics of the original buffer: |
| 6057 | (allout-set-buffer-multibyte multibyte) | 6060 | (set-buffer-multibyte multibyte) |
| 6058 | (when encoding | 6061 | (when encoding |
| 6059 | (set-buffer-file-coding-system encoding) | 6062 | (set-buffer-file-coding-system encoding) |
| 6060 | (if (not decrypt) | 6063 | (if (not decrypt) |
| @@ -6673,14 +6676,6 @@ To ignore intangibility, bind `inhibit-point-motion-hooks' to t." | |||
| 6673 | 'previous-single-property-change) | 6676 | 'previous-single-property-change) |
| 6674 | ;; No docstring because xemacs defalias doesn't support it. | 6677 | ;; No docstring because xemacs defalias doesn't support it. |
| 6675 | ) | 6678 | ) |
| 6676 | ;;;_ > allout-set-buffer-multibyte | ||
| 6677 | (if (fboundp 'set-buffer-multibyte) | ||
| 6678 | (defalias 'allout-set-buffer-multibyte 'set-buffer-multibyte) | ||
| 6679 | (with-no-warnings | ||
| 6680 | ;; this definition is used only in older or alternative emacs, where | ||
| 6681 | ;; the setting is our only recourse. | ||
| 6682 | (defun allout-set-buffer-multibyte (is-multibyte) | ||
| 6683 | (set enable-multibyte-characters is-multibyte)))) | ||
| 6684 | ;;;_ > allout-select-safe-coding-system | 6679 | ;;;_ > allout-select-safe-coding-system |
| 6685 | (defalias 'allout-select-safe-coding-system | 6680 | (defalias 'allout-select-safe-coding-system |
| 6686 | (if (fboundp 'select-safe-coding-system) | 6681 | (if (fboundp 'select-safe-coding-system) |