lisp/*.el: Fix typos and other trivial doc fixes

* lisp/allout-widgets.el (allout-widgets-auto-activation)
(allout-current-decorated-p):
* lisp/auth-source.el (auth-source-protocols):
* lisp/autorevert.el (auto-revert-set-timer):
* lisp/battery.el (battery-mode-line-limit):
* lisp/calc/calcalg3.el (math-map-binop):
* lisp/calendar/cal-dst.el (calendar-dst-find-startend):
* lisp/calendar/cal-mayan.el (calendar-mayan-long-count-to-absolute):
* lisp/calendar/calendar.el (calendar-date-echo-text)
(calendar-generate-month, calendar-string-spread)
(calendar-cursor-to-date, calendar-read, calendar-read-date)
(calendar-mark-visible-date, calendar-dayname-on-or-before):
* lisp/calendar/diary-lib.el (diary-ordinal-suffix):
* lisp/cedet/ede/autoconf-edit.el (autoconf-new-program)
(autoconf-find-last-macro, autoconf-parameter-strip):
* lisp/cedet/ede/config.el (ede-target-with-config-build):
* lisp/cedet/ede/linux.el (ede-linux--detect-architecture)
(ede-linux--get-architecture):
* lisp/cedet/semantic/complete.el (semantic-collector-calculate-cache)
(semantic-displayer-abstract, semantic-displayer-point-position):
* lisp/cedet/semantic/format.el (semantic-format-face-alist)
(semantic-format-tag-short-doc):
* lisp/cedet/semantic/fw.el (semantic-find-file-noselect):
* lisp/cedet/semantic/idle.el (semantic-idle-scheduler-work-idle-time)
(semantic-idle-breadcrumbs-display-function)
(semantic-idle-breadcrumbs-format-tag-list-function):
* lisp/cedet/semantic/lex.el (semantic-lex-map-types)
(define-lex, define-lex-block-type-analyzer):
* lisp/cedet/semantic/senator.el (senator-search-default-tag-filter):
* lisp/cedet/semantic/symref.el (semantic-symref-result)
(semantic-symref-hit-to-tag-via-db):
* lisp/cedet/semantic/symref.el (semantic-symref-tool-baseclass):
* lisp/cedet/semantic/tag.el (semantic-tag-new-variable)
(semantic-tag-new-include, semantic-tag-new-package)
(semantic-tag-set-faux, semantic-create-tag-proxy)
(semantic-tag-function-parent)
(semantic-tag-components-with-overlays):
* lisp/cedet/srecode/cpp.el (srecode-cpp-namespaces)
(srecode-semantic-handle-:c, srecode-semantic-apply-tag-to-dict):
* lisp/cedet/srecode/dictionary.el (srecode-create-dictionary)
(srecode-dictionary-add-entries, srecode-dictionary-lookup-name)
(srecode-create-dictionaries-from-tags):
* lisp/cmuscheme.el (scheme-compile-region):
* lisp/color.el (color-lab-to-lch):
* lisp/doc-view.el (doc-view-image-width)
(doc-view-set-up-single-converter):
* lisp/dynamic-setting.el (font-setting-change-default-font)
(dynamic-setting-handle-config-changed-event):
* lisp/elec-pair.el (electric-pair-text-pairs)
(electric-pair-skip-whitespace-function)
(electric-pair-string-bound-function):
* lisp/emacs-lisp/avl-tree.el (avl-tree--del-balance)
(avl-tree-member, avl-tree-mapcar, avl-tree-iter):
* lisp/emacs-lisp/bytecomp.el (byte-compile-generate-call-tree):
* lisp/emacs-lisp/checkdoc.el (checkdoc-autofix-flag)
(checkdoc-spellcheck-documentation-flag, checkdoc-ispell)
(checkdoc-ispell-current-buffer, checkdoc-ispell-interactive)
(checkdoc-ispell-message-interactive)
(checkdoc-ispell-message-text, checkdoc-ispell-start)
(checkdoc-ispell-continue, checkdoc-ispell-comments)
(checkdoc-ispell-defun):
* lisp/emacs-lisp/cl-generic.el (cl--generic-search-method):
* lisp/emacs-lisp/eieio-custom.el (eieio-read-customization-group):
* lisp/emacs-lisp/lisp.el (forward-sexp, up-list):
* lisp/emacs-lisp/package-x.el (package--archive-contents-from-file):
* lisp/emacs-lisp/package.el (package-desc)
(package--make-autoloads-and-stuff, package-hidden-regexps):
* lisp/emacs-lisp/tcover-ses.el (ses-exercise-startup):
* lisp/emacs-lisp/testcover.el (testcover-nohits)
(testcover-1value):
* lisp/epg.el (epg-receive-keys, epg-start-edit-key):
* lisp/erc/erc-backend.el (erc-server-processing-p)
(erc-split-line-length, erc-server-coding-system)
(erc-server-send, erc-message):
* lisp/erc/erc-button.el (erc-button-face, erc-button-alist)
(erc-browse-emacswiki):
* lisp/erc/erc-ezbounce.el (erc-ezbounce, erc-ezb-get-login):
* lisp/erc/erc-fill.el (erc-fill-variable-maximum-indentation):
* lisp/erc/erc-log.el (erc-current-logfile):
* lisp/erc/erc-match.el (erc-log-match-format)
(erc-text-matched-hook):
* lisp/erc/erc-netsplit.el (erc-netsplit, erc-netsplit-debug):
* lisp/erc/erc-networks.el (erc-server-alist)
(erc-networks-alist, erc-current-network):
* lisp/erc/erc-ring.el (erc-input-ring-index):
* lisp/erc/erc-speedbar.el (erc-speedbar)
(erc-speedbar-update-channel):
* lisp/erc/erc-stamp.el (erc-timestamp-only-if-changed-flag):
* lisp/erc/erc-track.el (erc-track-position-in-mode-line)
(erc-track-remove-from-mode-line, erc-modified-channels-update)
(erc-track-last-non-erc-buffer, erc-track-sort-by-importance)
(erc-track-get-active-buffer):
* lisp/erc/erc.el (erc-get-channel-user-list)
(erc-echo-notice-hook, erc-echo-notice-always-hook)
(erc-wash-quit-reason, erc-format-@nick):
* lisp/ffap.el (ffap-latex-mode):
* lisp/files.el (abort-if-file-too-large)
(dir-locals--get-sort-score, buffer-stale--default-function):
* lisp/filesets.el (filesets-tree-max-level, filesets-data)
(filesets-update-pre010505):
* lisp/gnus/gnus-agent.el (gnus-agent-flush-cache):
* lisp/gnus/gnus-art.el (gnus-article-encrypt-protocol)
(gnus-button-prefer-mid-or-mail):
* lisp/gnus/gnus-cus.el (gnus-group-parameters):
* lisp/gnus/gnus-demon.el (gnus-demon-handlers)
(gnus-demon-run-callback):
* lisp/gnus/gnus-dired.el (gnus-dired-print):
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event-from-buffer):
* lisp/gnus/gnus-range.el (gnus-range-normalize):
* lisp/gnus/gnus-spec.el (gnus-pad-form):
* lisp/gnus/gnus-srvr.el (gnus-server-agent, gnus-server-cloud)
(gnus-server-opened, gnus-server-closed, gnus-server-denied)
(gnus-server-offline):
* lisp/gnus/gnus-sum.el (gnus-refer-thread-use-nnir)
(gnus-refer-thread-limit-to-thread)
(gnus-summary-limit-include-thread, gnus-summary-refer-thread)
(gnus-summary-find-matching):
* lisp/gnus/gnus-util.el (gnus-rescale-image):
* lisp/gnus/gnus.el (gnus-summary-line-format, gnus-no-server):
* lisp/gnus/mail-source.el (mail-source-incoming-file-prefix):
* lisp/gnus/message.el (message-cite-reply-position)
(message-cite-style-outlook, message-cite-style-thunderbird)
(message-cite-style-gmail, message--send-mail-maybe-partially):
* lisp/gnus/mm-extern.el (mm-inline-external-body):
* lisp/gnus/mm-partial.el (mm-inline-partial):
* lisp/gnus/mml-sec.el (mml-secure-message-sign)
(mml-secure-message-sign-encrypt, mml-secure-message-encrypt):
* lisp/gnus/mml2015.el (mml2015-epg-key-image)
(mml2015-epg-key-image-to-string):
* lisp/gnus/nndiary.el (nndiary-reminders, nndiary-get-new-mail):
* lisp/gnus/nnheader.el (nnheader-directory-files-is-safe):
* lisp/gnus/nnir.el (nnir-search-history)
(nnir-imap-search-other, nnir-artlist-length)
(nnir-artlist-article, nnir-artitem-group, nnir-artitem-number)
(nnir-artitem-rsv, nnir-article-group, nnir-article-number)
(nnir-article-rsv, nnir-article-ids, nnir-categorize)
(nnir-retrieve-headers-override-function)
(nnir-imap-default-search-key, nnir-hyrex-additional-switches)
(gnus-group-make-nnir-group, nnir-run-namazu, nnir-read-parms)
(nnir-read-parm, nnir-read-server-parm, nnir-search-thread):
* lisp/gnus/nnmairix.el (nnmairix-default-group)
(nnmairix-propagate-marks):
* lisp/gnus/smime.el (smime-keys, smime-crl-check)
(smime-verify-buffer, smime-noverify-buffer):
* lisp/gnus/spam-report.el (spam-report-url-ping-mm-url):
* lisp/gnus/spam.el (spam-spamassassin-positive-spam-flag-header)
(spam-spamassassin-spam-status-header, spam-sa-learn-rebuild)
(spam-classifications, spam-check-stat, spam-spamassassin-score):
* lisp/help.el (describe-minor-mode-from-symbol):
* lisp/hippie-exp.el (hippie-expand-ignore-buffers):
* lisp/htmlfontify.el (hfy-optimizations, hfy-face-resolve-face)
(hfy-begin-span):
* lisp/ibuf-ext.el (ibuffer-update-saved-filters-format)
(ibuffer-saved-filters, ibuffer-old-saved-filters-warning)
(ibuffer-filtering-qualifiers, ibuffer-repair-saved-filters)
(eval, ibuffer-unary-operand, file-extension, directory):
* lisp/image-dired.el (image-dired-cmd-pngcrush-options):
* lisp/image-mode.el (image-toggle-display):
* lisp/international/ccl.el (ccl-compile-read-multibyte-character)
(ccl-compile-write-multibyte-character):
* lisp/international/kkc.el (kkc-save-init-file):
* lisp/international/latin1-disp.el (latin1-display):
* lisp/international/ogonek.el (ogonek-name-encoding-alist)
(ogonek-information, ogonek-lookup-encoding)
(ogonek-deprefixify-region):
* lisp/isearch.el (isearch-filter-predicate)
(isearch--momentary-message):
* lisp/jsonrpc.el (jsonrpc-connection-send)
(jsonrpc-process-connection, jsonrpc-shutdown)
(jsonrpc--async-request-1):
* lisp/language/tibet-util.el (tibetan-char-p):
* lisp/mail/feedmail.el (feedmail-queue-use-send-time-for-date)
(feedmail-last-chance-hook, feedmail-before-fcc-hook)
(feedmail-send-it-immediately-wrapper, feedmail-find-eoh):
* lisp/mail/hashcash.el (hashcash-generate-payment)
(hashcash-generate-payment-async, hashcash-insert-payment)
(hashcash-verify-payment):
* lisp/mail/rmail.el (rmail-movemail-variant-in-use)
(rmail-get-attr-value):
* lisp/mail/rmailmm.el (rmail-mime-prefer-html, rmail-mime):
* lisp/mail/rmailsum.el (rmail-summary-show-message):
* lisp/mail/supercite.el (sc-raw-mode-toggle):
* lisp/man.el (Man-start-calling):
* lisp/mh-e/mh-acros.el (mh-do-at-event-location)
(mh-iterate-on-messages-in-region, mh-iterate-on-range):
* lisp/mh-e/mh-alias.el (mh-alias-system-aliases)
(mh-alias-reload, mh-alias-ali)
(mh-alias-canonicalize-suggestion, mh-alias-add-alias-to-file)
(mh-alias-add-alias):
* lisp/mouse.el (mouse-save-then-kill):
* lisp/net/browse-url.el (browse-url-default-macosx-browser):
* lisp/net/eudc.el (eudc-set, eudc-variable-protocol-value)
(eudc-variable-server-value, eudc-update-variable)
(eudc-expand-inline):
* lisp/net/eudcb-bbdb.el (eudc-bbdb-format-record-as-result):
* lisp/net/eudcb-ldap.el (eudc-ldap-get-field-list):
* lisp/net/pop3.el (pop3-list):
* lisp/net/soap-client.el (soap-namespace-put)
(soap-xs-parse-sequence, soap-parse-envelope):
* lisp/net/soap-inspect.el (soap-inspect-xs-complex-type):
* lisp/nxml/rng-xsd.el (rng-xsd-date-to-days):
* lisp/org/ob-C.el (org-babel-prep-session:C)
(org-babel-load-session:C):
* lisp/org/ob-J.el (org-babel-execute:J):
* lisp/org/ob-asymptote.el (org-babel-prep-session:asymptote):
* lisp/org/ob-awk.el (org-babel-execute:awk):
* lisp/org/ob-core.el (org-babel-process-file-name):
* lisp/org/ob-ebnf.el (org-babel-execute:ebnf):
* lisp/org/ob-forth.el (org-babel-execute:forth):
* lisp/org/ob-fortran.el (org-babel-execute:fortran)
(org-babel-prep-session:fortran, org-babel-load-session:fortran):
* lisp/org/ob-groovy.el (org-babel-execute:groovy):
* lisp/org/ob-io.el (org-babel-execute:io):
* lisp/org/ob-js.el (org-babel-execute:js):
* lisp/org/ob-lilypond.el (org-babel-default-header-args:lilypond)
(org-babel-lilypond-compile-post-tangle)
(org-babel-lilypond-display-pdf-post-tangle)
(org-babel-lilypond-tangle)
(org-babel-lilypond-execute-tangled-ly)
(org-babel-lilypond-compile-lilyfile)
(org-babel-lilypond-check-for-compile-error)
(org-babel-lilypond-process-compile-error)
(org-babel-lilypond-mark-error-line)
(org-babel-lilypond-parse-error-line)
(org-babel-lilypond-attempt-to-open-pdf)
(org-babel-lilypond-attempt-to-play-midi)
(org-babel-lilypond-switch-extension)
(org-babel-lilypond-set-header-args):
* lisp/org/ob-lua.el (org-babel-prep-session:lua):
* lisp/org/ob-picolisp.el (org-babel-execute:picolisp):
* lisp/org/ob-processing.el (org-babel-prep-session:processing):
* lisp/org/ob-python.el (org-babel-prep-session:python):
* lisp/org/ob-scheme.el (org-babel-scheme-capture-current-message)
(org-babel-scheme-execute-with-geiser, org-babel-execute:scheme):
* lisp/org/ob-shen.el (org-babel-execute:shen):
* lisp/org/org-agenda.el (org-agenda-entry-types)
(org-agenda-move-date-from-past-immediately-to-today)
(org-agenda-time-grid, org-agenda-sorting-strategy)
(org-agenda-filter-by-category, org-agenda-forward-block):
* lisp/org/org-colview.el (org-columns--overlay-text):
* lisp/org/org-faces.el (org-verbatim, org-cycle-level-faces):
* lisp/org/org-indent.el (org-indent-set-line-properties):
* lisp/org/org-macs.el (org-get-limited-outline-regexp):
* lisp/org/org-mobile.el (org-mobile-files):
* lisp/org/org.el (org-use-fast-todo-selection)
(org-extend-today-until, org-use-property-inheritance)
(org-refresh-effort-properties, org-open-at-point-global)
(org-track-ordered-property-with-tag, org-shiftright):
* lisp/org/ox-html.el (org-html-checkbox-type):
* lisp/org/ox-man.el (org-man-source-highlight)
(org-man-verse-block):
* lisp/org/ox-publish.el (org-publish-sitemap-default):
* lisp/outline.el (outline-head-from-level):
* lisp/progmodes/dcl-mode.el (dcl-back-to-indentation-1)
(dcl-calc-command-indent, dcl-indent-to):
* lisp/progmodes/flymake.el (flymake-make-diagnostic)
(flymake--overlays, flymake-diagnostic-functions)
(flymake-diagnostic-types-alist, flymake--backend-state)
(flymake-is-running, flymake--collect, flymake-mode):
* lisp/progmodes/gdb-mi.el (gdb-threads-list, gdb, gdb-non-stop)
(gdb-buffers, gdb-gud-context-call, gdb-jsonify-buffer):
* lisp/progmodes/grep.el (grep-error-screen-columns):
* lisp/progmodes/gud.el (gud-prev-expr):
* lisp/progmodes/ps-mode.el (ps-mode, ps-mode-target-column)
(ps-run-goto-error):
* lisp/progmodes/python.el (python-eldoc-get-doc)
(python-eldoc-function-timeout-permanent, python-eldoc-function):
* lisp/shadowfile.el (shadow-make-group):
* lisp/speedbar.el (speedbar-obj-do-check):
* lisp/textmodes/flyspell.el (flyspell-auto-correct-previous-hook):
* lisp/textmodes/reftex-cite.el (reftex-bib-or-thebib):
* lisp/textmodes/reftex-index.el (reftex-index-goto-entry)
(reftex-index-kill, reftex-index-undo):
* lisp/textmodes/reftex-parse.el (reftex-context-substring):
* lisp/textmodes/reftex.el (reftex-TeX-master-file):
* lisp/textmodes/rst.el (rst-next-hdr, rst-toc)
(rst-uncomment-region, rst-font-lock-extend-region-internal):
* lisp/thumbs.el (thumbs-mode):
* lisp/vc/ediff-util.el (ediff-restore-diff):
* lisp/vc/pcvs-defs.el (cvs-cvsroot, cvs-force-dir-tag):
* lisp/vc/vc-hg.el (vc-hg--ignore-patterns-valid-p):
* lisp/wid-edit.el (widget-field-value-set, string):
* lisp/x-dnd.el (x-dnd-version-from-flags)
(x-dnd-more-than-3-from-flags): Assorted docfixes.

lisp/allout-widgets.el

@@ -132,7 +132,7 @@ Also enable `allout-auto-activation' for this to take effect upon
 visiting an outline.
 
 When this is set you can disable allout widgets in select files
-by setting `allout-widgets-mode-inhibit'
+by setting `allout-widgets-mode-inhibit'.
 
 Instead of setting `allout-widgets-auto-activation' you can
 explicitly invoke `allout-widgets-mode' in allout buffers where
@@ -867,7 +867,7 @@ Optional RECURSING is for internal use, to limit recursion."
   )
 ;;;_   > allout-current-decorated-p ()
 (defun allout-current-decorated-p ()
-  "True if the current item is not decorated"
+  "True if the current item is not decorated."
   (save-excursion
     (if (allout-back-to-current-heading)
         (if (> allout-recent-depth 0)

lisp/auth-source.el

@@ -136,7 +136,7 @@ let-binding."
                                    (ssh  "ssh" "22")
                                    (sftp "sftp" "115")
                                    (smtp "smtp" "25"))
-  "List of authentication protocols and their names"
+  "List of authentication protocols and their names."
 
   :version "23.2" ;; No Gnus
   :type '(repeat :tag "Authentication Protocols"

lisp/autorevert.el

@@ -616,7 +616,7 @@ Called after `set-visited-file-name'."
 If such a timer is active, cancel it.  Start a new timer if
 Global Auto-Revert Mode is active or if Auto-Revert Mode is active
 in some buffer.  Restarting the timer ensures that Auto-Revert Mode
-will use an up-to-date value of `auto-revert-interval'"
+will use an up-to-date value of `auto-revert-interval'."
   (interactive)
   (if (timerp auto-revert-timer)
       (cancel-timer auto-revert-timer))

lisp/battery.el

@@ -113,7 +113,7 @@ string are substituted as defined by the current value of the variable
 ;;;###autoload (put 'battery-mode-line-string 'risky-local-variable t)
 
 (defcustom battery-mode-line-limit 100
-  "Percentage of full battery load below which display battery status"
+  "Percentage of full battery load below which display battery status."
   :version "24.1"
   :type 'integer
   :group 'battery)

lisp/calc/calcalg3.el

@@ -40,7 +40,7 @@
 
 
 (defun math-map-binop (binop args1 args2)
-  "Apply BINOP to the elements of the lists ARGS1 and ARGS2"
+  "Apply BINOP to the elements of the lists ARGS1 and ARGS2."
   (if args1
       (cons
        (funcall binop (car args1) (car args2))

lisp/calendar/cal-dst.el

@@ -276,7 +276,7 @@ function `calendar-dst-find-startend'.")
   "Find the dates in YEAR on which daylight saving time starts and ends.
 Returns a list (YEAR START END), where START and END are
 expressions that when evaluated return the start and end dates,
-respectively. This function first attempts to use pre-calculated
+respectively.  This function first attempts to use pre-calculated
 data from `calendar-dst-transition-cache', otherwise it calls
 `calendar-dst-find-data' (and adds the results to the cache).
 If dates in YEAR cannot be handled by `encode-time' (e.g.,

lisp/calendar/cal-mayan.el

@@ -314,7 +314,7 @@ Echo Mayan date unless NOECHO is non-nil."
 
 (defun calendar-mayan-long-count-to-absolute (c)
   "Compute the absolute date corresponding to the Mayan Long Count C.
-Long count is a list (baktun katun tun uinal kin)"
+Long count is a list (baktun katun tun uinal kin)."
   (+ (* (nth 0 c) 144000)               ; baktun
      (* (nth 1 c) 7200)                 ; katun
      (* (nth 2 c) 360)                  ; tun

lisp/calendar/calendar.el

@@ -409,6 +409,7 @@ display the ISO date:
   (setq calendar-date-echo-text \\='(format \"ISO date: %s\"
                                          (calendar-iso-date-string
                                           (list month day year))))
+
 Changing this variable without using customize has no effect on
 pre-existing calendar windows."
   :group 'calendar
@@ -1471,10 +1472,10 @@ STRING to length TRUNCATE, and ensures a trailing space."
 
 (defun calendar-generate-month (month year indent)
   "Produce a calendar for MONTH, YEAR on the Gregorian calendar.
-The calendar is inserted at the top of the buffer in which point is currently
+The calendar is inserted at the top of the buffer in which point is
-located, but indented INDENT spaces.  The indentation is done from the first
+currently located, but indented INDENT spaces.  The indentation is
-character on the line and does not disturb the first INDENT characters on the
+done from the first character on the line and does not disturb the
-line."
+first INDENT characters on the line."
   (let ((blank-days                     ; at start of month
          (mod
           (- (calendar-day-of-week (list month 1 year))
@@ -1792,10 +1793,11 @@ For a complete description, see the info node `Calendar/Diary'.
 
 (defun calendar-string-spread (strings char length)
   "Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH.
-The effect is like `mapconcat' but the separating pieces are as balanced as
+The effect is like `mapconcat' but the separating pieces are as
-possible.  Each item of STRINGS is evaluated before concatenation so it can
+balanced as possible.  Each item of STRINGS is evaluated before
-actually be an expression that evaluates to a string.  If LENGTH is too short,
+concatenation so it can actually be an expression that evaluates
-the STRINGS are just concatenated and the result truncated."
+to a string.  If LENGTH is too short, the STRINGS are just
+concatenated and the result truncated."
   ;; The algorithm is based on equation (3.25) on page 85 of Concrete
   ;; Mathematics by Ronald L. Graham, Donald E. Knuth, and Oren Patashnik,
   ;; Addison-Wesley, Reading, MA, 1989.
@@ -1889,8 +1891,8 @@ The left-most month returns 0, the next right 1, and so on."
 
 (defun calendar-cursor-to-date (&optional error event)
   "Return a list (month day year) of current cursor position.
-If cursor is not on a specific date, signals an error if optional parameter
+If cursor is not on a specific date, signals an error if optional
-ERROR is non-nil, otherwise just returns nil.
+parameter ERROR is non-nil, otherwise just returns nil.
 If EVENT is non-nil, it's an event indicating the buffer position to
 use instead of point."
   (with-current-buffer
@@ -2046,9 +2048,9 @@ With argument ARG, jump to mark, pop it, and put point at end of ring."
 
 (defun calendar-read (prompt acceptable &optional initial-contents)
   "Return an object read from the minibuffer.
-Prompt with the string PROMPT and use the function ACCEPTABLE to decide if
+Prompt with the string PROMPT and use the function ACCEPTABLE to decide
-entered item is acceptable.  If non-nil, optional third arg INITIAL-CONTENTS
+if entered item is acceptable.  If non-nil, optional third arg
-is a string to insert in the minibuffer before reading."
+INITIAL-CONTENTS is a string to insert in the minibuffer before reading."
   (let ((value (read-minibuffer prompt initial-contents)))
     (while (not (funcall acceptable value))
       (setq value (read-minibuffer prompt initial-contents)))
@@ -2277,8 +2279,8 @@ arguments SEQUENCES."
 (defun calendar-read-date (&optional noday)
   "Prompt for Gregorian date.  Return a list (month day year).
 If optional NODAY is t, does not ask for day, but just returns
-\(month 1 year); if NODAY is any other non-nil value the value returned is
+\(month 1 year); if NODAY is any other non-nil value the value
-\(month year)"
+returned is (month year)."
   (let* ((year (calendar-read
                 "Year (>0): "
                 (lambda (x) (> x 0))
@@ -2458,8 +2460,8 @@ ATTRLIST is a list with elements of the form :face face :foreground color."
 
 (defun calendar-mark-visible-date (date &optional mark)
   "Mark DATE in the calendar window with MARK.
-MARK is a single-character string, a list of face attributes/values, or a face.
+MARK is a single-character string, a list of face attributes/values,
-MARK defaults to `diary-entry-marker'."
+or a face.  MARK defaults to `diary-entry-marker'."
   (if (calendar-date-is-valid-p date)
       (with-current-buffer calendar-buffer
         (save-excursion
@@ -2538,10 +2540,11 @@ name of the day of the week."
   "Return the absolute date of the DAYNAME on or before absolute DATE.
 DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on.
 
-Note: Applying this function to d+6 gives us the DAYNAME on or after an
+Note: Applying this function to d+6 gives us the DAYNAME on or after
-absolute day d.  Similarly, applying it to d+3 gives the DAYNAME nearest to
+an absolute day d.  Similarly, applying it to d+3 gives the DAYNAME
-absolute date d, applying it to d-1 gives the DAYNAME previous to absolute
+nearest to absolute date d, applying it to d-1 gives the DAYNAME
-date d, and applying it to d+7 gives the DAYNAME following absolute date d."
+previous to absolute date d, and applying it to d+7 gives the DAYNAME
+following absolute date d."
   (- date (% (- date dayname) 7)))
 
 (defun calendar-nth-named-absday (n dayname month year &optional day)

lisp/calendar/diary-lib.el

@@ -1950,7 +1950,7 @@ highlighting the day in the calendar."
              (cons mark entry)))))
 
 (defun diary-ordinal-suffix (n)
-  "Ordinal suffix for N. (That is, `st', `nd', `rd', or `th', as appropriate.)"
+  "Ordinal suffix for N.  (That is, `st', `nd', `rd', or `th', as appropriate.)"
   (if (or (memq (% n 100) '(11 12 13))
           (< 3 (% n 10)))
       "th"

lisp/cedet/ede/autoconf-edit.el

@@ -35,7 +35,7 @@
 ROOTDIR is the root directory of a given autoconf controlled project.
 PROGRAM is the program to be configured.
 TESTFILE is the file used with AC_INIT.
-configure the initial configure script using `autoconf-new-automake-string'"
+Configure the initial configure script using `autoconf-new-automake-string'."
   (interactive "DRoot Dir: \nsProgram: \nsTest File: ")
   (require 'ede/srecode)
   (if (bufferp rootdir)
@@ -147,7 +147,7 @@ From the autoconf manual:
     (looking-at (concat "\\(A[CM]_" macro "\\|" macro "\\)"))))
 
 (defun autoconf-find-last-macro (macro &optional ignore-bol)
-  "Move to the last occurrence of MACRO in FILE, and return that point.
+  "Move to the last occurrence of MACRO, and return that point.
 The last macro is usually the one in which we would like to insert more
 items such as CHECK_HEADERS."
   (let ((op (point)) (atbol (if ignore-bol "" "^")))
@@ -160,7 +160,7 @@ items such as CHECK_HEADERS."
       nil)))
 
 (defun autoconf-parameter-strip (param)
-  "Strip the parameter PARAM  of whitespace and miscellaneous characters."
+  "Strip the parameter PARAM of whitespace and miscellaneous characters."
   ;; force greedy match for \n.
   (when (string-match "\\`\n*\\s-*\\[?\\s-*" param)
     (setq param (substring param (match-end 0))))

lisp/cedet/ede/config.el

@@ -300,7 +300,7 @@ This class brings in method overloads for building.")
 (defclass ede-target-with-config-build ()
   ()
   "Class to mix into a project with configuration for builds.
-This class brings in method overloads for for building.")
+This class brings in method overloads for building.")
 
 (cl-defmethod project-compile-project ((proj ede-project-with-config-build) &optional command)
   "Compile the entire current project PROJ.

lisp/cedet/ede/linux.el

@@ -136,7 +136,7 @@ If DIR has not been used as a build directory, fall back to
 
 (defun ede-linux--detect-architecture (dir)
   "Try to auto-detect the architecture as configured in DIR.
-DIR is Linux' build directory. If it cannot be auto-detected,
+DIR is Linux' build directory.  If it cannot be auto-detected,
 returns `project-linux-architecture-default'."
   (let ((archs-dir (expand-file-name "arch" dir))
         (archs (ede-linux--get-archs dir))
@@ -157,9 +157,9 @@ returns `project-linux-architecture-default'."
 
 (defun ede-linux--get-architecture (dir bdir)
   "Try to auto-detect the architecture as configured in BDIR.
-Uses `ede-linux--detect-architecture' for the auto-detection. If
+Uses `ede-linux--detect-architecture' for the auto-detection.
-the result is `ask', let the user choose from architectures found
+If the result is `ask', let the user choose from architectures
-in DIR."
+found in DIR."
   (let ((arch (ede-linux--detect-architecture bdir)))
     (cl-case arch
       (ask

lisp/cedet/semantic/complete.el

@@ -1219,7 +1219,7 @@ Basics search only in the current buffer.")
 (cl-defmethod semantic-collector-calculate-cache
   ((obj semantic-collector-buffer-deep))
   "Calculate the completion cache for OBJ.
-Uses `semantic-flatten-tags-table'"
+Uses `semantic-flatten-tags-table'."
   (oset obj cache
 	;; Must create it in SEMANTICDB find format.
 	;; ( ( DBTABLE TAG TAG ... ) ... )
@@ -1314,7 +1314,7 @@ Uses semanticdb for searching all tags in the current project."
 	  :documentation "List of tags this displayer is showing.")
    (last-prefix :type string
 		:protection :protected
-		:documentation "Prefix associated with slot `table'")
+		:documentation "Prefix associated with slot `table'.")
    )
   "Abstract displayer baseclass.
 Manages the display of some number of tags.
@@ -1746,7 +1746,7 @@ Display mechanism using tooltip for a list of possible completions.")
 
 (defun semantic-displayer-point-position ()
   "Return the location of POINT as positioned on the selected frame.
-Return a cons cell (X . Y)"
+Return a cons cell (X . Y)."
   (let* ((frame (selected-frame))
 	 (toolbarleft
 	  (if (eq (cdr (assoc 'tool-bar-position default-frame-alist)) 'left)

lisp/cedet/semantic/format.el

@@ -107,7 +107,7 @@ Override the value locally if a language supports other tag types.
 When adding new elements, try to use symbols also returned by the parser.
 The form of an entry in this list is of the form:
  ( SYMBOL .  FACE )
-where SYMBOL is a tag type symbol used with semantic.  FACE
+where SYMBOL is a tag type symbol used with semantic, and FACE
 is a symbol representing a face.
 Faces used are generated in `font-lock' for consistency, and will not
 be used unless font lock is a feature.")
@@ -407,7 +407,7 @@ Optional argument COLOR means highlight the prototype with font-lock colors."
       (concat file ": " proto))))
 
 (define-overloadable-function semantic-format-tag-short-doc (tag &optional parent color)
-  "Display a short form of TAG's documentation. (Comments, or docstring.)
+  "Display a short form of TAG's documentation.  (Comments, or docstring.)
 Optional argument PARENT is the parent type if TAG is a detail.
 Optional argument COLOR means highlight the prototype with font-lock colors.")
 

lisp/cedet/semantic/fw.el

@@ -329,7 +329,7 @@ calling this one."
 (defun semantic-find-file-noselect (file &optional nowarn rawfile wildcards)
   "Call `find-file-noselect' with various features turned off.
 Use this when referencing a file that will be soon deleted.
-FILE, NOWARN, RAWFILE, and WILDCARDS are passed into `find-file-noselect'"
+FILE, NOWARN, RAWFILE, and WILDCARDS are passed into `find-file-noselect'."
   ;; Hack -
   ;; Check if we are in set-auto-mode, and if so, warn about this.
   (when (boundp 'keep-mode-if-same)

lisp/cedet/semantic/idle.el

@@ -91,8 +91,8 @@ run as soon as Emacs is idle."
 
 (defcustom semantic-idle-scheduler-work-idle-time 60
   "Time in seconds of idle before scheduling big work.
-This time should be long enough that once any big work is started, it is
+This time should be long enough that once any big work is started,
-unlikely the user would be ready to type again right away."
+it is unlikely the user would be ready to type again right away."
   :group 'semantic
   :type 'number
   :set (lambda (sym val)
@@ -1004,8 +1004,8 @@ completion.
   #'semantic-idle-breadcrumbs--display-in-header-line
   "Function to display the tag under point in idle time.
 This function should take a list of Semantic tags as its only
-argument. The tags are sorted according to their nesting order,
+argument.  The tags are sorted according to their nesting order,
-starting with the outermost tag. The function should call
+starting with the outermost tag.  The function should call
 `semantic-idle-breadcrumbs-format-tag-list-function' to convert
 the tag list into a string."
   :group 'semantic
@@ -1020,13 +1020,13 @@ the tag list into a string."
   #'semantic-idle-breadcrumbs--format-linear
   "Function to format the list of tags containing point.
 This function should take a list of Semantic tags and an optional
-maximum length of the produced string as its arguments. The
+maximum length of the produced string as its arguments.  The
-maximum length is a hint and can be ignored. When the maximum
+maximum length is a hint and can be ignored.  When the maximum
-length is omitted, an unconstrained string should be
+length is omitted, an unconstrained string should be produced.
-produced. The tags are sorted according to their nesting order,
+The tags are sorted according to their nesting order, starting
-starting with the outermost tag. Single tags should be formatted
+with the outermost tag.  Single tags should be formatted using
-using `semantic-idle-breadcrumbs-format-tag-function' unless
+`semantic-idle-breadcrumbs-format-tag-function' unless special
-special formatting is required."
+formatting is required."
   :group 'semantic
   :type  '(choice
 	   (const    :tag "Format tags as list, innermost last"

lisp/cedet/semantic/lex.el

@@ -454,7 +454,7 @@ PROPSPECS must be a list of (TYPE PROPERTY VALUE)."
 (defsubst semantic-lex-map-types (fun &optional property)
   "Call function FUN on every lexical type.
 If optional PROPERTY is non-nil, call FUN only on every type symbol
-which as a PROPERTY value.  FUN receives a type symbol as argument."
+which has a PROPERTY value.  FUN receives a type symbol as argument."
   (semantic-lex-map-symbols
    fun semantic-lex-types-obarray property))
 
@@ -769,7 +769,7 @@ Note: The order in which analyzers are listed is important.
 If two analyzers can match the same text, it is important to order the
 analyzers so that the one you want to match first occurs first.  For
 example, it is good to put a number analyzer in front of a symbol
-analyzer which might mistake a number for as a symbol."
+analyzer which might mistake a number for a symbol."
   `(defun ,name  (start end &optional depth length)
      ,(concat doc "\nSee `semantic-lex' for more information.")
      ;; Make sure the state of block parsing starts over.
@@ -1581,7 +1581,7 @@ DEFAULT is the default lexical token returned when no MATCHES."
 (defmacro define-lex-block-type-analyzer (name doc syntax matches)
   "Define a block type analyzer NAME with DOC string.
 
-SYNTAX is the regexp that matches block delimiters,  typically the
+SYNTAX is the regexp that matches block delimiters, typically the
 open (`\\\\s(') and close (`\\\\s)') parenthesis syntax classes.
 
 MATCHES is a pair (OPEN-SPECS . CLOSE-SPECS) that defines blocks.

lisp/cedet/semantic/senator.el

@@ -198,7 +198,7 @@ Tags of those classes are excluded from search."
 
 (defun senator-search-default-tag-filter (tag)
   "Default function that filters searched tags.
-Ignore tags of classes in `senator-search-ignore-tag-classes'"
+Ignore tags of classes in `senator-search-ignore-tag-classes'."
   (not (memq (semantic-tag-class tag)
              senator-search-ignore-tag-classes)))
 

lisp/cedet/semantic/symref.el

@@ -319,7 +319,7 @@ where different symbols are used.
 
 Subclasses should be named `semantic-symref-tool-NAME', where
 NAME is the name of the tool used in the configuration variable
-`semantic-symref-tool'"
+`semantic-symref-tool'."
   :abstract t)
 
 (cl-defmethod semantic-symref-get-result ((tool semantic-symref-tool-baseclass))
@@ -388,7 +388,7 @@ Each element is a cons cell of the form (LINE . FILENAME).")
 	     :type list
 	     :documentation
 	     "The list of tags with hits in them.
-Use the  `semantic-symref-hit-tags' method to get this list.")
+Use the `semantic-symref-hit-tags' method to get this list.")
    )
   "The results from a symbol reference search.")
 
@@ -476,7 +476,7 @@ Return the Semantic tag associated with HIT.
 SEARCHTXT is the text that is being searched for.
 Used to narrow the in-buffer search.
 SEARCHTYPE is the type of search (such as 'symbol or 'tagname).
-If there is no database, of if the searchtype is wrong, return nil."
+If there is no database, or if the searchtype is wrong, return nil."
   ;; Allowed search types for this mechanism:
   ;; tagname, tagregexp, tagcompletions
   (if (not (memq searchtype '(tagname tagregexp tagcompletions)))

lisp/cedet/semantic/tag.el

@@ -471,8 +471,8 @@ ATTRIBUTES is a list of additional attributes belonging to this tag."
 NAME is the name of this variable.
 TYPE is a string or semantic tag representing the type of this variable.
 Optional DEFAULT-VALUE is a string representing the default value of this
-variable.  ATTRIBUTES is a list of additional attributes belonging to this
+variable.
-tag."
+ATTRIBUTES is a list of additional attributes belonging to this tag."
   (apply 'semantic-tag name 'variable
          :type type
          :default-value default-value
@@ -518,8 +518,8 @@ ATTRIBUTES is a list of additional attributes belonging to this tag."
 (defsubst semantic-tag-new-include (name system-flag &rest attributes)
   "Create a semantic tag of class `include'.
 NAME is the name of this include.
-SYSTEM-FLAG represents that we were able to identify this include as belonging
+SYSTEM-FLAG represents that we were able to identify this include as
-to the system, as opposed to belonging to the local project.
+belonging to the system, as opposed to belonging to the local project.
 ATTRIBUTES is a list of additional attributes belonging to this tag."
   (apply 'semantic-tag name 'include
          :system-flag system-flag
@@ -528,8 +528,8 @@ ATTRIBUTES is a list of additional attributes belonging to this tag."
 (defsubst semantic-tag-new-package (name detail &rest attributes)
   "Create a semantic tag of class `package'.
 NAME is the name of this package.
-DETAIL is extra information about this package, such as a location where
+DETAIL is extra information about this package, such as a location
-it can be found.
+where it can be found.
 ATTRIBUTES is a list of additional attributes belonging to this tag."
   (apply 'semantic-tag name 'package
          :detail detail
@@ -547,7 +547,7 @@ ATTRIBUTES is a list of additional attributes belonging to this tag."
 (defsubst semantic-tag-set-faux (tag)
   "Set TAG to be a new FAUX tag.
 FAUX tags represent constructs not found in the source code.
-You can identify a faux tag with `semantic-tag-faux-p'"
+You can identify a faux tag with `semantic-tag-faux-p'."
   (semantic--tag-put-property tag :faux-flag t))
 
 (defsubst semantic-tag-set-name (tag name)
@@ -565,9 +565,9 @@ You can identify a faux tag with `semantic-tag-faux-p'"
 ;; it.  This prevents saving of massive amounts of proxy data.
 (defun semantic-create-tag-proxy (function data)
   "Create a tag proxy symbol.
-FUNCTION will be used to resolve the proxy.  It should take 3
+FUNCTION will be used to resolve the proxy.  It should take
 two arguments, DATA and TAG.  TAG is a proxy tag that needs
-to be resolved, and DATA is the DATA passed into this function.
+to be resolved, and DATA is the data passed into this function.
 DATA is data to help resolve the proxy.  DATA can be an EIEIO object,
 such that FUNCTION is a method.
 FUNCTION should return a list of tags, preferably one tag."
@@ -870,7 +870,7 @@ That is the value of the `:throws' attribute."
   "Return the parent of the function that TAG describes.
 That is the value of the `:parent' attribute.
 A function has a parent if it is a method of a class, and if the
-function does not appear in body of its parent class."
+function does not appear in the body of its parent class."
   (semantic-tag-named-parent tag))
 
 (defsubst semantic-tag-function-destructor-p (tag)
@@ -976,7 +976,7 @@ Perform the described task in `semantic-tag-components'."
 Children are any sub-tags which contain overlays.
 
 Default behavior is to get `semantic-tag-components' in addition
-to the components of an anonymous types (if applicable.)
+to the components of an anonymous type (if applicable.)
 
 Note for language authors:
   If a mode defines a language tag that has tags in it with overlays

lisp/cedet/srecode/cpp.el

@@ -43,7 +43,7 @@
   "List expansion candidates for the :using-namespaces argument.
 A dictionary entry of the named PREFIX_NAMESPACE with the value
 NAMESPACE:: is created for each namespace unless the current
-buffer contains a using NAMESPACE; statement "
+buffer contains a using NAMESPACE; statement."
   :group 'srecode-cpp
   :type  '(repeat string))
 
@@ -56,7 +56,7 @@ buffer contains a using NAMESPACE; statement "
 
 ;;;###autoload
 (defun srecode-semantic-handle-:c (dict)
-  "Add macros into the dictionary DICT based on the current c file.
+  "Add macros into the dictionary DICT based on the current C file.
 Adds the following:
 FILENAME_SYMBOL - filename converted into a C compat symbol.
 HEADER - Shown section if in a header file."
@@ -110,7 +110,7 @@ PREFIX_NAMESPACE - for each NAMESPACE in `srecode-cpp-namespaces'."
 (define-mode-local-override srecode-semantic-apply-tag-to-dict
   c-mode (tag-wrapper dict)
   "Apply C and C++ specific features from TAG-WRAPPER into DICT.
-Calls `srecode-semantic-apply-tag-to-dict-default' first. Adds
+Calls `srecode-semantic-apply-tag-to-dict-default' first.  Adds
 special behavior for tag of classes include, using and function.
 
 This function cannot be split into C and C++ specific variants, as

lisp/cedet/srecode/dictionary.el

@@ -147,7 +147,7 @@ Makes sure that :value is compiled."
 ;;
 
 (defun srecode-create-dictionary (&optional buffer-or-parent)
-  "Create a dictionary for BUFFER.
+  "Create a dictionary for BUFFER-OR-PARENT.
 If BUFFER-OR-PARENT is not specified, assume a buffer, and
 use the current buffer.
 If BUFFER-OR-PARENT is another dictionary, then remember the
@@ -326,8 +326,8 @@ inserted dictionaries."
 					   entries &optional state)
   "Add ENTRIES to DICT.
 
-ENTRIES is a list of even length of dictionary entries to
+ENTRIES is a list of even length of dictionary entries to add.
-add. ENTRIES looks like this:
+ENTRIES looks like this:
 
   (NAME_1 VALUE_1 NAME_2 VALUE_2 ...)
 
@@ -340,7 +340,7 @@ and for values
  * Otherwise, a compound variable is created for VALUE_N.
 
 The optional argument STATE has to non-nil when compound values
-are inserted. An error is signaled if ENTRIES contains compound
+are inserted.  An error is signaled if ENTRIES contains compound
 values but STATE is nil."
   (while entries
     (let ((name  (nth 0 entries))
@@ -409,8 +409,8 @@ OTHERDICT."
 					   name &optional non-recursive)
   "Return information about DICT's value for NAME.
 DICT is a dictionary, and NAME is a string that is treated as the
-name of an entry in the dictionary. If such an entry exists, its
+name of an entry in the dictionary.  If such an entry exists, its
-value is returned. Otherwise, nil is returned. Normally, the
+value is returned.  Otherwise, nil is returned. Normally, the
 lookup is recursive in the sense that the parent of DICT is
 searched for NAME if it is not found in DICT.  This recursive
 lookup can be disabled by the optional argument NON-RECURSIVE.
@@ -552,7 +552,7 @@ inserted with a new editable field.")
   "Create a dictionary with entries according to TAGS.
 
 TAGS should be in the format produced by the template file
-grammar. That is
+grammar.  That is
 
 TAGS = (ENTRY_1 ENTRY_2 ...)
 
@@ -560,9 +560,9 @@ where
 
 ENTRY_N = (NAME ENTRY_N_1 ENTRY_N_2 ...) | TAG
 
-where TAG is a semantic tag of class 'variable. The (NAME ... )
+where TAG is a semantic tag of class 'variable.  The (NAME ... )
 form creates a child dictionary which is stored under the name
-NAME. The TAG form creates a value entry or section dictionary
+NAME.  The TAG form creates a value entry or section dictionary
 entry whose name is the name of the tag.
 
 STATE is the current compiler state."

lisp/cmuscheme.el

@@ -287,7 +287,7 @@ in this order.  Return nil if no start file found."
 
 (defun scheme-compile-region (start end)
   "Compile the current region in the inferior Scheme process.
-\(A BEGIN is wrapped around the region: (BEGIN <region>))"
+\(A BEGIN is wrapped around the region: (BEGIN <region>).)"
   (interactive "r")
   (comint-send-string (scheme-proc) (format scheme-compile-exp-command
 					    (format "(begin %s)"

lisp/color.el

@@ -291,11 +291,11 @@ conversion.  If omitted or nil, use `color-d65-xyz'."
    (list (/ (* Y x) y) Y (/ (* Y (- 1 x y)) y))))
 
 (defun color-lab-to-lch (L a b)
-  "Convert CIE L*a*b* to L*C*h*"
+  "Convert CIE L*a*b* to L*C*h*."
   (list L (sqrt (+ (* a a) (* b b))) (atan b a)))
 
 (defun color-lch-to-lab (L C h)
-  "Convert CIE L*a*b* to L*C*h*"
+  "Convert CIE L*a*b* to L*C*h*."
   (list L (* C (cos h)) (* C (sin h))))
 
 (defun color-cie-de2000 (color1 color2 &optional kL kC kH)

lisp/doc-view.el

@@ -214,7 +214,7 @@ scaling."
 (defcustom doc-view-image-width 850
   "Default image width.
 Has only an effect if `doc-view-scale-internally' is non-nil and support for
-scaling is compiled into emacs."
+scaling is compiled into Emacs."
   :version "24.1"
   :type 'number)
 
@@ -1778,7 +1778,7 @@ If BACKWARD is non-nil, jump to the previous match."
               (error "Cannot determine the document type"))))))
 
 (defun doc-view-set-up-single-converter ()
-  "Find the right single-page converter for the current document type"
+  "Find the right single-page converter for the current document type."
   (pcase-let ((`(,conv-function ,type ,extension)
                (pcase doc-view-doc-type
                  ('djvu (list #'doc-view-djvu->tiff-converter-ddjvu 'tiff "tif"))

lisp/dynamic-setting.el

@@ -40,8 +40,8 @@
   "Change font and/or font settings for frames on display DISPLAY-OR-FRAME.
 If DISPLAY-OR-FRAME is a frame, the display is the one for that frame.
 
-If SET-FONT is non-nil, change the font for frames.  Otherwise re-apply the
+If SET-FONT is non-nil, change the font for frames.  Otherwise re-apply
-current form for the frame (i.e. hinting or somesuch changed)."
+the current form for the frame (i.e. hinting or somesuch changed)."
   (let ((new-font (and (fboundp 'font-get-system-font)
 		       (font-get-system-font)))
 	(frame-list (frames-on-display-list display-or-frame)))
@@ -68,8 +68,8 @@ current form for the frame (i.e. hinting or somesuch changed)."
 (defun dynamic-setting-handle-config-changed-event (event)
   "Handle config-changed-event on the display in EVENT.
 Changes can be
-  The monospace font. If `font-use-system-font' is nil, the font
+  The monospace font.  If `font-use-system-font' is nil,
-    is not changed.
+    the font is not changed.
   The normal font.
   Xft parameters, like DPI and hinting.
   The Gtk+ theme name.

lisp/elec-pair.el

@@ -51,7 +51,7 @@ See also the variable `electric-pair-text-pairs'."
 
 Pairs of delimiters in this list are a fallback in case they have
 no syntax relevant to `electric-pair-mode' in the syntax table
-defined in `electric-pair-text-syntax-table'"
+defined in `electric-pair-text-syntax-table'."
   :version "24.4"
   :group 'electricity
   :type '(repeat (cons character character)))
@@ -159,7 +159,7 @@ return value is considered instead."
   #'electric-pair--skip-whitespace
   "Function to use to skip whitespace forward.
 Before attempting a skip, if `electric-pair-skip-whitespace' is
-non-nil, this function is called. It move point to a new buffer
+non-nil, this function is called.  It move point to a new buffer
 position, presumably skipping only whitespace in between.")
 
 (defun electric-pair--skip-whitespace ()
@@ -380,7 +380,7 @@ If point is not enclosed by any lists, return ((t) . (t))."
 (defvar electric-pair-string-bound-function 'point-max
   "Next buffer position where strings are syntactically unexpected.
 Value is a function called with no arguments and returning a
-buffer position. Major modes should set this variable
+buffer position.  Major modes should set this variable
 buffer-locally if they experience slowness with
 `electric-pair-mode' when pairing quotes.")
 

lisp/emacs-lisp/avl-tree.el

@@ -130,8 +130,8 @@ NODE is the node, and BRANCH is the branch.
 
 (defun avl-tree--del-balance (node branch dir)
   "Rebalance a tree after deleting a node.
-The deletion was done from the left (DIR=0) or right (DIR=1) sub-tree of the
+The deletion was done from the left (DIR=0) or right (DIR=1) sub-tree
-left (BRANCH=0) or right (BRANCH=1) child of NODE.
+of the left (BRANCH=0) or right (BRANCH=1) child of NODE.
 Return t if the height of the tree has shrunk."
   ;; (or is it vice-versa for BRANCH?)
   (let ((br (avl-tree--node-branch node branch))
@@ -477,11 +477,11 @@ value is non-nil."
 Matching uses the comparison function previously specified in
 `avl-tree-create' when TREE was created.
 
-If there is no such element in the tree, nil is
+If there is no such element in the tree, nil is returned.
-returned.  Optional argument NILFLAG specifies a value to return
+Optional argument NILFLAG specifies a value to return instead of nil
-instead of nil in this case.  This allows non-existent elements to
+in this case.  This allows non-existent elements to be distinguished
-be distinguished from a null element.  (See also
+from a null element.  (See also `avl-tree-member-p', which does this
-`avl-tree-member-p', which does this for you.)"
+for you.)"
   (let ((node (avl-tree--root tree))
 	(compare-function (avl-tree--cmpfun tree)))
     (catch 'found
@@ -553,13 +553,13 @@ order, or descending order if REVERSE is non-nil."
 
 
 (defun avl-tree-mapcar (fun tree &optional reverse)
-  "Apply FUNCTION to all elements in AVL tree TREE,
+  "Apply function FUN to all elements in AVL tree TREE,
 and make a list of the results.
 
-The FUNCTION is applied and the list constructed in ascending
+The function is applied and the list constructed in ascending
 order, or descending order if REVERSE is non-nil.
 
-Note that if you don't care about the order in which FUNCTION is
+Note that if you don't care about the order in which FUN is
 applied, just that the resulting list is in the correct order,
 then
 
@@ -674,7 +674,7 @@ a null element stored in the AVL tree.)"
   "Return an AVL tree iterator object.
 
 Calling `iter-next' on this object will retrieve the next element
-from TREE. If REVERSE is non-nil, elements are returned in
+from TREE.  If REVERSE is non-nil, elements are returned in
 reverse order.
 
 Note that any modification to TREE *immediately* invalidates all

lisp/emacs-lisp/bytecomp.el

@@ -395,16 +395,16 @@ else the global value will be modified."
   "Non-nil means collect call-graph information when compiling.
 This records which functions were called and from where.
 If the value is t, compilation displays the call graph when it finishes.
-If the value is neither t nor nil, compilation asks you whether to display
+If the value is neither t nor nil, compilation asks you whether to
-the graph.
+display the graph.
 
-The call tree only lists functions called, not macros used. Those functions
+The call tree only lists functions called, not macros used.  Those
-which the byte-code interpreter knows about directly (eq, cons, etc.) are
+functions which the byte-code interpreter knows about directly (eq,
-not reported.
+cons, etc.) are not reported.
 
-The call tree also lists those functions which are not known to be called
+The call tree also lists those functions which are not known to be
-\(that is, to which no calls have been compiled).  Functions which can be
+called (that is, to which no calls have been compiled).  Functions
-invoked interactively are excluded from this list."
+which can be invoked interactively are excluded from this list."
   :type '(choice (const :tag "Yes" t) (const :tag "No" nil)
 		 (other :tag "Ask" lambda)))
 

lisp/emacs-lisp/checkdoc.el

@@ -194,7 +194,7 @@
   "Non-nil means attempt auto-fixing of doc strings.
 If this value is the symbol `query', then the user is queried before
 any change is made.  If the value is `automatic', then all changes are
-made without asking unless the change is very-complex.  If the value
+made without asking unless the change is very complex.  If the value
 is `semiautomatic' or any other value, then simple fixes are made
 without asking, and complex changes are made by asking the user first.
 The value `never' is the same as nil, never ask or change anything."
@@ -238,10 +238,10 @@ This is automatically set to nil if Ispell does not exist on your
 system.  Possible values are:
 
   nil         - Don't spell-check during basic style checks.
-  defun       - Spell-check when style checking a single defun
+  defun       - Spell-check when style checking a single defun.
-  buffer      - Spell-check when style checking the whole buffer
+  buffer      - Spell-check when style checking the whole buffer.
   interactive - Spell-check during any interactive check.
-  t           - Always spell-check"
+  t           - Always spell-check."
   :type '(choice (const nil)
           (const defun)
           (const buffer)
@@ -1050,7 +1050,7 @@ space at the end of each line."
 (defun checkdoc-ispell ()
   "Check the style and spelling of everything interactively.
 Calls `checkdoc' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc'"
+Prefix argument is the same as for `checkdoc'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc)))
@@ -1059,7 +1059,7 @@ Prefix argument is the same as for `checkdoc'"
 (defun checkdoc-ispell-current-buffer ()
   "Check the style and spelling of the current buffer.
 Calls `checkdoc-current-buffer' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc-current-buffer'"
+Prefix argument is the same as for `checkdoc-current-buffer'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc-current-buffer)))
@@ -1068,7 +1068,7 @@ Prefix argument is the same as for `checkdoc-current-buffer'"
 (defun checkdoc-ispell-interactive ()
   "Check the style and spelling of the current buffer interactively.
 Calls `checkdoc-interactive' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc-interactive'"
+Prefix argument is the same as for `checkdoc-interactive'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc-interactive)))
@@ -1077,7 +1077,7 @@ Prefix argument is the same as for `checkdoc-interactive'"
 (defun checkdoc-ispell-message-interactive ()
   "Check the style and spelling of message text interactively.
 Calls `checkdoc-message-interactive' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc-message-interactive'"
+Prefix argument is the same as for `checkdoc-message-interactive'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc-message-interactive
@@ -1087,7 +1087,7 @@ Prefix argument is the same as for `checkdoc-message-interactive'"
 (defun checkdoc-ispell-message-text ()
   "Check the style and spelling of message text interactively.
 Calls `checkdoc-message-text' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc-message-text'"
+Prefix argument is the same as for `checkdoc-message-text'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc-message-text)))
@@ -1096,7 +1096,7 @@ Prefix argument is the same as for `checkdoc-message-text'"
 (defun checkdoc-ispell-start ()
   "Check the style and spelling of the current buffer.
 Calls `checkdoc-start' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc-start'"
+Prefix argument is the same as for `checkdoc-start'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc-start)))
@@ -1105,7 +1105,7 @@ Prefix argument is the same as for `checkdoc-start'"
 (defun checkdoc-ispell-continue ()
   "Check the style and spelling of the current buffer after point.
 Calls `checkdoc-continue' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc-continue'"
+Prefix argument is the same as for `checkdoc-continue'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc-continue)))
@@ -1114,7 +1114,7 @@ Prefix argument is the same as for `checkdoc-continue'"
 (defun checkdoc-ispell-comments ()
   "Check the style and spelling of the current buffer's comments.
 Calls `checkdoc-comments' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc-comments'"
+Prefix argument is the same as for `checkdoc-comments'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc-comments)))
@@ -1123,7 +1123,7 @@ Prefix argument is the same as for `checkdoc-comments'"
 (defun checkdoc-ispell-defun ()
   "Check the style and spelling of the current defun with Ispell.
 Calls `checkdoc-defun' with spell-checking turned on.
-Prefix argument is the same as for `checkdoc-defun'"
+Prefix argument is the same as for `checkdoc-defun'."
   (interactive)
   (let ((checkdoc-spellcheck-documentation-flag t))
     (call-interactively #'checkdoc-defun)))

lisp/emacs-lisp/cl-generic.el

@@ -22,7 +22,7 @@
 
 ;;; Commentary:
 
-;; This implements the most of CLOS's multiple-dispatch generic functions.
+;; This implements most of CLOS's multiple-dispatch generic functions.
 ;; To use it you need either (require 'cl-generic) or (require 'cl-lib).
 ;; The main entry points are: `cl-defgeneric' and `cl-defmethod'.
 
@@ -911,7 +911,7 @@ Can only be used from within the lexical body of a primary or around method."
 ;;; Add support for describe-function
 
 (defun cl--generic-search-method (met-name)
-  "For `find-function-regexp-alist'. Searches for a cl-defmethod.
+  "For `find-function-regexp-alist'.  Searches for a cl-defmethod.
 MET-NAME is as returned by `cl--generic-load-hist-format'."
   (let ((base-re (concat "(\\(?:cl-\\)?defmethod[ \t]+"
                          (regexp-quote (format "%s" (car met-name)))

lisp/emacs-lisp/eieio-custom.el

@@ -454,7 +454,7 @@ Must return the created widget."
 
 (cl-defmethod eieio-read-customization-group ((obj eieio-default-superclass))
   "Do a completing read on the name of a customization group in OBJ.
-Return the symbol for the group, or nil"
+Return the symbol for the group, or nil."
   (let ((g (eieio--class-option (eieio--object-class obj)
                                 :custom-groups)))
     (if (= (length g) 1)

lisp/emacs-lisp/lisp.el

@@ -60,8 +60,8 @@ Should take the same arguments and behave similarly to `forward-sexp'.")
 With ARG, do it that many times.  Negative arg -N means move
 backward across N balanced expressions.  This command assumes
 point is not in a string or comment.  Calls
-`forward-sexp-function' to do the work, if that is non-nil.  If
+`forward-sexp-function' to do the work, if that is non-nil.
-unable to move over a sexp, signal `scan-error' with three
+If unable to move over a sexp, signal `scan-error' with three
 arguments: a message, the start of the obstacle (usually a
 parenthesis or list marker of some kind), and end of the
 obstacle."
@@ -164,7 +164,7 @@ This command will also work on other parentheses-like expressions
 defined by the current language mode.  With ARG, do this that
 many times.  A negative argument means move backward but still to
 a less deep spot.  If ESCAPE-STRINGS is non-nil (as it is
-interactively), move out of enclosing strings as well. If
+interactively), move out of enclosing strings as well.  If
 NO-SYNTAX-CROSSING is non-nil (as it is interactively), prefer to
 break out of any enclosing string instead of moving to the start
 of a list broken across multiple strings.  On error, location of

lisp/emacs-lisp/package-x.el

@@ -124,7 +124,7 @@ Return the file contents, as a string, or nil if unsuccessful."
 	 (buffer-substring-no-properties (point-min) (point-max)))))))
 
 (defun package--archive-contents-from-file ()
-  "Parse the archive-contents at `package-archive-upload-base'"
+  "Parse the archive-contents at `package-archive-upload-base'."
   (let ((file (expand-file-name "archive-contents"
 				package-archive-upload-base)))
     (if (not (file-exists-p file))

lisp/emacs-lisp/package.el

@@ -448,11 +448,11 @@ Slots:
 `summary' Short description of the package, typically taken from
         the first line of the file.
 
-`reqs'	Requirements of the package. A list of (PACKAGE
+`reqs'	Requirements of the package.  A list of (PACKAGE
         VERSION-LIST) naming the dependent package and the minimum
         required version.
 
-`kind'	The distribution format of the package. Currently, it is
+`kind'	The distribution format of the package.  Currently, it is
         either `single' or `tar'.
 
 `archive' The name of the archive (as a string) whence this
@@ -980,7 +980,7 @@ untar into a directory named DIR; otherwise, signal an error."
     auto-name))
 
 (defun package--make-autoloads-and-stuff (pkg-desc pkg-dir)
-  "Generate autoloads, description file, etc.. for PKG-DESC installed at PKG-DIR."
+  "Generate autoloads, description file, etc., for PKG-DESC installed at PKG-DIR."
   (package-generate-autoloads (package-desc-name pkg-desc) pkg-dir)
   (let ((desc-file (expand-file-name (package--description-file pkg-dir)
                                      pkg-dir)))
@@ -2843,7 +2843,7 @@ If the name of a package matches any of these regexps it is
 omitted from the package menu.  To toggle this, type \\[package-menu-toggle-hiding].
 
 Values can be interactively added to this list by typing
-\\[package-menu-hide-package] on a package"
+\\[package-menu-hide-package] on a package."
   :version "25.1"
   :type '(repeat (regexp :tag "Hide packages with name matching")))
 

lisp/emacs-lisp/tcover-ses.el

@@ -627,7 +627,7 @@ spreadsheet files with invalid formatting."
 	(error nil)))))
 
 (defun ses-exercise-startup ()
-  "Prepare for coverage tests"
+  "Prepare for coverage tests."
   ;;Clean up from any previous runs
   (condition-case nil (kill-buffer "ses-example.ses") (error nil))
   (condition-case nil (kill-buffer "ses-test.ses") (error nil))

lisp/emacs-lisp/testcover.el

@@ -150,12 +150,12 @@ call to one of the `testcover-1value-functions'."
 
 (defface testcover-nohits
   '((t (:background "DeepPink2")))
-  "Face for forms that had no hits during coverage test"
+  "Face for forms that had no hits during coverage test."
   :group 'testcover)
 
 (defface testcover-1value
   '((t (:background "Wheat2")))
-  "Face for forms that always produced the same value during coverage test"
+  "Face for forms that always produced the same value during coverage test."
   :group 'testcover)
 
 

lisp/epg.el

@@ -1902,7 +1902,7 @@ If you are unsure, use synchronous version of this function
 
 (defun epg-receive-keys (context keys)
   "Add keys from server.
-KEYS is a list of key IDs"
+KEYS is a list of key IDs."
   (unwind-protect
       (progn
 	(epg-start-receive-keys context keys)
@@ -2002,7 +2002,7 @@ PARAMETERS is a string which tells how to create the key."
 (defun epg-start-edit-key (context key edit-callback handback)
   "Initiate an edit operation on KEY.
 
-EDIT-CALLBACK is called from process filter and takes 3
+EDIT-CALLBACK is called from process filter and takes four
 arguments: the context, a status, an argument string, and the
 handback argument.
 

lisp/erc/erc-backend.el

@@ -261,7 +261,7 @@ but has not been processed yet.")
   "Non-nil when we're currently processing a message.
 
 When ERC receives a private message, it sets up a new buffer for
-this query.  These in turn, though, do start flyspell. This
+this query.  These in turn, though, do start flyspell.  This
 involves starting an external process, in which case Emacs will
 wait - and when it waits, it does accept other stuff from, say,
 network exceptions.  So, if someone sends you two messages
@@ -320,7 +320,7 @@ If a key is pressed while ERC is waiting, it will stop waiting."
   "The maximum length of a single message.
 If a message exceeds this size, it is broken into multiple ones.
 
-IRC allows for lines up to 512 bytes. Two of them are CR LF.
+IRC allows for lines up to 512 bytes.  Two of them are CR LF.
 And a typical message looks like this:
 
   :nicky!uhuser@host212223.dialin.fnordisp.net PRIVMSG #lazybastards :Hello!
@@ -347,8 +347,8 @@ This will only be consulted if the coding system in
 This is either a coding system, a cons, a function, or nil.
 
 If a cons, the encoding system for outgoing text is in the car
-and the decoding system for incoming text is in the cdr. The most
+and the decoding system for incoming text is in the cdr.  The most
-interesting use for this is to put `undecided' in the cdr. This
+interesting use for this is to put `undecided' in the cdr.  This
 means that `erc-coding-system-precedence' will be consulted, and the
 first match there will be used.
 
@@ -795,7 +795,7 @@ Use DISPLAY-FN to show the results."
 (defun erc-server-send (string &optional forcep target)
   "Send STRING to the current server.
 If FORCEP is non-nil, no flood protection is done - the string is
-sent directly. This might cause the messages to arrive in a wrong
+sent directly.  This might cause the messages to arrive in a wrong
 order.
 
 If TARGET is specified, look up encoding information for that
@@ -903,7 +903,7 @@ protection algorithm."
   "Send LINE to the server as a privmsg or a notice.
 MESSAGE-COMMAND should be either \"PRIVMSG\" or \"NOTICE\".
 If the target is \",\", the last person you've got a message from will
-be used. If the target is \".\", the last person you've sent a message
+be used.  If the target is \".\", the last person you've sent a message
 to will be used."
   (cond
    ((string-match "^\\s-*\\(\\S-+\\) ?\\(.*\\)" line)

lisp/erc/erc-button.el

@@ -71,7 +71,7 @@
   "Face used for highlighting buttons in ERC buffers.
 
 A button is a piece of text that you can activate by pressing
-`RET' or `mouse-2' above it. See also `erc-button-keymap'."
+`RET' or `mouse-2' above it.  See also `erc-button-keymap'."
   :type 'face
   :group 'erc-faces)
 
@@ -169,10 +169,10 @@ REGEXP is the string matching text around the button or a symbol
   current server.
 
 BUTTON is the number of the regexp grouping actually matching the
-  button,  This is ignored if REGEXP is \\='nicknames.
+  button.  This is ignored if REGEXP is \\='nicknames.
 
 FORM is a lisp expression which must eval to true for the button to
-  be added,
+  be added.
 
 CALLBACK is the function to call when the user push this button.
   CALLBACK can also be a symbol.  Its variable value will be used
@@ -459,7 +459,7 @@ For use on `completion-at-point-functions'."
       t)))
 
 (defun erc-browse-emacswiki (thing)
-  "Browse to thing in the emacs-wiki."
+  "Browse to THING in the emacs-wiki."
   (browse-url (concat erc-emacswiki-url thing)))
 
 (defun erc-browse-emacswiki-lisp (thing)

lisp/erc/erc-ezbounce.el

@@ -28,7 +28,7 @@
 (require 'erc)
 
 (defgroup erc-ezbounce nil
-  "Interface to the EZBounce IRC bouncer (a virtual IRC server)"
+  "Interface to the EZBounce IRC bouncer (a virtual IRC server)."
   :group 'erc)
 
 (defcustom erc-ezb-regexp "^ezbounce!srv$"
@@ -77,7 +77,7 @@ The alist's format is as follows:
 ;;;###autoload
 (defun erc-ezb-get-login (server port)
   "Return an appropriate EZBounce login for SERVER and PORT.
-Look up entries in `erc-ezb-login-alist'. If the username or password
+Look up entries in `erc-ezb-login-alist'.  If the username or password
 in the alist is nil, prompt for the appropriate values."
   (let ((login (cdr (assoc (cons server port) erc-ezb-login-alist))))
     (when login

lisp/erc/erc-fill.el

@@ -109,7 +109,7 @@ nick names right and text left."
 
 (defcustom erc-fill-variable-maximum-indentation 17
   "If we indent a line after a long nick, don't indent more then this
-characters. Set to nil to disable."
+characters.  Set to nil to disable."
   :group 'erc-fill
   :type 'integer)
 

lisp/erc/erc-log.el

@@ -340,7 +340,7 @@ filename is downcased."
   "Return the logfile to use for BUFFER.
 If BUFFER is nil, the value of `current-buffer' is used.
 This is determined by `erc-generate-log-file-name-function'.
-The result is converted to lowercase, as IRC is case-insensitive"
+The result is converted to lowercase, as IRC is case-insensitive."
   (unless buffer (setq buffer (current-buffer)))
   (with-current-buffer buffer
     (let ((target (or (buffer-name buffer) (erc-default-target)))

lisp/erc/erc-match.el

@@ -199,8 +199,8 @@ When `away', log messages only when away."
 
 (defcustom erc-log-match-format "%t<%n:%c> %m"
   "Format for matched Messages.
-This variable specifies how messages in the corresponding log buffers will
+This variable specifies how messages in the corresponding log buffers
-be formatted. The various format specs are:
+will be formatted.  The various format specs are:
 
 %t Timestamp (uses `erc-timestamp-format' if non-nil or \"[%Y-%m-%d %H:%M] \")
 %n Nickname of sender
@@ -227,7 +227,7 @@ for beeping to work."
   "Hook run when text matches a given match-type.
 Functions in this hook are passed as arguments:
 \(match-type nick!user@host message) where MATCH-TYPE is a symbol of:
-current-nick, keyword, pal, dangerous-host, fool"
+current-nick, keyword, pal, dangerous-host, fool."
   :options '(erc-log-matches erc-hide-fools erc-beep-on-match)
   :group 'erc-match
   :type 'hook)

lisp/erc/erc-netsplit.el

@@ -33,9 +33,9 @@
 (require 'erc)
 
 (defgroup erc-netsplit nil
-  "Netsplit detection tries to automatically figure when a
+  "Netsplit detection tries to automatically figure when a netsplit
-netsplit happens, and filters the QUIT messages. It also keeps
+happens, and filters the QUIT messages.  It also keeps track of
-track of netsplits, so that it can filter the JOIN messages on a netjoin too."
+netsplits, so that it can filter the JOIN messages on a netjoin too."
   :group 'erc)
 
 ;;;###autoload(autoload 'erc-netsplit-mode "erc-netsplit")
@@ -57,8 +57,7 @@ track of netsplits, so that it can filter the JOIN messages on a netjoin too."
   :type 'boolean)
 
 (defcustom erc-netsplit-debug nil
-  "If non-nil, debug messages will be shown in the
+  "If non-nil, debug messages will be shown in the sever buffer."
-sever buffer."
   :group 'erc-netsplit
   :type 'boolean)
 

lisp/erc/erc-networks.el

@@ -436,10 +436,11 @@
   ("ZiRC: Random server" ZiRC "irc.zirc.org" ((6660 6669)))
   ("ZUHnet: Random server" ZUHnet "irc.zuh.net" 6667)
   ("Zurna: Random server" Zurna "irc.zurna.net" 6667))
-  "Alist of irc servers. (NAME NET HOST PORTS) where
+  "Alist of irc servers.
+Each server is a list (NAME NET HOST PORTS) where
 NAME is a name for that server,
-NET is a symbol indicating to which network from `erc-networks-alist' this
+NET is a symbol indicating to which network from `erc-networks-alist'
-  server corresponds,
+  this server corresponds,
 HOST is the servers hostname and
 PORTS is either a number, a list of numbers, or a list of port ranges."
   :group 'erc-networks
@@ -706,12 +707,13 @@ PORTS is either a number, a list of numbers, or a list of port ranges."
     (ZiRC "zirc.org")
     (ZUHnet "zuh.net")
     (Zurna "zurna.net"))
-  "Alist of IRC networks. (NET MATCHER) where
+  "Alist of IRC networks.
+Each network is a list (NET MATCHER) where
 NET is a symbol naming that IRC network and
-MATCHER is used to find a corresponding network to a server while connected to
+MATCHER is used to find a corresponding network to a server while
-  it. If it is regexp, it's used to match against `erc-server-announced-name'.
+  connected to it.  If it is regexp, it's used to match against
-  It can also be a function (predicate). Then it is executed with the
+  `erc-server-announced-name'.  It can also be a function (predicate).
-  server buffer as current-buffer."
+  Then it is executed with the server buffer as current-buffer."
   :group 'erc-networks
   :type '(repeat
 	  (list :tag "Network"
@@ -749,8 +751,8 @@ search for a match in `erc-networks-alist'."
   (erc-with-server-buffer erc-network))
 
 (defun erc-current-network ()
-  "Deprecated.  Use `erc-network' instead.  Return the name of this server's
+  "Deprecated.  Use `erc-network' instead.
-network as a symbol."
+Return the name of this server's network as a symbol."
   (erc-with-server-buffer
     (intern (downcase (symbol-name erc-network)))))
 

lisp/erc/erc-ring.el

@@ -59,7 +59,7 @@ be recalled using M-p and M-n."
 (defvar erc-input-ring-index nil
   "Position in the input ring for erc.
 If nil, the input line is blank and the user is conceptually after
-the most recently added item in the ring. If an integer, the input
+the most recently added item in the ring.  If an integer, the input
 line is non-blank and displays the item from the ring indexed by this
 variable.")
 (make-variable-buffer-local 'erc-input-ring-index)

lisp/erc/erc-speedbar.el

@@ -42,7 +42,7 @@
 ;;; Customization:
 
 (defgroup erc-speedbar nil
-  "Integration of ERC in the Speedbar"
+  "Integration of ERC in the Speedbar."
   :group 'erc)
 
 (defcustom erc-speedbar-sort-users-type 'activity
@@ -270,8 +270,8 @@ INDENT is the current indentation level."
        indent))))
 
 (defun erc-speedbar-update-channel (buffer)
-  "Update the speedbar information about a ERC buffer. The update
+  "Update the speedbar information about a ERC buffer.
-is only done when the channel is actually expanded already."
+The update is only done when the channel is actually expanded already."
   ;; This is only a rude hack and doesn't care about multiserver usage
   ;; yet, consider this a brain storming, better ideas?
   (with-current-buffer speedbar-buffer

lisp/erc/erc-stamp.el

@@ -212,7 +212,7 @@ This is used when `erc-insert-timestamp-function' is set to
   "Insert timestamp only if its value changed since last insertion.
 If `erc-insert-timestamp-function' is `erc-insert-timestamp-left', a
 string of spaces which is the same size as the timestamp is added to
-the beginning of the line in its place. If you use
+the beginning of the line in its place.  If you use
 `erc-insert-timestamp-right', nothing gets inserted in place of the
 timestamp."
   :group 'erc-stamp

lisp/erc/erc-track.el

@@ -245,7 +245,7 @@ The effect may be disabled by setting this variable to nil."
 (defcustom erc-track-position-in-mode-line 'before-modes
   "Where to show modified channel information in the mode-line.
 
-Setting this variable only has effects in GNU Emacs versions above 21.3.
+Setting this variable only has effect in GNU Emacs versions above 21.3.
 
 Choices are:
 `before-modes' - add to the beginning of `mode-line-modes',
@@ -328,7 +328,7 @@ important."
 
 
 (defun erc-track-remove-from-mode-line ()
-  "Remove `erc-track-modified-channels' from the mode-line"
+  "Remove `erc-track-modified-channels' from the mode-line."
   (when (boundp 'mode-line-modes)
     (setq mode-line-modes
 	  (remove '(t erc-modified-channels-object) mode-line-modes)))
@@ -628,7 +628,7 @@ because the debugger also causes changes to the window-configuration.")
 (defun erc-modified-channels-update (&rest _args)
   "This function updates the information in `erc-modified-channels-alist'
 according to buffer visibility.  It calls
-`erc-modified-channels-display' at the end. This should usually be
+`erc-modified-channels-display' at the end.  This should usually be
 called via `window-configuration-change-hook'.
 ARGS are ignored."
   (interactive)
@@ -864,7 +864,7 @@ is in `erc-mode'."
 
 (defvar erc-track-last-non-erc-buffer nil
   "Stores the name of the last buffer you were in before activating
-`erc-track-switch-buffers'")
+`erc-track-switch-buffers'.")
 
 (defun erc-track-sort-by-activest ()
   "Sort erc-modified-channels-alist by activity.
@@ -889,7 +889,7 @@ higher number than any other face in that list."
     count))
 
 (defun erc-track-sort-by-importance ()
-  "Sort erc-modified-channels-alist by importance.
+  "Sort `erc-modified-channels-alist' by importance.
 That means the position of the face in `erc-track-faces-priority-list'."
   (setq erc-modified-channels-alist
 	(sort erc-modified-channels-alist
@@ -898,8 +898,8 @@ That means the position of the face in `erc-track-faces-priority-list'."
 
 (defun erc-track-get-active-buffer (arg)
   "Return the buffer name of ARG in `erc-modified-channels-alist'.
-Negative arguments index in the opposite direction.  This direction is
+Negative arguments index in the opposite direction.  This direction
-relative to `erc-track-switch-direction'"
+is relative to `erc-track-switch-direction'."
   (let ((dir erc-track-switch-direction)
 	offset)
     (when (< arg 0)

lisp/erc/erc.el

@@ -558,7 +558,7 @@ of the list is of the form (USER . CHANNEL-DATA), where USER is
 an erc-server-user struct, and CHANNEL-DATA is either nil or an
 erc-channel-user struct.
 
-See also: `erc-sort-channel-users-by-activity'"
+See also: `erc-sort-channel-users-by-activity'."
   (let (users)
     (if (hash-table-p erc-channel-users)
         (maphash (lambda (_nick cdata)
@@ -739,7 +739,7 @@ See also: `erc-echo-notice-always-hook',
 `erc-echo-notice-in-active-buffer',
 `erc-echo-notice-in-user-buffers',
 `erc-echo-notice-in-user-and-target-buffers',
-`erc-echo-notice-in-first-user-buffer'"
+`erc-echo-notice-in-first-user-buffer'."
   :group 'erc-hooks
   :type 'hook
   :options '(erc-echo-notice-in-default-buffer
@@ -770,7 +770,7 @@ See also: `erc-echo-notice-hook',
 `erc-echo-notice-in-active-buffer',
 `erc-echo-notice-in-user-buffers',
 `erc-echo-notice-in-user-and-target-buffers',
-`erc-echo-notice-in-first-user-buffer'"
+`erc-echo-notice-in-first-user-buffer'."
   :group 'erc-hooks
   :type 'hook
   :options '(erc-echo-notice-in-default-buffer
@@ -4194,7 +4194,7 @@ Only happens when the session buffer isn't visible."
 Specifically in relation to NICK (user@host) information.  Returns REASON
 unmodified if nothing can be removed.
 E.g. \"Read error to Nick [user@some.host]: 110\" would be shortened to
-\"Read error: 110\". The same applies for \"Ping Timeout\"."
+\"Read error: 110\".  The same applies for \"Ping Timeout\"."
   (setq nick (regexp-quote nick)
         login (regexp-quote login)
         host (regexp-quote host))
@@ -4337,7 +4337,7 @@ See also `erc-format-nick-function'."
 
 (defun erc-format-@nick (&optional user _channel-data)
   "Format the nickname of USER showing if USER has a voice, is an
-operator, half-op, admin or owner. Owners have \"~\", admins have
+operator, half-op, admin or owner.  Owners have \"~\", admins have
 \"&\", operators have \"@\" and users with voice have \"+\" as a
 prefix.  Use CHANNEL-DATA to determine op and voice status.  See
 also `erc-format-nick-function'."

lisp/ffap.el

@@ -950,7 +950,7 @@ appending SUFFIX.")
 
 (defun ffap-latex-mode (name)
   "`ffap' function suitable for latex buffers.
-This uses the program kpsewhich if available. In this case, the
+This uses the program kpsewhich if available.  In this case, the
 variable `ffap-latex-guess-rules' is used for building a filename
 out of NAME."
   (cond ((file-exists-p name)

lisp/files.el

@@ -2132,9 +2132,9 @@ think it does, because \"free\" is pretty hard to define in practice."
   "If file SIZE larger than `large-file-warning-threshold', allow user to abort.
 OP-TYPE specifies the file operation being performed (for message
 to user).  If OFFER-RAW is true, give user the additional option
-to open the file literally. If the user chooses this option,
+to open the file literally.  If the user chooses this option,
-`abort-if-file-too-large' returns the symbol `raw'. Otherwise, it
+`abort-if-file-too-large' returns the symbol `raw'.  Otherwise,
-returns nil or exits non-locally."
+it returns nil or exits non-locally."
   (let ((choice (and large-file-warning-threshold size
 	             (> size large-file-warning-threshold)
                      ;; No point in warning if we can't read it.
@@ -4177,8 +4177,8 @@ This function returns either:
 NODE is assumed to be a cons cell where the car is either a
 string or a symbol representing a mode name.
 
-If it is a mode then the the depth of the mode (ie, how many
+If it is a mode then the depth of the mode (ie, how many parents
-parents that mode has) will be returned.
+that mode has) will be returned.
 
 If it is a string then the length of the string plus 1000 will be
 returned.
@@ -5934,7 +5934,7 @@ This returns non-nil if the current buffer is visiting a readable file
 whose modification time does not match that of the buffer.
 
 This function only handles buffers that are visiting files.
-Non-file buffers need a custom function"
+Non-file buffers need a custom function."
   (and buffer-file-name
        (file-readable-p buffer-file-name)
        (not (buffer-modified-p (current-buffer)))

lisp/filesets.el

@@ -545,8 +545,8 @@ computer environments."
 (defcustom filesets-tree-max-level 3
   "Maximum scan depth for directory trees.
 A :tree fileset is defined by a base directory the contents of which
-will be recursively added to the menu.  `filesets-tree-max-level' tells up
+will be recursively added to the menu.  `filesets-tree-max-level' tells
-to which level the directory structure should be scanned/listed,
+up to which level the directory structure should be scanned/listed,
 i.e. how deep the menu should be.  Try something like
 
 	(\"HOME -- only one level\"
@@ -966,11 +966,11 @@ Example definition:
 `filesets-data' is a list of (NAME-AS-STRING . DEFINITION), DEFINITION
 being an association list with the fields:
 
-:files FILE-1 .. FILE-N ... a list of files belonging to a fileset
+:files FILE-1 .. FILE-N ... a list of files belonging to a fileset.
 
 :ingroup FILE-NAME ... an inclusion group's base file.
 
-:tree ROOT-DIR PATTERN ... a base directory and a file pattern
+:tree ROOT-DIR PATTERN ... a base directory and a file pattern.
 
 :pattern DIR PATTERN ... a base directory and a regexp matching
                          files in that directory.  Usually,
@@ -981,17 +981,17 @@ being an association list with the fields:
 :filter-dirs-flag BOOLEAN ... is only used in conjunction with :tree.
 
 :tree-max-level INTEGER ... recurse into directories this many levels
-\(see `filesets-tree-max-level' for a full explanation)
+\(see `filesets-tree-max-level' for a full explanation).
 
 :dormant-flag BOOLEAN ... non-nil means don't show this item in the
 menu; dormant filesets can still be manipulated via commands available
 from the minibuffer -- e.g. `filesets-open', `filesets-close', or
-`filesets-run-cmd'
+`filesets-run-cmd'.
 
-:dormant-p FUNCTION ... a function returning :dormant-flag
+:dormant-p FUNCTION ... a function returning :dormant-flag.
 
 :open FUNCTION ... the function used to open file belonging to this
-fileset.  The function takes a file name as argument
+fileset.  The function takes a file name as argument.
 
 :save FUNCTION ... the function used to save file belonging to this
 fileset; it takes no arguments, but works on the current buffer.
@@ -1003,7 +1003,8 @@ optional.
 
 In conjunction with the :tree tag, :save is void.  :open refers to the
 function used for opening files in a directory, not for opening the
-directory.  For browsing directories, `filesets-browse-dir-function' is used.
+directory.  For browsing directories, `filesets-browse-dir-function'
+is used.
 
 Before using :ingroup, make sure that the file type is already
 defined in `filesets-ingroup-patterns'."
@@ -2440,10 +2441,10 @@ fileset thinks this is necessary or not."
 "Filesets: manual editing of user data required!
 
 Filesets has detected that you were using an older version before,
-which requires some manual updating. Type `y' for editing the startup
+which requires some manual updating.  Type `y' for editing the startup
 file now.
 
-The layout of `filesets-data' has changed. Please delete your cache file
+The layout of `filesets-data' has changed.  Please delete your cache file
 and edit your startup file as shown below:
 
 1. `filesets-data': Edit all :pattern filesets in your startup file and

lisp/gnus/gnus-agent.el

@@ -1739,9 +1739,9 @@ the article files."
 (defun gnus-agent-flush-cache ()
   "Flush the agent's index files such that the group no longer
 appears to have any local content.  The actual content, the
-article files, is then deleted using gnus-agent-expire-group. The
+article files, is then deleted using gnus-agent-expire-group.
-gnus-agent-regenerate-group method provides an undo mechanism by
+The gnus-agent-regenerate-group method provides an undo mechanism
-reconstructing the index files from the article files."
+by reconstructing the index files from the article files."
   (interactive)
   (save-excursion
     (let ((file-name-coding-system nnmail-pathname-coding-system))

lisp/gnus/gnus-art.el

@@ -1594,7 +1594,7 @@ predicate.  See Info node `(gnus)Customizing Articles'."
 ;; gnus-article-encrypt-protocol-alist.
 (defcustom gnus-article-encrypt-protocol "PGP"
   "The protocol used for encrypt articles.
-It is a string, such as \"PGP\". If nil, ask user."
+It is a string, such as \"PGP\".  If nil, ask user."
   :version "22.1"
   :type 'string
   :group 'mime-security)
@@ -7374,7 +7374,7 @@ man page."
 Strings like this can be either a message ID or a mail address.  If it is one
 of the symbols `mid' or `mail', Gnus will always assume that the string is a
 message ID or a mail address, respectively.  If this variable is set to the
-symbol `ask', always query the user what do do.  If it is a function, this
+symbol `ask', always query the user what to do.  If it is a function, this
 function will be called with the string as its only argument.  The function
 must return `mid', `mail', `invalid' or `ask'."
   :version "22.1"

lisp/gnus/gnus-cus.el

@@ -190,7 +190,7 @@ Which articles to display on entering the group.
      unread and ticked articles.
 
 `Other'
-     Display the articles that satisfy the S-expression. The S-expression
+     Display the articles that satisfy the S-expression.  The S-expression
      should be in an array form.")
 
     (comment (string :tag  "Comment") "\

lisp/gnus/gnus-demon.el

@@ -44,7 +44,7 @@ Each handler is a list on the form
 
 FUNCTION is the function to be called.  TIME is the number of
 `gnus-demon-timestep's between each call.
-If nil, never call. If t, call each `gnus-demon-timestep'.
+If nil, never call.  If t, call each `gnus-demon-timestep'.
 
 If IDLE is t, only call each time Emacs has been idle for TIME.
 If IDLE is a number, only call when Emacs has been idle more than
@@ -98,8 +98,8 @@ Emacs has been idle for IDLE `gnus-demon-timestep's."
 (defun gnus-demon-run-callback (func &optional idle time special)
   "Run FUNC if Emacs has been idle for longer than IDLE seconds.
 If not, and a TIME is given, restart a new idle timer, so FUNC
-can be called at the next opportunity. Such a special idle run is
+can be called at the next opportunity.  Such a special idle run
-marked with SPECIAL."
+is marked with SPECIAL."
   (unless gnus-inhibit-demon
     (cl-block run-callback
       (when (eq idle t)

lisp/gnus/gnus-dired.el

@@ -209,11 +209,11 @@ If ARG is non-nil, open it in a new buffer."
 (defun gnus-dired-print (&optional file-name print-to)
   "In dired, print FILE-NAME according to the mailcap file.
 
-If there is no print command, print in a PostScript image. If the
+If there is no print command, print in a PostScript image.  If the
-optional argument PRINT-TO is nil, send the image to the printer. If
+optional argument PRINT-TO is nil, send the image to the printer.
-PRINT-TO is a string, save the PostScript image in a file with that
+If PRINT-TO is a string, save the PostScript image in a file with
-name.  If PRINT-TO is a number, prompt the user for the name of the
+that name.  If PRINT-TO is a number, prompt the user for the name
-file to save in."
+of the file to save in."
   (interactive (list
 		(file-name-sans-versions (dired-get-filename) t)
 		(ps-print-preprint current-prefix-arg)))

lisp/gnus/gnus-icalendar.el

@@ -250,10 +250,11 @@
   "Parse RFC5545 iCalendar in buffer BUF and return an event object.
 
 Return a gnus-icalendar-event object representing the first event
-contained in the invitation. Return nil for calendars without an event entry.
+contained in the invitation.  Return nil for calendars without an
+event entry.
 
 ATTENDEE-NAME-OR-EMAIL is a list of strings that will be matched
-against the event's attendee names and emails. Invitation rsvp
+against the event's attendee names and emails.  Invitation rsvp
 status will be retrieved from the first matching attendee record."
   (let ((ical (with-current-buffer (icalendar--get-unfolded-buffer (get-buffer buf))
                 (goto-char (point-min))

lisp/gnus/gnus-range.el

@@ -28,7 +28,7 @@
 
 (defsubst gnus-range-normalize (range)
   "Normalize RANGE.
-If RANGE is a single range, return (RANGE). Otherwise, return RANGE."
+If RANGE is a single range, return (RANGE).  Otherwise, return RANGE."
   (if (listp (cdr-safe range)) range (list range)))
 
 (defun gnus-last-element (list)

lisp/gnus/gnus-spec.el

@@ -344,8 +344,8 @@ Return a list of updated types."
 
 (defun gnus-pad-form (el pad-width)
   "Return a form that pads EL to PAD-WIDTH accounting for multi-column
-characters correctly. This is because `format' may pad to columns or to
+characters correctly.  This is because `format' may pad to columns
-characters when given a pad value."
+or to characters when given a pad value."
   (let ((pad (abs pad-width))
 	(side (< 0 pad-width)))
     (if (symbolp el)

lisp/gnus/gnus-srvr.el

@@ -190,14 +190,14 @@ If nil, a faster, but more primitive, buffer is used instead."
   '((((class color) (background light)) (:foreground "PaleTurquoise" :bold t))
     (((class color) (background dark)) (:foreground "PaleTurquoise" :bold t))
     (t (:bold t)))
-  "Face used for displaying AGENTIZED servers"
+  "Face used for displaying AGENTIZED servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-cloud
   '((((class color) (background light)) (:foreground "ForestGreen" :bold t))
     (((class color) (background dark)) (:foreground "PaleGreen" :bold t))
     (t (:bold t)))
-  "Face used for displaying Cloud-synced servers"
+  "Face used for displaying Cloud-synced servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-cloud-host
@@ -211,7 +211,7 @@ If nil, a faster, but more primitive, buffer is used instead."
   '((((class color) (background light)) (:foreground "Green3" :bold t))
     (((class color) (background dark)) (:foreground "Green1" :bold t))
     (t (:bold t)))
-  "Face used for displaying OPENED servers"
+  "Face used for displaying OPENED servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-closed
@@ -219,21 +219,21 @@ If nil, a faster, but more primitive, buffer is used instead."
     (((class color) (background dark))
      (:foreground "LightBlue" :italic t))
     (t (:italic t)))
-  "Face used for displaying CLOSED servers"
+  "Face used for displaying CLOSED servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-denied
   '((((class color) (background light)) (:foreground "Red" :bold t))
     (((class color) (background dark)) (:foreground "Pink" :bold t))
     (t (:inverse-video t :bold t)))
-  "Face used for displaying DENIED servers"
+  "Face used for displaying DENIED servers."
   :group 'gnus-server-visual)
 
 (defface gnus-server-offline
   '((((class color) (background light)) (:foreground "Orange" :bold t))
     (((class color) (background dark)) (:foreground "Yellow" :bold t))
     (t (:inverse-video t :bold t)))
-  "Face used for displaying OFFLINE servers"
+  "Face used for displaying OFFLINE servers."
   :group 'gnus-server-visual)
 
 (defvar gnus-server-font-lock-keywords

lisp/gnus/gnus-sum.el

@@ -145,8 +145,8 @@ If t, fetch all the available old headers."
 		 (sexp :menu-tag "other" t)))
 
 (defcustom gnus-refer-thread-use-nnir nil
-  "Use nnir to search an entire server when referring threads. A
+  "Use nnir to search an entire server when referring threads.
-nil value will only search for thread-related articles in the
+A nil value will only search for thread-related articles in the
 current group."
   :version "24.1"
   :group 'gnus-thread
@@ -154,7 +154,7 @@ current group."
 
 (defcustom gnus-refer-thread-limit-to-thread nil
   "If non-nil referring a thread will limit the summary buffer to
-articles in the thread. A nil value will add the thread articles
+articles in the thread.  A nil value will add the thread articles
 to the summary buffer."
   :version "25.1"
   :group 'gnus-thread
@@ -8655,7 +8655,7 @@ SCORE."
 (defun gnus-summary-limit-include-thread (id &optional thread-only)
   "Display all hidden articles belonging to thread ID.
 When called interactively, ID is the Message-ID of the current
-article. If thread-only is non-nil limit the summary buffer to
+article.  If thread-only is non-nil limit the summary buffer to
 these articles."
   (interactive (list (mail-header-id (gnus-summary-article-header))))
   (let ((articles (gnus-articles-in-thread
@@ -9080,14 +9080,14 @@ Return the number of articles fetched."
     result))
 
 (defun gnus-summary-refer-thread (&optional limit)
-  "Fetch all articles in the current thread. For backends that
+  "Fetch all articles in the current thread.  For backends
-know how to search for threads (currently only 'nnimap) a
+that know how to search for threads (currently only 'nnimap)
-non-numeric prefix arg will use nnir to search the entire
+a non-numeric prefix arg will use nnir to search the entire
 server; without a prefix arg only the current group is
-searched. If the variable `gnus-refer-thread-use-nnir' is
+searched.  If the variable `gnus-refer-thread-use-nnir' is
-non-nil the prefix arg has the reverse meaning. If no
+non-nil the prefix arg has the reverse meaning.  If no
 backend-specific 'request-thread function is available fetch
-LIMIT (the numerical prefix) old headers. If LIMIT is
+LIMIT (the numerical prefix) old headers.  If LIMIT is
 non-numeric or nil fetch the number specified by the
 `gnus-refer-thread-limit' variable."
   (interactive "P")
@@ -9647,8 +9647,8 @@ The search stars on the current article and goes forwards unless
 BACKWARD is non-nil.  If BACKWARD is `all', do all articles.
 If UNREAD is non-nil, only unread articles will
 be taken into consideration.  If NOT-CASE-FOLD, case won't be folded
-in the comparisons. If NOT-MATCHING, return a list of all articles that
+in the comparisons.  If NOT-MATCHING, return a list of all articles
-not match REGEXP on HEADER."
+that not match REGEXP on HEADER."
   (let ((case-fold-search (not not-case-fold))
 	articles func)
     (if (consp header)

lisp/gnus/gnus-util.el

@@ -1610,7 +1610,7 @@ empty directories from OLD-PATH."
 
 (defun gnus-rescale-image (image size)
   "Rescale IMAGE to SIZE if possible.
-SIZE is in format (WIDTH . HEIGHT). Return a new image.
+SIZE is in format (WIDTH . HEIGHT).  Return a new image.
 Sizes are in pixels."
   (if (not (fboundp 'imagemagick-types))
       image

lisp/gnus/gnus.el

@@ -2733,15 +2733,15 @@ with some simple extensions.
 %O          Download mark (character).
 %*          If present, indicates desired cursor position
             (instead of after first colon).
-%u          User defined specifier. The next character in the
+%u          User defined specifier.  The next character in the
-            format string should be a letter. Gnus will call the
+            format string should be a letter.  Gnus will call the
             function gnus-user-format-function-X, where X is the
-            letter following %u. The function will be passed the
+            letter following %u.  The function will be passed the
-            current header as argument. The function should
+            current header as argument.  The function should
             return a string, which will be inserted into the
             summary just like information from any other summary
             specifier.
-&user-date; Age sensitive date format. Various date format is
+&user-date; Age sensitive date format.  Various date format is
             defined in `gnus-user-date-format-alist'.
 
 
@@ -4055,10 +4055,10 @@ Allow completion over sensible values."
 ;;;###autoload
 (defun gnus-no-server (&optional arg slave)
   "Read network news.
-If ARG is a positive number, Gnus will use that as the startup
+If ARG is a positive number, Gnus will use that as the startup level.
-level. If ARG is nil, Gnus will be started at level 2.  If ARG is
+If ARG is nil, Gnus will be started at level 2.  If ARG is non-nil
-non-nil and not a positive number, Gnus will prompt the user for the
+and not a positive number, Gnus will prompt the user for the name of
-name of an NNTP server to use.
+an NNTP server to use.
 As opposed to `gnus', this command will not connect to the local
 server."
   (interactive "P")

lisp/gnus/mail-source.el

@@ -286,7 +286,7 @@ number."
   :type 'boolean)
 
 (defcustom mail-source-incoming-file-prefix "Incoming"
-  "Prefix for file name for storing incoming mail"
+  "Prefix for file name for storing incoming mail."
   :group 'mail-source
   :type 'string)
 

lisp/gnus/message.el

@@ -1131,8 +1131,8 @@ If `traditional', reply inline.
 If `above', reply above quoted text.
 If `below', reply below quoted text.
 
-Note: Many newsgroups frown upon nontraditional reply styles. You
+Note: Many newsgroups frown upon nontraditional reply styles.
-probably want to set this variable only for specific groups,
+You probably want to set this variable only for specific groups,
 e.g. using `gnus-posting-styles':
 
   (eval (set (make-local-variable \\='message-cite-reply-position) \\='above))"
@@ -1169,7 +1169,7 @@ use in `gnus-posting-styles', such as:
     (message-yank-cited-prefix  "")
     (message-yank-empty-prefix  "")
     (message-citation-line-format  "\n\n-----------------------\nOn %a, %b %d %Y, %N wrote:\n"))
-  "Message citation style used by MS Outlook. Use with message-cite-style.")
+  "Message citation style used by MS Outlook.  Use with `message-cite-style'.")
 
 (defconst message-cite-style-thunderbird
   '((message-cite-function  'message-cite-original)
@@ -1179,7 +1179,7 @@ use in `gnus-posting-styles', such as:
     (message-yank-cited-prefix  ">")
     (message-yank-empty-prefix  ">")
     (message-citation-line-format "On %D %R %p, %N wrote:"))
-  "Message citation style used by Mozilla Thunderbird. Use with message-cite-style.")
+  "Message citation style used by Mozilla Thunderbird.  Use with `message-cite-style'.")
 
 (defconst message-cite-style-gmail
   '((message-cite-function  'message-cite-original)
@@ -1189,7 +1189,7 @@ use in `gnus-posting-styles', such as:
     (message-yank-cited-prefix  "    ")
     (message-yank-empty-prefix  "    ")
     (message-citation-line-format "On %e %B %Y %R, %f wrote:\n"))
-  "Message citation style used by Gmail. Use with message-cite-style.")
+  "Message citation style used by Gmail.  Use with `message-cite-style'.")
 
 (defcustom message-distribution-function nil
   "Function called to return a Distribution header."
@@ -4511,8 +4511,8 @@ smaller pieces, the size of each is about "
 one.
 
 However, some mail readers (MUA's) can't read split messages, i.e.,
-mails in message/partially format. Answer `n', and the message will be
+mails in message/partially format.  Answer `n', and the message
-sent in one piece.
+will be sent in one piece.
 
 The size limit is controlled by `message-send-mail-partially-limit'.
 If you always want Gnus to send messages in one piece, set

lisp/gnus/mm-extern.el

@@ -144,7 +144,7 @@
   "Show the external-body part of HANDLE.
 This function replaces the buffer of HANDLE with a buffer contains
 the entire message.
-If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
+If NO-DISPLAY is nil, display it.  Otherwise, do nothing after replacing."
   (unless (mm-handle-cache handle)
     (mm-extern-cache-contents handle))
   (unless no-display

lisp/gnus/mm-partial.el

@@ -54,7 +54,7 @@
   "Show the partial part of HANDLE.
 This function replaces the buffer of HANDLE with a buffer contains
 the entire message.
-If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
+If NO-DISPLAY is nil, display it.  Otherwise, do nothing after replacing."
   (let ((id (cdr (assq 'id (cdr (mm-handle-type handle)))))
 	phandles
 	(b (point)) (n 1) total

lisp/gnus/mml-sec.el

@@ -364,7 +364,7 @@ either an error is raised or not."
 
 (defun mml-secure-message-sign (&optional method)
   "Add MML tags to sign the entire message.
-Use METHOD if given. Else use `mml-secure-method' or
+Use METHOD if given.  Else use `mml-secure-method' or
 `mml-default-sign-method'."
   (interactive)
   (mml-secure-message
@@ -373,7 +373,7 @@ Use METHOD if given. Else use `mml-secure-method' or
 
 (defun mml-secure-message-sign-encrypt (&optional method)
   "Add MML tag to sign and encrypt the entire message.
-Use METHOD if given. Else use `mml-secure-method' or
+Use METHOD if given.  Else use `mml-secure-method' or
 `mml-default-sign-method'."
   (interactive)
   (mml-secure-message
@@ -382,7 +382,7 @@ Use METHOD if given. Else use `mml-secure-method' or
 
 (defun mml-secure-message-encrypt (&optional method)
   "Add MML tag to encrypt the entire message.
-Use METHOD if given. Else use `mml-secure-method' or
+Use METHOD if given.  Else use `mml-secure-method' or
 `mml-default-sign-method'."
   (interactive)
   (mml-secure-message

lisp/gnus/mml2015.el

@@ -760,7 +760,7 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
 (autoload 'epa-select-keys "epa")
 
 (defun mml2015-epg-key-image (key-id)
-  "Return the image of a key, if any"
+  "Return the image of a key, if any."
   (with-temp-buffer
     (set-buffer-multibyte nil)
     (let* ((coding-system-for-write 'binary)
@@ -777,7 +777,7 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
 (autoload 'gnus-rescale-image "gnus-util")
 
 (defun mml2015-epg-key-image-to-string (key-id)
-  "Return a string with the image of a key, if any"
+  "Return a string with the image of a key, if any."
   (let ((key-image (mml2015-epg-key-image key-id)))
     (if (not key-image)
 	""

lisp/gnus/nndiary.el

@@ -121,7 +121,7 @@ Diary articles will appear again, as if they'd been just received.
 
 Entries look like (3 . day) which means something like \"Please
 Hortense, would you be so kind as to remind me of my appointments 3 days
-before the date, thank you very much. Anda, hmmm... by the way, are you
+before the date, thank you very much.  Anda, hmmm... by the way, are you
 doing anything special tonight ?\".
 
 The units of measure are 'minute 'hour 'day 'week 'month and 'year (no,
@@ -218,7 +218,7 @@ The hook functions will be called with the article in the current buffer."
 (defvoo nndiary-get-new-mail nil
   "Whether nndiary gets new mail and split it.
 Contrary to traditional mail back ends, this variable can be set to t
-even if your primary mail back end also retrieves mail. In such a case,
+even if your primary mail back end also retrieves mail.  In such a case,
 NDiary uses its own mail-sources and split-methods.")
 
 (defvoo nndiary-nov-is-evil nil

lisp/gnus/nnheader.el

@@ -661,7 +661,7 @@ the line could be found."
 (defvar nnheader-directory-files-is-safe (not (eq system-type 'windows-nt))
   "If non-nil, Gnus believes `directory-files' is safe.
 It has been reported numerous times that `directory-files' fails with
-an alarming frequency on NFS mounted file systems. If it is nil,
+an alarming frequency on NFS mounted file systems.  If it is nil,
 `nnheader-directory-files-safe' is used.")
 
 (defun nnheader-directory-files-safe (&rest args)

lisp/gnus/nnir.el

@@ -189,7 +189,7 @@
   "Internal: stores search result.")
 
 (defvar nnir-search-history ()
-  "Internal: the history for querying search options in nnir")
+  "Internal: the history for querying search options in nnir.")
 
 (defconst nnir-tmp-buffer " *nnir*"
   "Internal: temporary buffer.")
@@ -208,8 +208,8 @@
 
 (defvar nnir-imap-search-other "HEADER %S"
   "The IMAP search item to use for anything other than
-  `nnir-imap-search-arguments'. By default this is the name of an
+`nnir-imap-search-arguments'.  By default this is the name of an
-  email header field")
+email header field.")
 
 (defvar nnir-imap-search-argument-history ()
   "The history for querying search options in nnir")
@@ -219,48 +219,48 @@
 ;; Data type article list.
 
 (defmacro nnir-artlist-length (artlist)
-  "Returns number of articles in artlist."
+  "Return number of articles in artlist."
   `(length ,artlist))
 
 (defmacro nnir-artlist-article (artlist n)
-  "Returns from ARTLIST the Nth artitem (counting starting at 1)."
+  "Return from ARTLIST the Nth artitem (counting starting at 1)."
   `(when (> ,n 0)
      (elt ,artlist (1- ,n))))
 
 (defmacro nnir-artitem-group (artitem)
-  "Returns the group from the ARTITEM."
+  "Return the group from the ARTITEM."
   `(elt ,artitem 0))
 
 (defmacro nnir-artitem-number (artitem)
-  "Returns the number from the ARTITEM."
+  "Return the number from the ARTITEM."
   `(elt ,artitem 1))
 
 (defmacro nnir-artitem-rsv (artitem)
-  "Returns the Retrieval Status Value (RSV, score) from the ARTITEM."
+  "Return the Retrieval Status Value (RSV, score) from the ARTITEM."
   `(elt ,artitem 2))
 
 (defmacro nnir-article-group (article)
-  "Returns the group for ARTICLE"
+  "Return the group for ARTICLE."
   `(nnir-artitem-group (nnir-artlist-article nnir-artlist ,article)))
 
 (defmacro nnir-article-number (article)
-  "Returns the number for ARTICLE"
+  "Return the number for ARTICLE."
   `(nnir-artitem-number (nnir-artlist-article nnir-artlist ,article)))
 
 (defmacro nnir-article-rsv (article)
-  "Returns the rsv for ARTICLE"
+  "Return the rsv for ARTICLE."
   `(nnir-artitem-rsv (nnir-artlist-article nnir-artlist ,article)))
 
 (defsubst nnir-article-ids (article)
-  "Returns the pair `(nnir id . real id)' of ARTICLE"
+  "Return the pair `(nnir id . real id)' of ARTICLE."
   (cons article (nnir-article-number article)))
 
 (defmacro nnir-categorize (sequence keyfunc &optional valuefunc)
-  "Sorts a sequence into categories and returns a list of the form
+  "Sort a sequence into categories and returns a list of the form
 `((key1 (element11 element12)) (key2 (element21 element22))'.
 The category key for a member of the sequence is obtained
 as `(keyfunc member)' and the corresponding element is just
-`member'. If `valuefunc' is non-nil, the element of the list
+`member'.  If `valuefunc' is non-nil, the element of the list
 is `(valuefunc member)'."
   `(unless (null ,sequence)
      (let (value)
@@ -317,7 +317,7 @@ If nil this will use `gnus-summary-line-format'."
 (defcustom nnir-retrieve-headers-override-function nil
   "If non-nil, a function that accepts an article list and group
 and populates the `nntp-server-buffer' with the retrieved
-headers. Must return either 'nov or 'headers indicating the
+headers.  Must return either 'nov or 'headers indicating the
 retrieved header format.
 
 If this variable is nil, or if the provided function returns nil for a search
@@ -327,8 +327,8 @@ result, `gnus-retrieve-headers' will be called instead."
   :group 'nnir)
 
 (defcustom nnir-imap-default-search-key "whole message"
-  "The default IMAP search key for an nnir search. Must be one of
+  "The default IMAP search key for an nnir search.  Must be one of
-  the keys in `nnir-imap-search-arguments'. To use raw imap queries
+  the keys in `nnir-imap-search-arguments'.  To use raw imap queries
   by default set this to \"imap\"."
   :version "24.1"
   :type `(choice ,@(mapcar (lambda (elem) (list 'const (car elem)))
@@ -428,7 +428,7 @@ This could be a server parameter."
 
 (defcustom nnir-hyrex-additional-switches '()
   "A list of strings, to be given as additional arguments for nnir-search.
-Note that this should be a list. I.e., do NOT use the following:
+Note that this should be a list.  I.e., do NOT use the following:
     (setq nnir-hyrex-additional-switches \"-ddl ddl.xml -c nnir\") ; wrong !
 Instead, use this:
     (setq nnir-hyrex-additional-switches \\='(\"-ddl\" \"ddl.xml\" \"-c\" \"nnir\"))"
@@ -600,8 +600,8 @@ the groups to search as follows: if called from the *Server*
 buffer search all groups belonging to the server on the current
 line; if called from the *Group* buffer search any marked groups,
 or the group on the current line, or all the groups under the
-current topic. Calling with a prefix-arg prompts for additional
+current topic.  Calling with a prefix-arg prompts for additional
-search-engine specific constraints. A non-nil `specs' arg must be
+search-engine specific constraints.  A non-nil `specs' arg must be
 an alist with `nnir-query-spec' and `nnir-group-spec' keys, and
 skips all prompting."
   (interactive "P")
@@ -1456,8 +1456,9 @@ Tested with swish-e-2.0.1 on Windows NT 4.0."
 
 ;; Namazu interface
 (defun nnir-run-namazu (query server &optional _group)
-  "Run given query against Namazu.  Returns a vector of (group name, file name)
+  "Run given query against Namazu.
-pairs (also vectors, actually).
+Returns a vector of (group name, file name) pairs (also vectors,
+actually).
 
 Tested with Namazu 2.0.6 on a GNU/Linux system."
   ;; (when group
@@ -1702,12 +1703,12 @@ construct path: search terms (see the variable
     (and group (string-match "^nnir" group))))
 
 (defun nnir-read-parms (nnir-search-engine)
-  "Reads additional search parameters according to `nnir-engines'."
+  "Read additional search parameters according to `nnir-engines'."
   (let ((parmspec (nth 2 (assoc nnir-search-engine nnir-engines))))
     (mapcar #'nnir-read-parm parmspec)))
 
 (defun nnir-read-parm (parmspec)
-  "Reads a single search parameter.
+  "Read a single search parameter.
 `parmspec' is a cons cell, the car is a symbol, the cdr is a prompt."
   (let ((sym (car parmspec))
         (prompt (cdr parmspec)))
@@ -1737,8 +1738,8 @@ construct path: search terms (see the variable
 		  nnir-method-default-engines))))
 
 (defun nnir-read-server-parm (key server &optional not-global)
-  "Returns the parameter value corresponding to `key' for
+  "Return the parameter value corresponding to `key' for `server'.
-`server'. If no server-specific value is found consult the global
+If no server-specific value is found consult the global
 environment unless `not-global' is non-nil."
   (let ((method (gnus-server-to-method server)))
     (cond ((and method (assq key (cddr method)))
@@ -1763,7 +1764,7 @@ environment unless `not-global' is non-nil."
 
 (defun nnir-search-thread (header)
   "Make an nnir group based on the thread containing the article
-header. The current server will be searched. If the registry is
+header.  The current server will be searched. If the registry is
 installed, the server that the registry reports the current
 article came from is also searched."
   (let* ((query

lisp/gnus/nnmairix.el

@@ -381,7 +381,7 @@ wrong count of total articles shown by Gnus.")
 its maildir mail folders (e.g. the Dovecot IMAP server or mutt).")
 
 (defvoo nnmairix-default-group nil
-  "Default search group. This is the group which is used for all
+  "Default search group.  This is the group which is used for all
 temporary searches, e.g. nnmairix-search.")
 
 ;;; === Internal variables
@@ -1096,7 +1096,7 @@ show wrong article counts."
 (defun nnmairix-propagate-marks (&optional server)
   "Propagate marks from nnmairix group to original articles.
 Unless SERVER is explicitly specified, will use the last opened
-nnmairix server. Only marks from current session will be set."
+nnmairix server.  Only marks from current session will be set."
   (interactive)
   (if server
       (nnmairix-open-server server)

lisp/gnus/smime.el

@@ -130,7 +130,7 @@
 
 (defcustom smime-keys nil
   "Map mail addresses to a file containing Certificate (and private key).
-The file is assumed to be in PEM format. You can also associate additional
+The file is assumed to be in PEM format.  You can also associate additional
 certificates to be sent with every message to each address."
   :type '(repeat (list (string :tag "Mail address")
 		       (file :tag "File name")
@@ -197,7 +197,7 @@ against a certificate revocation list (CRL).
 
 For this to work the CRL must be up-to-date and since they are
 normally updated quite often (i.e., several times a day) you
-probably need some tool to keep them up-to-date. Unfortunately
+probably need some tool to keep them up-to-date.  Unfortunately
 Gnus cannot do this for you.
 
 The CRL should either be appended (in PEM format) to your
@@ -435,7 +435,7 @@ in the buffer specified by `smime-details-buffer'."
 
 (defun smime-verify-buffer (&optional buffer)
   "Verify integrity of S/MIME message in BUFFER.
-Uses current buffer if BUFFER is nil. Returns non-nil on success.
+Uses current buffer if BUFFER is nil.  Returns non-nil on success.
 Any details (stdout and stderr) are left in the buffer specified by
 `smime-details-buffer'."
   (interactive)
@@ -445,7 +445,7 @@ Any details (stdout and stderr) are left in the buffer specified by
 (defun smime-noverify-buffer (&optional buffer)
   "Verify integrity of S/MIME message in BUFFER.
 Does NOT verify validity of certificate (only message integrity).
-Uses current buffer if BUFFER is nil. Returns non-nil on success.
+Uses current buffer if BUFFER is nil.  Returns non-nil on success.
 Any details (stdout and stderr) are left in the buffer specified by
 `smime-details-buffer'."
   (interactive)

lisp/gnus/spam-report.el

@@ -318,9 +318,9 @@ symbol `ask', query before flushing the queue file."
 
 ;;;###autoload
 (defun spam-report-url-ping-mm-url (host report)
-  "Ping a host through HTTP, addressing a specific GET resource. Use
+  "Ping a host through HTTP, addressing a specific GET resource.
-the external program specified in `mm-url-program' to connect to
+Use the external program specified in `mm-url-program' to connect
-server."
+to server."
   (with-temp-buffer
     (let ((url (format "http://%s%s" host report)))
       (mm-url-insert url t))))

lisp/gnus/spam.el

@@ -578,12 +578,12 @@ This must be a list.  For example, `(\"-C\" \"configfile\")'."
 
 (defcustom spam-spamassassin-positive-spam-flag-header "YES"
   "The regex on `spam-spamassassin-spam-flag-header' for positive spam
-identification"
+identification."
   :type 'string
   :group 'spam-spamassassin)
 
 (defcustom spam-spamassassin-spam-status-header "X-Spam-Status"
-  "The header inserted by SpamAssassin, giving extended scoring information"
+  "The header inserted by SpamAssassin, giving extended scoring information."
   :type 'string
   :group 'spam-spamassassin)
 
@@ -594,7 +594,7 @@ identification"
   :group 'spam-spamassassin)
 
 (defcustom spam-sa-learn-rebuild t
-  "Whether sa-learn should rebuild the database every time it is called
+  "Whether sa-learn should rebuild the database every time it is called.
 Enable this if you want sa-learn to rebuild the database automatically.  Doing
 this will slightly increase the running time of the spam registration process.
 If you choose not to do this, you will have to run \"sa-learn --rebuild\" in
@@ -767,7 +767,7 @@ When either list is nil, the other is returned."
     nil))
 
 (defun spam-classifications ()
-  "Return list of valid classifications"
+  "Return list of valid classifications."
   '(spam ham))
 
 (defun spam-classification-valid-p (classification)
@@ -2185,7 +2185,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
 (require 'spam-stat)
 
 (defun spam-check-stat ()
-  "Check the spam-stat backend for the classification of this message"
+  "Check the spam-stat backend for the classification of this message."
   (let ((spam-stat-split-fancy-spam-group spam-split-group) ; override
 	(spam-stat-buffer (buffer-name)) ; stat the current buffer
 	category return)
@@ -2609,7 +2609,7 @@ With a non-nil REMOVE, remove the ADDRESSES."
 
 ;; return something sensible if the score can't be determined
 (defun spam-spamassassin-score (&optional recheck)
-  "Get the SpamAssassin score"
+  "Get the SpamAssassin score."
   (interactive "P")
   (save-window-excursion
     (gnus-summary-show-article t)

lisp/help.el

@@ -1022,7 +1022,7 @@ appeared on the mode-line."
   (delq nil (mapcar 'symbol-name minor-mode-list)))
 
 (defun describe-minor-mode-from-symbol (symbol)
-  "Display documentation of a minor mode given as a symbol, SYMBOL"
+  "Display documentation of a minor mode given as a symbol, SYMBOL."
   (interactive (list (intern (completing-read
 			      "Minor mode symbol: "
 			      (describe-minor-mode-completion-table-for-symbol)))))

lisp/hippie-exp.el

@@ -248,7 +248,7 @@ If nil, all buffers are searched."
 (defcustom hippie-expand-ignore-buffers '("^ \\*.*\\*$" dired-mode)
   "A list specifying which buffers not to search (if not current).
 Can contain both regexps matching buffer names (as strings) and major modes
-\(as atoms)"
+\(as atoms)."
   :type '(repeat (choice regexp (symbol :tag "Major Mode")))
   :group 'hippie-expand)
 

lisp/htmlfontify.el

@@ -460,7 +460,7 @@ and so on."
   keep-overlays      : More of a bell (or possibly whistle) than an
                        optimization - If on, preserve overlay highlighting
                        (cf ediff or goo-font-lock) as well as basic faces.\n
-  body-text-only     : Emit only body-text. In concrete terms,
+  body-text-only     : Emit only body-text.  In concrete terms,
                        1. Suppress calls to `hfy-page-header' and
                           `hfy-page-footer'
                        2. Pretend that `div-wrapper' option above is
@@ -1066,7 +1066,7 @@ haven't encountered them yet.  Returns a `hfy-style-assoc'."
 
 (defun hfy-face-resolve-face (fn)
   "For FN return a face specification.
-FN may be either a face or a face specification. If the latter,
+FN may be either a face or a face specification.  If the latter,
 then the specification is returned unchanged."
   (cond
    ((facep fn)
@@ -1593,8 +1593,8 @@ Do not record undo information during evaluation of BODY."
 
 (defun hfy-begin-span (style text-block text-id text-begins-block-p)
   "Default handler to begin a span of text.
-Insert \"<span class=\"STYLE\" ...>\". See
+Insert \"<span class=\"STYLE\" ...>\".
-`hfy-begin-span-handler' for more information."
+See `hfy-begin-span-handler' for more information."
   (when text-begins-block-p
     (insert
      (format "<span onclick=\"toggle_invis('%s');\">…</span>" text-block)))

lisp/ibuf-ext.el

@@ -127,12 +127,12 @@ Buffers whose major mode is in this list, are not searched."
 (defvar ibuffer-auto-buffers-changed nil)
 
 (defun ibuffer-update-saved-filters-format (filters)
-  "Transforms alist from old to new `ibuffer-saved-filters' format.
+  "Transform alist from old to new `ibuffer-saved-filters' format.
 
 Specifically, converts old-format alist with values of the
 form (STRING (FILTER-SPECS...)) to alist with values of the
 form (STRING FILTER-SPECS...), where each filter spec should be a
-cons cell with a symbol in the car. Any elements in the latter
+cons cell with a symbol in the car.  Any elements in the latter
 form are kept as is.
 
 Returns (OLD-FORMAT-DETECTED . UPDATED-SAVED-FILTERS-LIST)."
@@ -178,14 +178,14 @@ Returns (OLD-FORMAT-DETECTED . UPDATED-SAVED-FILTERS-LIST)."
 
 Each element should look like (\"NAME\" . FILTER-LIST), where
 FILTER-LIST has the same structure as the variable
-`ibuffer-filtering-qualifiers', which see. The filters defined
+`ibuffer-filtering-qualifiers', which see.  The filters defined
 here are joined with an implicit logical `and' and associated
-with NAME. The combined specification can be used by name in
+with NAME.  The combined specification can be used by name in
 other filter specifications via the `saved' qualifier (again, see
 `ibuffer-filtering-qualifiers'). They can also be switched to by
 name (see the functions `ibuffer-switch-to-saved-filters' and
-`ibuffer-save-filters'). The variable `ibuffer-save-with-custom'
+`ibuffer-save-filters').  The variable `ibuffer-save-with-custom'
-affects how this information is saved for future sessions. This
+affects how this information is saved for future sessions.  This
 variable can be set directly from lisp code."
   :version "26.1"
   :type '(alist :key-type (string :tag "Filter name")
@@ -213,14 +213,14 @@ either clicking or hitting return "
                        (customize-save-variable 'ibuffer-saved-filters
                                                 ibuffer-saved-filters)
                        (message "Saved updated ibuffer-saved-filters."))))
-          ". See below for
+          ".  See below for
 an explanation and alternative ways to save the repaired value.
 
 Explanation: For the list variable `ibuffer-saved-filters',
 elements of the form (STRING (FILTER-SPECS...)) are deprecated
 and should instead have the form (STRING FILTER-SPECS...), where
-each filter spec is a cons cell with a symbol in the car. See
+each filter spec is a cons cell with a symbol in the car.  See
-`ibuffer-saved-filters' for details. The repaired value fixes
+`ibuffer-saved-filters' for details.  The repaired value fixes
 this format without changing the meaning of the saved filters.
 
 Alternative ways to save the repaired value:
@@ -238,7 +238,7 @@ Alternative ways to save the repaired value:
   "A list specifying the filters currently acting on the buffer list.
 
 If this list is nil, then no filters are currently in
-effect. Otherwise, each element of this list specifies a single
+effect.  Otherwise, each element of this list specifies a single
 filter, and all of the specified filters in the list are applied
 successively to the buffer list.
 
@@ -273,7 +273,7 @@ A compound filter specification can have one of four forms:
 -- (saved . \"NAME\")
 
    Represents the filter saved under the string NAME
-   in the alist `ibuffer-saved-filters'. It is an
+   in the alist `ibuffer-saved-filters'.  It is an
    error to name a filter that has not been saved.
 
 This variable is local to each ibuffer buffer.")
@@ -363,12 +363,12 @@ Currently, this only applies to `ibuffer-saved-filters' and
   :group 'ibuffer)
 
 (defun ibuffer-repair-saved-filters ()
-  "Updates `ibuffer-saved-filters' to its new-style format, if needed.
+  "Update `ibuffer-saved-filters' to its new-style format, if needed.
 
 If this list has any elements of the old-style format, a
 deprecation warning is raised, with a button allowing persistent
-update. Any updated filters retain their meaning in the new
+update.  Any updated filters retain their meaning in the new
-format. See `ibuffer-update-saved-filters-format' and
+format.  See `ibuffer-update-saved-filters-format' and
 `ibuffer-saved-filters' for details of the old and new formats."
   (interactive)
   (when (and (boundp 'ibuffer-saved-filters) ibuffer-saved-filters)
@@ -560,8 +560,8 @@ format. See `ibuffer-update-saved-filters-format' and
 ;;;###autoload (autoload 'ibuffer-do-eval "ibuf-ext")
 (define-ibuffer-op eval (form)
   "Evaluate FORM in each of the buffers.
-Does not display the buffer during evaluation. See
+Does not display the buffer during evaluation.
-`ibuffer-do-view-and-eval' for that."
+See `ibuffer-do-view-and-eval' for that."
   (:interactive
    (list
     (read-from-minibuffer
@@ -697,10 +697,10 @@ specifications with the same structure as
                  filters))))
 
 (defun ibuffer-unary-operand (filter)
-  "Extracts operand from a unary compound FILTER specification.
+  "Extract operand from a unary compound FILTER specification.
 
 FILTER should be a cons cell of either form (f . d) or (f d),
-where operand d is itself a cons cell, or nil. Returns d."
+where operand d is itself a cons cell, or nil.  Returns d."
   (let* ((tail (cdr filter))
          (maybe-q (car-safe tail)))
     (if (consp maybe-q) maybe-q tail)))
@@ -1337,7 +1337,7 @@ matches against 'c.d'."
     "Limit current view to buffers with filename extension matching QUALIFIER.
 
 The separator character (typically `.') is not part of the
-pattern. For example, for a buffer associated with file
+pattern.  For example, for a buffer associated with file
 '/a/b/c.d', this matches against 'd'."
   (:description "filename extension"
    :reader (read-from-minibuffer
@@ -1350,7 +1350,7 @@ pattern. For example, for a buffer associated with file
     "Limit current view to buffers with directory matching QUALIFIER.
 
 For a buffer associated with file '/a/b/c.d', this matches
-against '/a/b'. For a buffer not associated with a file, this
+against '/a/b'.  For a buffer not associated with a file, this
 matches against the value of `default-directory' in that buffer."
   (:description "directory name"
    :reader (read-from-minibuffer "Filter by directory name (regex): "))

lisp/image-dired.el

@@ -298,7 +298,7 @@ with the information required by the Thumbnail Managing Standard."
   "Arguments for `image-dired-cmd-pngcrush-program'.
 Available format specifiers are the same as in
 `image-dired-cmd-create-thumbnail-options', with %q for a
-temporary file name (typically generated by pnqnq)"
+temporary file name (typically generated by pnqnq)."
   :version "26.1"
   :type '(repeat (string :tag "Argument"))
   :group 'image-dired)

lisp/image-mode.el

@@ -809,7 +809,7 @@ was inserted."
 
 If the current buffer is displaying an image file as an image,
 call `image-mode-as-text' to switch to text or hex display.
-Otherwise, display the image by calling `image-mode'"
+Otherwise, display the image by calling `image-mode'."
   (interactive)
   (if (image-get-display-property)
       (image-mode-as-text)

lisp/international/ccl.el

@@ -813,7 +813,7 @@ is a list of CCL-BLOCKs."
   t)
 
 (defun ccl-compile-read-multibyte-character (cmd)
-  "Compile read-multibyte-character"
+  "Compile read-multibyte-character."
   (if (/= (length cmd) 3)
       (error "CCL: Invalid number of arguments: %s" cmd))
   (let ((RRR (nth 1 cmd))
@@ -824,7 +824,7 @@ is a list of CCL-BLOCKs."
   nil)
 
 (defun ccl-compile-write-multibyte-character (cmd)
-  "Compile write-multibyte-character"
+  "Compile write-multibyte-character."
   (if (/= (length cmd) 3)
       (error "CCL: Invalid number of arguments: %s" cmd))
   (let ((RRR (nth 1 cmd))

lisp/international/kkc.el

@@ -59,7 +59,7 @@ This string is shown at mode line when users are in KKC mode.")
 (defconst kkc-lookup-cache-tag 'kkc-lookup-cache-2)
 
 (defun kkc-save-init-file ()
-  "Save initial setup code for KKC to a file specified by `kkc-init-file-name'"
+  "Save initial setup code for KKC to a file specified by `kkc-init-file-name'."
   (if (and kkc-init-file-flag
 	   (not (eq kkc-init-file-flag t)))
       (let ((coding-system-for-write 'iso-2022-7bit)

lisp/international/latin1-disp.el

@@ -97,7 +97,7 @@ use either \\[customize] or the function `latin1-display'."
   "Set up Latin-1/ASCII display for the arguments character SETS.
 See option `latin1-display' for the method.  The members of the list
 must be in `latin1-display-sets'.  With no arguments, reset the
-display for all of `latin1-display-sets'. See also
+display for all of `latin1-display-sets'.  See also
 `latin1-display-setup'."
   (if sets
       (progn

lisp/international/ogonek.el

@@ -62,8 +62,8 @@
                      136 141 171 184 196 151 230 144 253))
  )
   "The constant `ogonek-name-encoding-alist' is a list of (NAME.LIST) pairs.
-Each LIST contains codes for 18 Polish diacritic characters. The codes
+Each LIST contains codes for 18 Polish diacritic characters.
-are given in the following order:
+The codes are given in the following order:
   Aogonek Cacute Eogonek Lslash Nacute Oacute Sacute Zacute Zdotaccent
   aogonek cacute eogonek lslash nacute oacute sacute zacute zdotaccent.")
 
@@ -173,7 +173,7 @@ znak/ow diakrytycznych. Funkcje te mo/zna pogrupowa/c nast/epuj/aco.
   "  THE INTERACTIVE FUNCTIONS PROVIDED BY THE LIBRARY `ogonek'.
 
 If you read this text then you are either looking at the library's
-source text or you have called the `ogonek-how' command. In the
+source text or you have called the `ogonek-how' command.  In the
 latter case you may remove this text using `\\[kill-buffer]'.
 
 The library provides functions for changing the encoding of Polish
@@ -182,13 +182,13 @@ The functions come in the following groups.
 
  1. `ogonek-recode-region' and `ogonek-recode-buffer' to change
     between one-character encodings, such as `iso-8859-2', `mazovia',
-    plain `ascii' or `TeX'. As the names suggest you may recode
+    plain `ascii' or `TeX'.  As the names suggest you may recode
     either the entire current buffer or just a marked region
-    in it. You may use the functions interactively as commands.
+    in it.  You may use the functions interactively as commands.
     Once you call a command you will be asked about the code
     currently used in your text and the target encoding, the one
-    you want to get. The following example shows a non-interactive
+    you want to get.  The following example shows a non-interactive
-    use of the functions in a program. This also illustrates what
+    use of the functions in a program.  This also illustrates what
     type of parameters the functions expect to be called with:
 
       (ogonek-recode-region
@@ -210,11 +210,11 @@ The functions come in the following groups.
       (ogonek-prefixify-buffer prefix-char to-code-name)
 
  The TAB character used in interactive mode makes `emacs'
- display the list of encodings recognized by the library. The list
+ display the list of encodings recognized by the library.  The list
  is stored in the constant `ogonek-name-encoding-alist'.
 
  The `ogonek' functions refer to five variables in which the suggested
- answers to dialogue questions are stored. The variables and their
+ answers to dialogue questions are stored.  The variables and their
  default values are:
 
    ogonek-from-encoding           iso8859-2
@@ -239,7 +239,7 @@ The functions come in the following groups.
    (autoload \\='ogonek-deprefixify-region \"ogonek\")
 
  The most frequent function calls can be abbreviated and assigned to
- keyboard keys. Here are a few practical examples:
+ keyboard keys.  Here are a few practical examples:
 
    (defun deprefixify-iso8859-2-region (start end)
      (interactive \"*r\")
@@ -329,7 +329,7 @@ PROMPT is a string to be shown when the user is asked for a new prefix."
 (defun ogonek-lookup-encoding (encoding)
   "Pick up an association for ENCODING in `ogonek-name-encoding-alist'.
 Before returning a result test whether the string ENCODING is in
-the list `ogonek-name-encoding-alist'"
+the list `ogonek-name-encoding-alist'."
   (let ((code-list (assoc encoding ogonek-name-encoding-alist)))
     (if (null code-list)
       (error "! Name `%s' not known in `ogonek-name-encoding-alist'"
@@ -449,8 +449,8 @@ PREFIX-CHAR itself gets doubled."
 (defun ogonek-deprefixify-region (start end prefix-char to-encoding)
   "In a region, replace PREFIX pairs with their corresponding TO-encodings.
 PREFIX-CHAR followed by a Polish character from the `ogonek-prefix-code'
-list is replaced with the corresponding TO-encoded character. A doubled
+list is replaced with the corresponding TO-encoded character.  A doubled
-PREFIX-CHAR gets replaced with a single one. A combination of PREFIX-CHAR
+PREFIX-CHAR gets replaced with a single one.  A combination of PREFIX-CHAR
 followed by a non-Polish character, that is one not listed in the
 `ogonek-prefix-code' constant, is left unchanged."
   (interactive (progn (barf-if-buffer-read-only)

lisp/isearch.el

@@ -207,8 +207,8 @@ to the search status stack.")
   "Predicate to filter hits of Isearch and replace commands.
 Isearch hits that don't satisfy the predicate will be skipped.
 The value should be a function of two arguments; it will be
-called with the the positions of the start and the end of the
+called with the positions of the start and the end of the text
-text matched by Isearch and replace commands.  If this function
+matched by Isearch and replace commands.  If this function
 returns nil, Isearch and replace commands will continue searching
 without stopping at resp. replacing this match.
 
@@ -2009,7 +2009,7 @@ Turning on character-folding turns off regexp mode.")
   "Text properties that are added to the isearch prompt.")
 
 (defun isearch--momentary-message (string)
-  "Print STRING at the end of the isearch prompt for 1 second"
+  "Print STRING at the end of the isearch prompt for 1 second."
   (let ((message-log-max nil))
     (message "%s%s%s"
              (isearch-message-prefix nil isearch-nonincremental)

lisp/jsonrpc.el

@@ -107,7 +107,7 @@ notifications.  CONN, METHOD and PARAMS are the same as in
 ;;; API mandatory
 (cl-defgeneric jsonrpc-connection-send (conn &key id method params result error)
   "Send a JSONRPC message to connection CONN.
-ID, METHOD, PARAMS, RESULT and ERROR. ")
+ID, METHOD, PARAMS, RESULT and ERROR.")
 
 ;;; API optional
 (cl-defgeneric jsonrpc-shutdown (conn)
@@ -343,7 +343,7 @@ ignored."
     :documentation "Process object wrapped by the this connection.")
    (-expected-bytes
     :accessor jsonrpc--expected-bytes
-    :documentation "How many bytes declared by server")
+    :documentation "How many bytes declared by server.")
    (-on-shutdown
     :accessor jsonrpc--on-shutdown
     :initform #'ignore
@@ -416,13 +416,13 @@ connection object, called when the process dies .")
 (cl-defmethod jsonrpc-shutdown ((conn jsonrpc-process-connection)
                                 &optional cleanup)
   "Wait for JSONRPC connection CONN to shutdown.
-With optional CLEANUP, kill any associated buffers. "
+With optional CLEANUP, kill any associated buffers."
   (unwind-protect
       (cl-loop
        with proc = (jsonrpc--process conn) for i from 0
        while (not (process-get proc 'jsonrpc-sentinel-cleanup-started))
        unless (zerop i) do
-       (jsonrpc--warn "Sentinel for %s still hasn't run,  deleting it!" proc)
+       (jsonrpc--warn "Sentinel for %s still hasn't run, deleting it!" proc)
        do
        (delete-process proc)
        (accept-process-output nil 0.1))
@@ -574,8 +574,8 @@ With optional CLEANUP, kill any associated buffers. "
                                     (deferred nil))
   "Does actual work for `jsonrpc-async-request'.
 
-Return a list (ID TIMER). ID is the new request's ID, or nil if
+Return a list (ID TIMER).  ID is the new request's ID, or nil if
-the request was deferred. TIMER is a timer object set (or nil, if
+the request was deferred.  TIMER is a timer object set (or nil, if
 TIMEOUT is nil)."
   (pcase-let* ((buf (current-buffer)) (point (point))
                (`(,_ ,timer ,old-id)

lisp/language/tibet-util.el

@@ -54,7 +54,7 @@
 ;;;###autoload
 (defun tibetan-char-p (ch)
   "Check if char CH is Tibetan character.
-Returns non-nil if CH is Tibetan. Otherwise, returns nil."
+Returns non-nil if CH is Tibetan.  Otherwise, returns nil."
   (memq (char-charset ch) '(tibetan tibetan-1-column)))
 
 ;;; Functions for Tibetan <-> Tibetan-transcription.

lisp/mail/feedmail.el

@@ -1136,9 +1136,9 @@ they were placed in the queue."
 This variable is used by the default date generating function,
 feedmail-default-date-generator.  If nil, the default, the
 last-modified timestamp of the queue file is used to create the
-message Date: header; if there is no queue file, the current time is
+message Date: header; if there is no queue file, the current time
-used. If you are using VM, it might be supplying this header for
+is used.  If you are using VM, it might be supplying this header
-you.  To suppress VM's version
+for you.  To suppress VM's version
 
 	(setq vm-mail-header-insert-date nil)"
   :group 'feedmail-queue
@@ -1382,7 +1382,7 @@ It shows the simple addresses and gets a confirmation.  Use as:
 When this hook runs, the current buffer is already the appropriate
 buffer.  It has already had all the header prepping from the standard
 package.  The next step after running the hook will be to save the
-message via Fcc: processing. The hook might be interested in these:
+message via Fcc: processing.  The hook might be interested in these:
 \(1) `feedmail-prepped-text-buffer' contains the header and body of the
 message, ready to go; (2) `feedmail-address-list' contains a list
 of simplified recipients of addresses which are to be given to the
@@ -1411,7 +1411,7 @@ can undo the encoding."
   "User's last opportunity to modify the message before Fcc action.
 It has already had all the header prepping from the standard package.
 The next step after running the hook will be to save the message via
-Fcc: processing. The hook might be interested in these: (1)
+Fcc: processing.  The hook might be interested in these: (1)
 `feedmail-prepped-text-buffer' contains the header and body of the
 message, ready to go; (2) `feedmail-address-list' contains a list of
 simplified recipients of addressees to whom the message was sent (3)
@@ -2361,7 +2361,7 @@ mapped to mostly alphanumerics for safety."
      )))
 
 (defun feedmail-send-it-immediately-wrapper ()
-  "Wrapper to catch skip-me-i"
+  "Wrapper to catch skip-me-i."
   (if (eq 'skip-me-i (catch 'skip-me-i (feedmail-send-it-immediately)))
       (error "FQM: Sending...abandoned!")))
 
@@ -3159,7 +3159,7 @@ been weeded out."
 	 (sit-for feedmail-queue-chatty-sit-for))))
 
 (defun feedmail-find-eoh (&optional noerror)
-  "Internal; finds the end of message header fields, returns mark just before it"
+  "Internal; finds the end of message header fields, returns mark just before it."
   ;; all this funny business with line endings is to account for CRLF
   ;; weirdness that I don't think I'll ever figure out
   (feedmail-say-debug ">in-> feedmail-find-eoh %s" noerror)

lisp/mail/hashcash.el

@@ -158,7 +158,7 @@ For example, you may want to set this to (\"-Z2\") to reduce header length."
     (or (nth 1 val) (nth 0 val) addr)))
 
 (defun hashcash-generate-payment (str val)
-  "Generate a hashcash payment by finding a VAL-bit collison on STR."
+  "Generate a hashcash payment by finding a VAL-bit collision on STR."
   (if (and (> val 0)
 	   hashcash-program)
       (with-current-buffer (get-buffer-create " *hashcash*")
@@ -171,7 +171,7 @@ For example, you may want to set this to (\"-Z2\") to reduce header length."
     (error "No `hashcash' binary found")))
 
 (defun hashcash-generate-payment-async (str val callback)
-  "Generate a hashcash payment by finding a VAL-bit collison on STR.
+  "Generate a hashcash payment by finding a VAL-bit collision on STR.
 Return immediately.  Call CALLBACK with process and result when ready."
   (if (and (> val 0)
 	   hashcash-program)
@@ -226,7 +226,7 @@ Return immediately.  Call CALLBACK with process and result when ready."
 
 ;;;###autoload
 (defun hashcash-insert-payment (arg)
-  "Insert X-Payment and X-Hashcash headers with a payment for ARG"
+  "Insert X-Payment and X-Hashcash headers with a payment for ARG."
   (interactive "sPay to: ")
   (unless (hashcash-already-paid-p arg)
     (let ((pay (hashcash-generate-payment (hashcash-payment-to arg)
@@ -294,7 +294,7 @@ BUFFER defaults to the current buffer."
 
 ;;;###autoload
 (defun hashcash-verify-payment (token &optional resource amount)
-  "Verify a hashcash payment"
+  "Verify a hashcash payment."
   (let* ((split (split-string token ":"))
 	 (key (if (< (hashcash-version token) 1.2)
 		  (nth 1 split)

lisp/mail/rmail.el

@@ -285,7 +285,7 @@ Otherwise, look for `movemail' in the directories in
 		  (throw 'scan x))))))))))
 
 (defvar rmail-movemail-variant-in-use nil
-  "The movemail variant currently in use. Known variants are:
+  "The movemail variant currently in use.  Known variants are:
 
   `emacs'     Means any implementation, compatible with the native Emacs one.
               This is the default;
@@ -2308,7 +2308,7 @@ If nil, that means the current message."
 (defun rmail-get-attr-value (attr state)
   "Return the character value for ATTR.
 ATTR is a (numeric) index, an offset into the mbox attribute
-header value. STATE is one of nil, t, or a character value."
+header value.  STATE is one of nil, t, or a character value."
   (cond
    ((numberp state) state)
    ((not state) ?-)

lisp/mail/rmailmm.el

@@ -147,7 +147,7 @@ display HTML source."
   ;; Default to preferring HTML parts, but only if we have a renderer
   (if rmail-mime-render-html-function t nil)
   "If non-nil, default to showing HTML part rather than text part
-when both are available"
+when both are available."
   :group 'rmail
   :version "25.1"
   :type 'boolean)
@@ -1391,8 +1391,8 @@ STATE forces a particular display state, rather than toggling.
 `raw' forces raw mode, any other non-nil value forces decoded mode.
 
 If `rmail-enable-mime' is nil, this creates a temporary \"*RMAIL*\"
-buffer holding a decoded copy of the message. Inline content-types are
+buffer holding a decoded copy of the message.  Inline content-types
-handled according to `rmail-mime-media-type-handlers-alist'.
+are handled according to `rmail-mime-media-type-handlers-alist'.
 By default, this displays text and multipart messages, and offers to
 download attachments as specified by `rmail-mime-attachment-dirs-alist'.
 The arguments ARG and STATE have no effect in this case."

lisp/mail/rmailsum.el

@@ -1360,7 +1360,7 @@ move to the previous message."
 
 (defun rmail-summary-show-message (where)
   "Show current mail message.
-Position it according to WHERE which can be BEG or END"
+Position it according to WHERE which can be BEG or END."
   (if (and (one-window-p) (not pop-up-frames))
       ;; If there is just one window, put the summary on the top.
       (let ((buffer rmail-buffer))

lisp/mail/supercite.el

@@ -1753,7 +1753,7 @@ entered, regardless of the value of `sc-electric-references-p'.  See
 
 (defun sc-raw-mode-toggle ()
   "Toggle, in one fell swoop, two important SC variables:
-`sc-fixup-whitespace-p' and `sc-auto-fill-region-p'"
+`sc-fixup-whitespace-p' and `sc-auto-fill-region-p'."
   (interactive)
   (setq sc-fixup-whitespace-p (not sc-fixup-whitespace-p)
 	sc-auto-fill-region-p (not sc-auto-fill-region-p))

lisp/man.el

@@ -1023,7 +1023,7 @@ names or descriptions.  The pattern argument is usually an
     (man man-args)))
 
 (defmacro Man-start-calling (&rest body)
-  "Start the man command in `body' after setting up the environment"
+  "Start the man command in `body' after setting up the environment."
   `(let ((process-environment (copy-sequence process-environment))
 	;; The following is so Awk script gets \n intact
 	;; But don't prevent decoding of the outside.

lisp/mh-e/mh-acros.el

@@ -160,8 +160,8 @@ Stronger than `save-excursion', weaker than `save-window-excursion'."
 ;;;###mh-autoload
 (defmacro mh-do-at-event-location (event &rest body)
   "Switch to the location of EVENT and execute BODY.
-After BODY has been executed return to original window. The
+After BODY has been executed return to original window.
-modification flag of the buffer in the event window is
+The modification flag of the buffer in the event window is
 preserved."
   (declare (debug t))
   (let ((event-window (make-symbol "event-window"))
@@ -206,7 +206,7 @@ preserved."
   "Iterate over region.
 
 VAR is bound to the message on the current line as we loop
-starting from BEGIN till END. In each step BODY is executed.
+starting from BEGIN till END.  In each step BODY is executed.
 
 If VAR is nil then the loop is executed without any binding."
   (declare (debug (symbolp body)))
@@ -230,7 +230,7 @@ If VAR is nil then the loop is executed without any binding."
 VAR is bound to each message in turn in a loop over RANGE, which
 can be a message number, a list of message numbers, a sequence, a
 region in a cons cell, or a MH range (something like last:20) in
-a string. In each iteration, BODY is executed.
+a string.  In each iteration, BODY is executed.
 
 The parameter RANGE is usually created with
 `mh-interactive-range' in order to provide a uniform interface to