diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-09-27 23:56:55 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-10-05 02:06:57 +0200 |
commit | 0a7bab689c4a113dd295c9db55d8e76a34d5f9e1 (patch) | |
tree | 48b28bc4a1a8b261b46dd419a060ddb09fca6274 /lisp/allout.el | |
parent | e2861e2d08afd5dba9f676aa1e1d151a4d7dbc8f (diff) | |
download | emacs-0a7bab689c4a113dd295c9db55d8e76a34d5f9e1.tar.gz |
; Minor stylistic fixes found by checkdoc
Diffstat (limited to 'lisp/allout.el')
-rw-r--r-- | lisp/allout.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/allout.el b/lisp/allout.el index c123e8ded4c..5102ee73412 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -823,12 +823,12 @@ such topics are encrypted.)" :group 'allout-encryption) (make-variable-buffer-local 'allout-encrypt-unencrypted-on-saves) (defvar allout-auto-save-temporarily-disabled nil - "True while topic encryption is pending and auto-saving was active. + "Non-nil while topic encryption is pending and auto-saving was active. The value of `buffer-saved-size' at the time of decryption is used, for restoring when all encryptions are established.") (defvar-local allout-just-did-undo nil - "True just after undo commands, until allout-post-command-business.") + "Non-nil just after undo commands, until allout-post-command-business.") ;;;_ + Developer ;;;_ = allout-developer group @@ -3190,7 +3190,7 @@ Set by `allout-pre-command-business', to support allout addons in coordinating with allout activity.") ;;;_ = allout-this-command-hid-text (defvar-local allout-this-command-hid-text nil - "True if the most recent allout-mode command hid any text.") + "Non-nil if the most recent `allout-mode' command hid any text.") ;;;_ > allout-post-command-business () (defun allout-post-command-business () "Outline `post-command-hook' function. @@ -4787,7 +4787,7 @@ Useful for coherently exposing to a random point in a hidden region." (setq bag-it (1+ bag-it)) (if (> bag-it 1) (error "allout-show-to-offshoot: %s" - "Stumped by aberrant nesting."))) + "Stumped by aberrant nesting"))) (if (> bag-it 0) (setq bag-it 0)) (allout-show-children) (goto-char orig-pref))) @@ -5402,7 +5402,7 @@ Defaults: ;; Specified but not a buffer -- get it: (let ((got (get-buffer frombuf))) (if (not got) - (error "allout-process-exposed: source buffer %s not found." + (error "allout-process-exposed: Source buffer %s not found" frombuf) (setq frombuf got)))) ;; not specified -- default it: |