diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2019-09-21 00:27:53 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2019-09-21 00:27:53 +0200 |
| commit | 11432322650830fe9ae365f4113733a79226056d (patch) | |
| tree | 8407cb164d05196ac5eaeaa82fc69917877a008e | |
| parent | 80b53a3b8dcc28d18ac9a7adacf377ebe6d23ffe (diff) | |
| download | emacs-11432322650830fe9ae365f4113733a79226056d.tar.gz | |
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.
164 files changed, 584 insertions, 578 deletions
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index e4a8db8a628..3f5621fa349 100644 --- a/lisp/allout-widgets.el +++ b/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) diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 464facdeafa..2164a550b0a 100644 --- a/lisp/auth-source.el +++ b/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" diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 6cdc1d3a297..9275513c8d2 100644 --- a/lisp/autorevert.el +++ b/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)) diff --git a/lisp/battery.el b/lisp/battery.el index 0ef6d37b406..2319ce73bbb 100644 --- a/lisp/battery.el +++ b/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) diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el index 8015b8ed7c1..229edc77c79 100644 --- a/lisp/calc/calcalg3.el +++ b/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)) diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el index 2d3b1f8c818..355f72cd15f 100644 --- a/lisp/calendar/cal-dst.el +++ b/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., diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el index cda2c888f22..1ac0ac750a5 100644 --- a/lisp/calendar/cal-mayan.el +++ b/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 diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index e7a7bd47d61..43a8e8e38d4 100644 --- a/lisp/calendar/calendar.el +++ b/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 -located, but indented INDENT spaces. The indentation is done from the first -character on the line and does not disturb the first INDENT characters on the -line." +The calendar is inserted at the top of the buffer in which point is +currently located, but indented INDENT spaces. The indentation is +done from the first character on the line and does not disturb the +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 -possible. Each item of STRINGS is evaluated before concatenation so it can -actually be an expression that evaluates to a string. If LENGTH is too short, -the STRINGS are just concatenated and the result truncated." +The effect is like `mapconcat' but the separating pieces are as +balanced as possible. Each item of STRINGS is evaluated before +concatenation so it can actually be an expression that evaluates +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 -ERROR is non-nil, otherwise just returns nil. +If cursor is not on a specific date, signals an error if optional +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 -entered item is acceptable. If non-nil, optional third arg INITIAL-CONTENTS -is a string to insert in the minibuffer before reading." +Prompt with the string PROMPT and use the function ACCEPTABLE to decide +if entered item is acceptable. If non-nil, optional third arg +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 year)" +\(month 1 year); if NODAY is any other non-nil value the value +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 defaults to `diary-entry-marker'." +MARK is a single-character string, a list of face attributes/values, +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 -absolute day d. Similarly, applying it to d+3 gives the DAYNAME nearest to -absolute date d, applying it to d-1 gives the DAYNAME previous to absolute -date d, and applying it to d+7 gives the DAYNAME following absolute date d." +Note: Applying this function to d+6 gives us the DAYNAME on or after +an absolute day d. Similarly, applying it to d+3 gives the DAYNAME +nearest to absolute date d, applying it to d-1 gives the DAYNAME +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) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 5a2374a5957..d783f11e35d 100644 --- a/lisp/calendar/diary-lib.el +++ b/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" diff --git a/lisp/cedet/ede/autoconf-edit.el b/lisp/cedet/ede/autoconf-edit.el index c243e9bf6df..8918b4eb621 100644 --- a/lisp/cedet/ede/autoconf-edit.el +++ b/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)))) diff --git a/lisp/cedet/ede/config.el b/lisp/cedet/ede/config.el index c8bf7f33bae..39d984ac356 100644 --- a/lisp/cedet/ede/config.el +++ b/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. diff --git a/lisp/cedet/ede/linux.el b/lisp/cedet/ede/linux.el index 424a20dec4d..b5a6482bbdf 100644 --- a/lisp/cedet/ede/linux.el +++ b/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 -the result is `ask', let the user choose from architectures found -in DIR." +Uses `ede-linux--detect-architecture' for the auto-detection. +If the result is `ask', let the user choose from architectures +found in DIR." (let ((arch (ede-linux--detect-architecture bdir))) (cl-case arch (ask diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 8f89d1a51e2..14d2bd38ee8 100644 --- a/lisp/cedet/semantic/complete.el +++ b/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) diff --git a/lisp/cedet/semantic/format.el b/lisp/cedet/semantic/format.el index b576ad5e210..00f684276b8 100644 --- a/lisp/cedet/semantic/format.el +++ b/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.") diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index 0dd0a932188..216a47547dc 100644 --- a/lisp/cedet/semantic/fw.el +++ b/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) diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el index 09af66658fa..35ec930469f 100644 --- a/lisp/cedet/semantic/idle.el +++ b/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 -unlikely the user would be ready to type again right away." +This time should be long enough that once any big work is started, +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, -starting with the outermost tag. The function should call +argument. The tags are sorted according to their nesting order, +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 is a hint and can be ignored. When the maximum -length is omitted, an unconstrained string should be -produced. The tags are sorted according to their nesting order, -starting with the outermost tag. Single tags should be formatted -using `semantic-idle-breadcrumbs-format-tag-function' unless -special formatting is required." +maximum length of the produced string as its arguments. The +maximum length is a hint and can be ignored. When the maximum +length is omitted, an unconstrained string should be produced. +The tags are sorted according to their nesting order, starting +with the outermost tag. Single tags should be formatted using +`semantic-idle-breadcrumbs-format-tag-function' unless special +formatting is required." :group 'semantic :type '(choice (const :tag "Format tags as list, innermost last" diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el index 50e09e2359c..5df92f53172 100644 --- a/lisp/cedet/semantic/lex.el +++ b/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. diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el index f76d3328888..714190133f0 100644 --- a/lisp/cedet/semantic/senator.el +++ b/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))) diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el index 00403d4d52c..85acd50712b 100644 --- a/lisp/cedet/semantic/symref.el +++ b/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))) diff --git a/lisp/cedet/semantic/tag.el b/lisp/cedet/semantic/tag.el index ec8a800ec41..16dda48dc62 100644 --- a/lisp/cedet/semantic/tag.el +++ b/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 -tag." +variable. +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 -to the system, as opposed to belonging to the local project. +SYSTEM-FLAG represents that we were able to identify this include as +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 -it can be found. +DETAIL is extra information about this package, such as a location +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 diff --git a/lisp/cedet/srecode/cpp.el b/lisp/cedet/srecode/cpp.el index 306c60f1b61..9d30b163ee4 100644 --- a/lisp/cedet/srecode/cpp.el +++ b/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 diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 1058024d457..a0205177caa 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/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 -add. ENTRIES looks like this: +ENTRIES is a list of even length of dictionary entries to add. +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 -value is returned. Otherwise, nil is returned. Normally, the +name of an entry in the dictionary. If such an entry exists, its +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." diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index ed6f1bfb1ad..874cfa98f5b 100644 --- a/lisp/cmuscheme.el +++ b/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)" diff --git a/lisp/color.el b/lisp/color.el index e401456de76..804eb57ee53 100644 --- a/lisp/color.el +++ b/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) diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 78895ebd7a6..49d2b56b7d6 100644 --- a/lisp/doc-view.el +++ b/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")) diff --git a/lisp/dynamic-setting.el b/lisp/dynamic-setting.el index cf1a8d3b73c..3da8d14cee0 100644 --- a/lisp/dynamic-setting.el +++ b/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 -current form for the frame (i.e. hinting or somesuch changed)." +If SET-FONT is non-nil, change the font for frames. Otherwise re-apply +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 - is not changed. + The monospace font. If `font-use-system-font' is nil, + the font is not changed. The normal font. Xft parameters, like DPI and hinting. The Gtk+ theme name. diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el index 5fb9d751e25..f3cbee70486 100644 --- a/lisp/elec-pair.el +++ b/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.") diff --git a/lisp/emacs-lisp/avl-tree.el b/lisp/emacs-lisp/avl-tree.el index d2a3a131d16..a586fa02501 100644 --- a/lisp/emacs-lisp/avl-tree.el +++ b/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 -left (BRANCH=0) or right (BRANCH=1) child of NODE. +The deletion was done from the left (DIR=0) or right (DIR=1) sub-tree +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 -returned. Optional argument NILFLAG specifies a value to return -instead of nil in this case. This allows non-existent elements to -be distinguished from a null element. (See also -`avl-tree-member-p', which does this for you.)" +If there is no such element in the tree, nil is returned. +Optional argument NILFLAG specifies a value to return instead of nil +in this case. This allows non-existent elements to be distinguished +from a null element. (See also `avl-tree-member-p', which does this +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 diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 2fab11c79df..44a65ed4c6a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/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 -the graph. +If the value is neither t nor nil, compilation asks you whether to +display the graph. -The call tree only lists functions called, not macros used. Those functions -which the byte-code interpreter knows about directly (eq, cons, etc.) are -not reported. +The call tree only lists functions called, not macros used. Those +functions which the byte-code interpreter knows about directly (eq, +cons, etc.) are not reported. -The call tree also lists those functions which are not known to be called -\(that is, to which no calls have been compiled). Functions which can be -invoked interactively are excluded from this list." +The call tree also lists those functions which are not known to be +called (that is, to which no calls have been compiled). Functions +which can be invoked interactively are excluded from this list." :type '(choice (const :tag "Yes" t) (const :tag "No" nil) (other :tag "Ask" lambda))) diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 8a88c5756f1..51fb75da691 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/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 - buffer - Spell-check when style checking the whole buffer + defun - Spell-check when style checking a single defun. + 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))) diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 10190f49339..b0173dc991b 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/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))) diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el index 350fca6d9ab..8fc74beca1e 100644 --- a/lisp/emacs-lisp/eieio-custom.el +++ b/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) diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index ab0e853e9a4..93d43e319a5 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/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 -unable to move over a sexp, signal `scan-error' with three +`forward-sexp-function' to do the work, if that is non-nil. +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 diff --git a/lisp/emacs-lisp/package-x.el b/lisp/emacs-lisp/package-x.el index e26b6b99c17..2815be3fe65 100644 --- a/lisp/emacs-lisp/package-x.el +++ b/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)) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 1e136cb54f7..409dfedb74b 100644 --- a/lisp/emacs-lisp/package.el +++ b/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"))) diff --git a/lisp/emacs-lisp/tcover-ses.el b/lisp/emacs-lisp/tcover-ses.el index d34d30ff0f9..e18cc58b642 100644 --- a/lisp/emacs-lisp/tcover-ses.el +++ b/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)) diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el index 20851805f5c..16f19f7d503 100644 --- a/lisp/emacs-lisp/testcover.el +++ b/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) diff --git a/lisp/epg.el b/lisp/epg.el index 6d377d07e29..1a107600a5f 100644 --- a/lisp/epg.el +++ b/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. diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index 210830a2b49..8b30834025f 100644 --- a/lisp/erc/erc-backend.el +++ b/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 -interesting use for this is to put `undecided' in the cdr. This +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 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) diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el index 726d9674d40..2dbf13cfdfd 100644 --- a/lisp/erc/erc-button.el +++ b/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) diff --git a/lisp/erc/erc-ezbounce.el b/lisp/erc/erc-ezbounce.el index a2c9336826a..899ea2f6b5f 100644 --- a/lisp/erc/erc-ezbounce.el +++ b/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 diff --git a/lisp/erc/erc-fill.el b/lisp/erc/erc-fill.el index 934b52a938c..705c7e69bb5 100644 --- a/lisp/erc/erc-fill.el +++ b/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) diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el index 1c046fe20cb..2b9a0aae1da 100644 --- a/lisp/erc/erc-log.el +++ b/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))) diff --git a/lisp/erc/erc-match.el b/lisp/erc/erc-match.el index cc4b4a88f11..092b5953c42 100644 --- a/lisp/erc/erc-match.el +++ b/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 -be formatted. The various format specs are: +This variable specifies how messages in the corresponding log buffers +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) diff --git a/lisp/erc/erc-netsplit.el b/lisp/erc/erc-netsplit.el index 87c3a61b663..305fdf9d945 100644 --- a/lisp/erc/erc-netsplit.el +++ b/lisp/erc/erc-netsplit.el @@ -33,9 +33,9 @@ (require 'erc) (defgroup erc-netsplit nil - "Netsplit detection tries to automatically figure when a -netsplit happens, and filters the QUIT messages. It also keeps -track of netsplits, so that it can filter the JOIN messages on a netjoin too." + "Netsplit detection tries to automatically figure when a netsplit +happens, and filters the QUIT messages. It also keeps track of +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 -sever buffer." + "If non-nil, debug messages will be shown in the sever buffer." :group 'erc-netsplit :type 'boolean) diff --git a/lisp/erc/erc-networks.el b/lisp/erc/erc-networks.el index eca8ad6a899..3ba5ce4e5e7 100644 --- a/lisp/erc/erc-networks.el +++ b/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 - server corresponds, +NET is a symbol indicating to which network from `erc-networks-alist' + 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 - it. If it is regexp, it's used to match against `erc-server-announced-name'. - It can also be a function (predicate). Then it is executed with the - server buffer as current-buffer." +MATCHER is used to find a corresponding network to a server while + connected to it. If it is regexp, it's used to match against + `erc-server-announced-name'. It can also be a function (predicate). + 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 -network as a symbol." + "Deprecated. Use `erc-network' instead. +Return the name of this server's network as a symbol." (erc-with-server-buffer (intern (downcase (symbol-name erc-network))))) diff --git a/lisp/erc/erc-ring.el b/lisp/erc/erc-ring.el index 453e234a37a..c5d62ccfea9 100644 --- a/lisp/erc/erc-ring.el +++ b/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) diff --git a/lisp/erc/erc-speedbar.el b/lisp/erc/erc-speedbar.el index 8d56c85bec4..a1e10ca3a24 100644 --- a/lisp/erc/erc-speedbar.el +++ b/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 -is only done when the channel is actually expanded already." + "Update the speedbar information about a ERC buffer. +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 diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el index a15d8bf7b31..ee177e3acb5 100644 --- a/lisp/erc/erc-stamp.el +++ b/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 diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el index 53a59207839..055c2eb4850 100644 --- a/lisp/erc/erc-track.el +++ b/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 -relative to `erc-track-switch-direction'" +Negative arguments index in the opposite direction. This direction +is relative to `erc-track-switch-direction'." (let ((dir erc-track-switch-direction) offset) (when (< arg 0) diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index fd1bd5545da..74376b0cb3a 100644 --- a/lisp/erc/erc.el +++ b/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'." diff --git a/lisp/ffap.el b/lisp/ffap.el index 33854a6c0d4..5b4e8b5fca0 100644 --- a/lisp/ffap.el +++ b/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) diff --git a/lisp/files.el b/lisp/files.el index 5ceaacd744e..0c3da1fe3cc 100644 --- a/lisp/files.el +++ b/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, -`abort-if-file-too-large' returns the symbol `raw'. Otherwise, it -returns nil or exits non-locally." +to open the file literally. If the user chooses this option, +`abort-if-file-too-large' returns the symbol `raw'. Otherwise, +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 -parents that mode has) will be returned. +If it is a mode then the depth of the mode (ie, how many parents +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))) diff --git a/lisp/filesets.el b/lisp/filesets.el index b74b4a8a400..c05fff3fb74 100644 --- a/lisp/filesets.el +++ b/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 -to which level the directory structure should be scanned/listed, +will be recursively added to the menu. `filesets-tree-max-level' tells +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 diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index dd30dda2a10..1f252552784 100644 --- a/lisp/gnus/gnus-agent.el +++ b/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 -gnus-agent-regenerate-group method provides an undo mechanism by -reconstructing the index files from the article files." +article files, is then deleted using gnus-agent-expire-group. +The gnus-agent-regenerate-group method provides an undo mechanism +by reconstructing the index files from the article files." (interactive) (save-excursion (let ((file-name-coding-system nnmail-pathname-coding-system)) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index eba66c1c3aa..07ec2696469 100644 --- a/lisp/gnus/gnus-art.el +++ b/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" diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el index a4daf8cf483..2e3fbfe9d46 100644 --- a/lisp/gnus/gnus-cus.el +++ b/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") "\ diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el index 6007e18f558..7ec471afc71 100644 --- a/lisp/gnus/gnus-demon.el +++ b/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 -marked with SPECIAL." +can be called at the next opportunity. Such a special idle run +is marked with SPECIAL." (unless gnus-inhibit-demon (cl-block run-callback (when (eq idle t) diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el index acb8fd77641..818beca77b0 100644 --- a/lisp/gnus/gnus-dired.el +++ b/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 -optional argument PRINT-TO is nil, send the image to the printer. If -PRINT-TO is a string, save the PostScript image in a file with that -name. If PRINT-TO is a number, prompt the user for the name of the -file to save in." +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 PRINT-TO is a string, save the PostScript image in a file with +that name. If PRINT-TO is a number, prompt the user for the name +of the file to save in." (interactive (list (file-name-sans-versions (dired-get-filename) t) (ps-print-preprint current-prefix-arg))) diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el index 7d11b5699bb..e4779f52c07 100644 --- a/lisp/gnus/gnus-icalendar.el +++ b/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)) diff --git a/lisp/gnus/gnus-range.el b/lisp/gnus/gnus-range.el index b775def9a0d..52bcf79d404 100644 --- a/lisp/gnus/gnus-range.el +++ b/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) diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el index 47d722c9144..3f3efdcec98 100644 --- a/lisp/gnus/gnus-spec.el +++ b/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 when given a pad value." +characters correctly. This is because `format' may pad to columns +or to characters when given a pad value." (let ((pad (abs pad-width)) (side (< 0 pad-width))) (if (symbolp el) diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index 71c7807518f..684af235101 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/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 diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index b8f96158e6c..d1751065505 100644 --- a/lisp/gnus/gnus-sum.el +++ b/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 -nil value will only search for thread-related articles in the + "Use nnir to search an entire server when referring threads. +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 -know how to search for threads (currently only 'nnimap) a -non-numeric prefix arg will use nnir to search the entire + "Fetch all articles in the current thread. For backends +that know how to search for threads (currently only 'nnimap) +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 -non-nil the prefix arg has the reverse meaning. If no +searched. If the variable `gnus-refer-thread-use-nnir' is +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 -not match REGEXP on HEADER." +in the comparisons. If NOT-MATCHING, return a list of all articles +that not match REGEXP on HEADER." (let ((case-fold-search (not not-case-fold)) articles func) (if (consp header) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index f73af8e261c..6847d372cc5 100644 --- a/lisp/gnus/gnus-util.el +++ b/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 diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index f990569a300..0673ac15f60 100644 --- a/lisp/gnus/gnus.el +++ b/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 - format string should be a letter. Gnus will call the +%u User defined specifier. The next character in 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 - current header as argument. The function should + letter following %u. The function will be passed the + 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 -level. If ARG is nil, Gnus will be started at level 2. If ARG is -non-nil and not a positive number, Gnus will prompt the user for the -name of an NNTP server to use. +If ARG is a positive number, Gnus will use that as the startup level. +If ARG is nil, Gnus will be started at level 2. If ARG is non-nil +and not a positive number, Gnus will prompt the user for the name of +an NNTP server to use. As opposed to `gnus', this command will not connect to the local server." (interactive "P") diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 69ecde30275..fab0f5296d0 100644 --- a/lisp/gnus/mail-source.el +++ b/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) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 9e0f2b461e3..ef6455ac5c9 100644 --- a/lisp/gnus/message.el +++ b/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 -probably want to set this variable only for specific groups, +Note: Many newsgroups frown upon nontraditional reply styles. +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 -sent in one piece. +mails in message/partially format. Answer `n', and the message +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 diff --git a/lisp/gnus/mm-extern.el b/lisp/gnus/mm-extern.el index c3054432d51..d838cdc875f 100644 --- a/lisp/gnus/mm-extern.el +++ b/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 diff --git a/lisp/gnus/mm-partial.el b/lisp/gnus/mm-partial.el index c68ab4a7c13..d2f279e4197 100644 --- a/lisp/gnus/mm-partial.el +++ b/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 diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index e0ec829617f..716e4b778ec 100644 --- a/lisp/gnus/mml-sec.el +++ b/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 diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el index d7876a3aef0..45164ee8f65 100644 --- a/lisp/gnus/mml2015.el +++ b/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) "" diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el index 8cda5aa7031..f79d8f17072 100644 --- a/lisp/gnus/nndiary.el +++ b/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 diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index c87cfc8c7cb..28c4cebb2d1 100644 --- a/lisp/gnus/nnheader.el +++ b/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) diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index d66bdf47066..b695cfa4f6d 100644 --- a/lisp/gnus/nnir.el +++ b/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 - email header field") +`nnir-imap-search-arguments'. By default this is the name of an +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 keys in `nnir-imap-search-arguments'. To use raw imap queries + "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 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 -search-engine specific constraints. A non-nil `specs' arg must be +current topic. Calling with a prefix-arg prompts for additional +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) -pairs (also vectors, actually). + "Run given query against Namazu. +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 -`server'. If no server-specific value is found consult the global + "Return the parameter value corresponding to `key' for `server'. +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 diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el index 53275e19640..6c5502ac3d9 100644 --- a/lisp/gnus/nnmairix.el +++ b/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) diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index 9a38a6c6976..b7ec033603f 100644 --- a/lisp/gnus/smime.el +++ b/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) diff --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el index f611a213fdd..b93d405ec1f 100644 --- a/lisp/gnus/spam-report.el +++ b/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 -the external program specified in `mm-url-program' to connect to -server." + "Ping a host through HTTP, addressing a specific GET resource. +Use the external program specified in `mm-url-program' to connect +to server." (with-temp-buffer (let ((url (format "http://%s%s" host report))) (mm-url-insert url t)))) diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el index f990e0cba16..c701e314fc0 100644 --- a/lisp/gnus/spam.el +++ b/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) diff --git a/lisp/help.el b/lisp/help.el index e40178de964..1ae4b2c38d9 100644 --- a/lisp/help.el +++ b/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))))) diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index 404f448e0d2..89d1342fbec 100644 --- a/lisp/hippie-exp.el +++ b/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) diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index c1aaab5e211..481b14738bc 100644 --- a/lisp/htmlfontify.el +++ b/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 -`hfy-begin-span-handler' for more information." +Insert \"<span class=\"STYLE\" ...>\". +See `hfy-begin-span-handler' for more information." (when text-begins-block-p (insert (format "<span onclick=\"toggle_invis('%s');\">…</span>" text-block))) diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 06a2248d405..2746e4115a0 100644 --- a/lisp/ibuf-ext.el +++ b/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' -affects how this information is saved for future sessions. This +`ibuffer-save-filters'). The variable `ibuffer-save-with-custom' +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 -`ibuffer-saved-filters' for details. The repaired value fixes +each filter spec is a cons cell with a symbol in the car. See +`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 -format. See `ibuffer-update-saved-filters-format' and +update. Any updated filters retain their meaning in the new +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 -`ibuffer-do-view-and-eval' for that." +Does not display the buffer during evaluation. +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): ")) diff --git a/lisp/image-dired.el b/lisp/image-dired.el index c9b31e9f1f8..c1c767ba783 100644 --- a/lisp/image-dired.el +++ b/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) diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 9c7c91eb58a..fae928f4e67 100644 --- a/lisp/image-mode.el +++ b/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) diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index 51626f51618..fb866fe354c 100644 --- a/lisp/international/ccl.el +++ b/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)) diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index 437971742dc..8e62a2d1cc2 100644 --- a/lisp/international/kkc.el +++ b/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) diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el index 1b7bc49a6be..67347f3e0d3 100644 --- a/lisp/international/latin1-disp.el +++ b/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 diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el index 543f2e33888..594d0a07657 100644 --- a/lisp/international/ogonek.el +++ b/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 -are given in the following order: +Each LIST contains codes for 18 Polish diacritic characters. +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 - use of the functions in a program. This also illustrates what + you want to get. The following example shows a non-interactive + 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 -PREFIX-CHAR gets replaced with a single one. A combination of PREFIX-CHAR +list is replaced with the corresponding TO-encoded character. A doubled +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) diff --git a/lisp/isearch.el b/lisp/isearch.el index ec51c2cf4cc..1e4a87ff481 100644 --- a/lisp/isearch.el +++ b/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 -text matched by Isearch and replace commands. If this function +called with the positions of the start and the end of the text +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) diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el index 85fd40ecd26..41cd84627be 100644 --- a/lisp/jsonrpc.el +++ b/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 -the request was deferred. TIMER is a timer object set (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 TIMEOUT is nil)." (pcase-let* ((buf (current-buffer)) (point (point)) (`(,_ ,timer ,old-id) diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index 68faf2016af..912879eb38d 100644 --- a/lisp/language/tibet-util.el +++ b/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. diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index b362614d3a0..08db4262f17 100644 --- a/lisp/mail/feedmail.el +++ b/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 -used. If you are using VM, it might be supplying this header for -you. To suppress VM's version +message Date: header; if there is no queue file, the current time +is used. If you are using VM, it might be supplying this header +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) diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 60689529974..185a7a7441a 100644 --- a/lisp/mail/hashcash.el +++ b/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) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 91291b8d330..93e7cb01334 100644 --- a/lisp/mail/rmail.el +++ b/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) ?-) diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index 95977e826d7..6106183ac04 100644 --- a/lisp/mail/rmailmm.el +++ b/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 -handled according to `rmail-mime-media-type-handlers-alist'. +buffer holding a decoded copy of the message. Inline content-types +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." diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 79a322c1d91..eacfc1f8294 100644 --- a/lisp/mail/rmailsum.el +++ b/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)) diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index ce00a7cf665..556e4b3923f 100644 --- a/lisp/mail/supercite.el +++ b/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)) diff --git a/lisp/man.el b/lisp/man.el index cef3d598eb9..9d21e953d14 100644 --- a/lisp/man.el +++ b/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. diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el index 0f15d3eb71b..809771d6d4e 100644 --- a/lisp/mh-e/mh-acros.el +++ b/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 -modification flag of the buffer in the event window is +After BODY has been executed return to original window. +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 diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el index 2ff8801cd94..5573f22072e 100644 --- a/lisp/mh-e/mh-alias.el +++ b/lisp/mh-e/mh-alias.el @@ -51,10 +51,10 @@ "/usr/lib/mh/MailAliases" "/usr/share/mailutils/mh/MailAliases" "/etc/passwd") "A list of system files which are a source of aliases. -If these files are modified, they are automatically reread. This list +If these files are modified, they are automatically reread. This list need include only system aliases and the passwd file, since personal alias files listed in your \"Aliasfile:\" MH profile component are -automatically included. You can update the alias list manually using +automatically included. You can update the alias list manually using \\[mh-alias-reload]." :type '(repeat file) :group 'mh-alias) @@ -170,9 +170,9 @@ Exclude all aliases already in `mh-alias-alist' from \"ali\"" Since aliases are updated frequently, MH-E reloads aliases automatically whenever an alias lookup occurs if an alias source has -changed. Sources include files listed in your \"Aliasfile:\" profile +changed. Sources include files listed in your \"Aliasfile:\" profile component and your password file if option `mh-alias-local-users' is -turned on. However, you can reload your aliases manually by calling +turned on. However, you can reload your aliases manually by calling this command directly. This function runs `mh-alias-reloaded-hook' after the aliases have @@ -224,8 +224,9 @@ been loaded." (defun mh-alias-ali (alias &optional user) "Return ali expansion for ALIAS. ALIAS must be a string for a single alias. -If USER is t, then assume ALIAS is an address and call ali -user. ali -returns the string unchanged if not defined. The same is done here." +If USER is t, then assume ALIAS is an address and call ali -user. +ali returns the string unchanged if not defined. The same is +done here." (condition-case err (save-excursion (let ((user-arg (if user "-user" "-nouser"))) @@ -378,8 +379,8 @@ NO-COMMA-SWAP is non-nil." (defun mh-alias-canonicalize-suggestion (string) "Process STRING to replace spaces by periods. -First all spaces and commas are replaced by periods. Then every run of -consecutive periods are replaced with a single period. Finally the +First all spaces and commas are replaced by periods. Then every run +of consecutive periods are replaced with a single period. Finally the string is converted to lower case." (with-temp-buffer (insert string) @@ -492,9 +493,9 @@ Prompt for alias file if not provided and there is more than one candidate. If the alias exists already, you will have the choice of -inserting the new alias before or after the old alias. In the +inserting the new alias before or after the old alias. In the former case, this alias will be used when sending mail to this -alias. In the latter case, the alias serves as an additional +alias. In the latter case, the alias serves as an additional folder name hint when filing messages." (if (not file) (setq file (mh-alias-insert-file alias))) @@ -544,10 +545,10 @@ folder name hint when filing messages." (defun mh-alias-add-alias (alias address) "Add ALIAS for ADDRESS in personal alias file. -This function prompts you for an alias and address. If the alias +This function prompts you for an alias and address. If the alias exists already, you will have the choice of inserting the new -alias before or after the old alias. In the former case, this -alias will be used when sending mail to this alias. In the latter +alias before or after the old alias. In the former case, this +alias will be used when sending mail to this alias. In the latter case, the alias serves as an additional folder name hint when filing messages." (interactive "P\nP") diff --git a/lisp/mouse.el b/lisp/mouse.el index e947e16d47f..123ce2ca154 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1592,7 +1592,7 @@ previous region was just saved to the kill ring). If this command is called a second consecutive time with the same CLICK position, kill the region (or delete it -if `mouse-drag-copy-region' is non-nil)" +if `mouse-drag-copy-region' is non-nil)." (interactive "e") (mouse-minibuffer-check click) (let* ((posn (event-start click)) diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 87a8248854f..ce899bdee57 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -877,7 +877,7 @@ The optional NEW-WINDOW argument is not used." (defun browse-url-default-macosx-browser (url &optional _new-window) "Invoke the macOS system's default Web browser. -The optional NEW-WINDOW argument is not used" +The optional NEW-WINDOW argument is not used." (interactive (browse-url-interactive-arg "URL: ")) (start-process (concat "open " url) nil "open" url)) diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 3c9c01d0f96..586dd210ed5 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -229,7 +229,7 @@ The current binding of VAR is changed only if SERVER is omitted." (defun eudc-set (var val) "Set the most local (server, protocol or default) binding of VAR to VAL. -The current binding of VAR is also set to VAL" +The current binding of VAR is also set to VAL." (cond ((not (eq 'unbound (eudc-variable-server-value var))) (eudc-server-set var val)) @@ -251,7 +251,7 @@ Return `unbound' if VAR has no EUDC default value." (defun eudc-variable-protocol-value (var &optional protocol) "Return the value of VAR local to PROTOCOL. Return `unbound' if VAR has no value local to PROTOCOL. -PROTOCOL defaults to `eudc-protocol'" +PROTOCOL defaults to `eudc-protocol'." (let* ((eudc-locals (get var 'eudc-locals)) protocol-locals) (if (not (and (boundp var) @@ -266,7 +266,7 @@ PROTOCOL defaults to `eudc-protocol'" (defun eudc-variable-server-value (var &optional server) "Return the value of VAR local to SERVER. Return `unbound' if VAR has no value local to SERVER. -SERVER defaults to `eudc-server'" +SERVER defaults to `eudc-server'." (let* ((eudc-locals (get var 'eudc-locals)) server-locals) (if (not (and (boundp var) @@ -282,7 +282,7 @@ SERVER defaults to `eudc-server'" "Set the value of VAR according to its locals. If the VAR has a server- or protocol-local value corresponding to the current `eudc-server' and `eudc-protocol' then it is set -accordingly. Otherwise it is set to its EUDC default binding" +accordingly. Otherwise it is set to its EUDC default binding." (let (val) (cond ((not (eq 'unbound (setq val (eudc-variable-server-value var)))) @@ -775,7 +775,7 @@ After querying the server for the given string, the expansion specified by If REPLACE is non-nil, then this expansion replaces the name in the buffer. `eudc-expansion-overwrites-query' being non-nil inverts the meaning of REPLACE. Multiple servers can be tried with the same query until one finds a match, -see `eudc-inline-expansion-servers'" +see `eudc-inline-expansion-servers'." (interactive) (cond ((eq eudc-inline-expansion-servers 'current-server) diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el index f91d0af858d..f9b3c47a4bf 100644 --- a/lisp/net/eudcb-bbdb.el +++ b/lisp/net/eudcb-bbdb.el @@ -179,7 +179,7 @@ BBDB < 3 used `net'; BBDB >= 3 uses `mail'." (defun eudc-bbdb-format-record-as-result (record) "Format the BBDB RECORD as a EUDC query result record. -The record is filtered according to `eudc-bbdb-current-return-attributes'" +The record is filtered according to `eudc-bbdb-current-return-attributes'." (require 'bbdb) (let ((attrs (or eudc-bbdb-current-return-attributes '(firstname lastname aka company phones addresses net notes))) diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el index 7514d1ad299..464c62da123 100644 --- a/lisp/net/eudcb-ldap.el +++ b/lisp/net/eudcb-ldap.el @@ -148,7 +148,7 @@ RETURN-ATTRS is a list of attributes to return, defaulting to (defun eudc-ldap-get-field-list (_dummy &optional objectclass) "Return a list of valid attribute names for the current server. OBJECTCLASS is the LDAP object class for which the valid -attribute names are returned. Default to `person'" +attribute names are returned. Default to `person'." (interactive) (or eudc-server (call-interactively 'eudc-set-server)) diff --git a/lisp/net/pop3.el b/lisp/net/pop3.el index 5f1cd94eb60..74a632a3a20 100644 --- a/lisp/net/pop3.el +++ b/lisp/net/pop3.el @@ -710,7 +710,7 @@ If NOW, use that time instead." (defun pop3-list (process &optional msg) "If MSG is nil, return an alist of (MESSAGE-ID . SIZE) pairs. -Otherwise, return the size of the message-id MSG" +Otherwise, return the size of the message-id MSG." (pop3-send-command process (if msg (format "LIST %d" msg) "LIST")) diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el index 7ce7d79c742..3f9eb5cb894 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el @@ -334,7 +334,7 @@ element name." "Store ELEMENT in NS. Multiple elements with the same name can be stored in a namespace. When retrieving the element you can specify a -discriminant predicate to `soap-namespace-get'" +discriminant predicate to `soap-namespace-get'." (let ((name (soap-element-name element))) (push element (gethash name (soap-namespace-elements ns))))) @@ -1476,7 +1476,7 @@ This is a specialization of `soap-decode-type' for (defun soap-xs-parse-sequence (node) "Parse a sequence definition from XML NODE. -Returns a `soap-xs-complex-type'" +Returns a `soap-xs-complex-type'." (cl-assert (memq (soap-l2wk (xml-node-name node)) '(xsd:sequence xsd:choice xsd:all)) nil @@ -2814,7 +2814,7 @@ decode function to perform the actual decoding." (defun soap-parse-envelope (node operation wsdl) "Parse the SOAP envelope in NODE and return the response. OPERATION is the WSDL operation for which we expect the response, -WSDL is used to decode the NODE" +WSDL is used to decode the NODE." (soap-with-local-xmlns node (cl-assert (eq (soap-l2wk (xml-node-name node)) 'soap:Envelope) nil diff --git a/lisp/net/soap-inspect.el b/lisp/net/soap-inspect.el index 17b667504fd..63c5ac53c26 100644 --- a/lisp/net/soap-inspect.el +++ b/lisp/net/soap-inspect.el @@ -355,7 +355,7 @@ ATTRIBUTE is a soap-xs-attribute-group." (defun soap-inspect-xs-complex-type (type) "Insert information about TYPE in the current buffer. -TYPE is a `soap-xs-complex-type'" +TYPE is a `soap-xs-complex-type'." (insert "Complex type: " (soap-element-fq-name type)) (insert "\nKind: ") (cl-case (soap-xs-complex-type-indicator type) diff --git a/lisp/nxml/rng-xsd.el b/lisp/nxml/rng-xsd.el index 582d08e149f..5aa850f5895 100644 --- a/lisp/nxml/rng-xsd.el +++ b/lisp/nxml/rng-xsd.el @@ -550,7 +550,7 @@ fractional part of the second." (< (car numbers1) (car numbers2)))) (defun rng-xsd-date-to-days (year month day) - "Return a unique day number where Jan 1 1 AD is day 1" + "Return a unique day number where Jan 1 1 AD is day 1." (if (> year 0) ; AD (+ (rng-xsd-days-in-years (- year 1)) (rng-xsd-day-number-in-year year month day)) diff --git a/lisp/org/ob-C.el b/lisp/org/ob-C.el index 36d79986dc4..e08773bc977 100644 --- a/lisp/org/ob-C.el +++ b/lisp/org/ob-C.el @@ -299,12 +299,12 @@ its header arguments." (defun org-babel-prep-session:C (_session _params) "This function does nothing as C is a compiled language with no -support for sessions" +support for sessions." (error "C is a compiled language -- no support for sessions")) (defun org-babel-load-session:C (_session _body _params) "This function does nothing as C is a compiled language with no -support for sessions" +support for sessions." (error "C is a compiled language -- no support for sessions")) ;; helper functions diff --git a/lisp/org/ob-J.el b/lisp/org/ob-J.el index b9125df0843..2d1715ac87a 100644 --- a/lisp/org/ob-J.el +++ b/lisp/org/ob-J.el @@ -72,7 +72,7 @@ PROCESSED-PARAMS isn't used yet." (defun org-babel-execute:J (body params) "Execute a block of J code BODY. PARAMS are given by org-babel. -This function is called by `org-babel-execute-src-block'" +This function is called by `org-babel-execute-src-block'." (message "executing J source code block") (let* ((processed-params (org-babel-process-params params)) (sessionp (cdr (assq :session params))) diff --git a/lisp/org/ob-asymptote.el b/lisp/org/ob-asymptote.el index 667d3e106bc..3fc0cebd600 100644 --- a/lisp/org/ob-asymptote.el +++ b/lisp/org/ob-asymptote.el @@ -77,7 +77,7 @@ This function is called by `org-babel-execute-src-block'." (defun org-babel-prep-session:asymptote (_session _params) "Return an error if the :session header argument is set. -Asymptote does not support sessions" +Asymptote does not support sessions." (error "Asymptote does not support sessions")) (defun org-babel-variable-assignments:asymptote (params) diff --git a/lisp/org/ob-awk.el b/lisp/org/ob-awk.el index 4c0dbbc67d8..0d5f47d56f3 100644 --- a/lisp/org/ob-awk.el +++ b/lisp/org/ob-awk.el @@ -48,8 +48,8 @@ body) (defun org-babel-execute:awk (body params) - "Execute a block of Awk code with org-babel. This function is -called by `org-babel-execute-src-block'" + "Execute a block of Awk code with org-babel. +This function is called by `org-babel-execute-src-block'." (message "executing Awk source code block") (let* ((result-params (cdr (assq :result-params params))) (cmd-line (cdr (assq :cmd-line params))) diff --git a/lisp/org/ob-core.el b/lisp/org/ob-core.el index b6c54a92ab6..8e9e3edb1c8 100644 --- a/lisp/org/ob-core.el +++ b/lisp/org/ob-core.el @@ -2975,7 +2975,7 @@ If NAME specifies a remote location, the remote portion of the name is removed, since in that case the process will be executing remotely. The file name is then processed by `expand-file-name'. Unless second argument NO-QUOTE-P is non-nil, the file name is -additionally processed by `shell-quote-argument'" +additionally processed by `shell-quote-argument'." (let ((f (org-babel-local-file-name (expand-file-name name)))) (if no-quote-p f (shell-quote-argument f)))) diff --git a/lisp/org/ob-ebnf.el b/lisp/org/ob-ebnf.el index 5ed9319e56f..c229228520c 100644 --- a/lisp/org/ob-ebnf.el +++ b/lisp/org/ob-ebnf.el @@ -49,8 +49,8 @@ ;; Use ebnf-eps-buffer to produce an encapsulated postscript file. ;; (defun org-babel-execute:ebnf (body params) - "Execute a block of Ebnf code with org-babel. This function is -called by `org-babel-execute-src-block'" + "Execute a block of Ebnf code with org-babel. +This function is called by `org-babel-execute-src-block'." (save-excursion (let* ((dest-file (cdr (assq :file params))) (dest-dir (file-name-directory dest-file)) diff --git a/lisp/org/ob-forth.el b/lisp/org/ob-forth.el index 88ed964fd77..de42042a5b5 100644 --- a/lisp/org/ob-forth.el +++ b/lisp/org/ob-forth.el @@ -42,7 +42,7 @@ (defun org-babel-execute:forth (body params) "Execute a block of Forth code with org-babel. -This function is called by `org-babel-execute-src-block'" +This function is called by `org-babel-execute-src-block'." (if (string= "none" (cdr (assq :session params))) (error "Non-session evaluation not supported for Forth code blocks") (let ((all-results (org-babel-forth-session-execute body params))) diff --git a/lisp/org/ob-fortran.el b/lisp/org/ob-fortran.el index 579fb319c41..976c611bde4 100644 --- a/lisp/org/ob-fortran.el +++ b/lisp/org/ob-fortran.el @@ -46,7 +46,7 @@ executable.") (defun org-babel-execute:fortran (body params) - "This function should only be called by `org-babel-execute:fortran'" + "This function should only be called by `org-babel-execute:fortran'." (let* ((tmp-src-file (org-babel-temp-file "fortran-src-" ".F90")) (tmp-bin-file (org-babel-temp-file "fortran-bin-" org-babel-exeext)) (cmdline (cdr (assq :cmdline params))) @@ -115,12 +115,12 @@ its header arguments." (defun org-babel-prep-session:fortran (_session _params) "This function does nothing as fortran is a compiled language with no -support for sessions" +support for sessions." (error "Fortran is a compiled languages -- no support for sessions")) (defun org-babel-load-session:fortran (_session _body _params) "This function does nothing as fortran is a compiled language with no -support for sessions" +support for sessions." (error "Fortran is a compiled languages -- no support for sessions")) ;; helper functions diff --git a/lisp/org/ob-groovy.el b/lisp/org/ob-groovy.el index fe3a072f171..a22e21df097 100644 --- a/lisp/org/ob-groovy.el +++ b/lisp/org/ob-groovy.el @@ -45,8 +45,8 @@ parameters may be used, like groovy -v" :type 'string) (defun org-babel-execute:groovy (body params) - "Execute a block of Groovy code with org-babel. This function is -called by `org-babel-execute-src-block'" + "Execute a block of Groovy code with org-babel. +This function is called by `org-babel-execute-src-block'." (message "executing Groovy source code block") (let* ((processed-params (org-babel-process-params params)) (session (org-babel-groovy-initiate-session (nth 0 processed-params))) diff --git a/lisp/org/ob-io.el b/lisp/org/ob-io.el index b0d5b512839..9817c64150b 100644 --- a/lisp/org/ob-io.el +++ b/lisp/org/ob-io.el @@ -41,8 +41,8 @@ "Name of the command to use for executing Io code.") (defun org-babel-execute:io (body params) - "Execute a block of Io code with org-babel. This function is -called by `org-babel-execute-src-block'" + "Execute a block of Io code with org-babel. +This function is called by `org-babel-execute-src-block'." (message "executing Io source code block") (let* ((processed-params (org-babel-process-params params)) (session (org-babel-io-initiate-session (nth 0 processed-params))) diff --git a/lisp/org/ob-js.el b/lisp/org/ob-js.el index 233aa581617..dab3aa2fbda 100644 --- a/lisp/org/ob-js.el +++ b/lisp/org/ob-js.el @@ -60,7 +60,7 @@ (defun org-babel-execute:js (body params) "Execute a block of Javascript code with org-babel. -This function is called by `org-babel-execute-src-block'" +This function is called by `org-babel-execute-src-block'." (let* ((org-babel-js-cmd (or (cdr (assq :cmd params)) org-babel-js-cmd)) (result-type (cdr (assq :result-type params))) (full-body (org-babel-expand-body:generic diff --git a/lisp/org/ob-lilypond.el b/lisp/org/ob-lilypond.el index 25e5dbc7dc4..c07ae784600 100644 --- a/lisp/org/ob-lilypond.el +++ b/lisp/org/ob-lilypond.el @@ -41,20 +41,20 @@ (defvar org-babel-default-header-args:lilypond '() "Default header arguments for lilypond code blocks. NOTE: The arguments are determined at lilypond compile time. -See (org-babel-lilypond-set-header-args)") +See `org-babel-lilypond-set-header-args'.") (defvar org-babel-lilypond-compile-post-tangle t "Following the org-babel-tangle (C-c C-v t) command, org-babel-lilypond-compile-post-tangle determines whether ob-lilypond should automatically attempt to compile the resultant tangled file. If the value is nil, no automated compilation takes place. -Default value is t") +Default value is t.") (defvar org-babel-lilypond-display-pdf-post-tangle t "Following a successful LilyPond compilation org-babel-lilypond-display-pdf-post-tangle determines whether to automate the drawing / redrawing of the resultant pdf. If the value is nil, -the pdf is not automatically redrawn. Default value is t") +the pdf is not automatically redrawn. Default value is t.") (defvar org-babel-lilypond-play-midi-post-tangle t "Following a successful LilyPond compilation @@ -150,7 +150,7 @@ Depending on whether we are in arrange mode either: (defun org-babel-lilypond-tangle () "ob-lilypond specific tangle, attempts to invoke =ly-execute-tangled-ly= if tangle is successful. Also passes -specific arguments to =org-babel-tangle=" +specific arguments to =org-babel-tangle=." (interactive) (if (org-babel-tangle nil "yes" "lilypond") (org-babel-lilypond-execute-tangled-ly) nil)) @@ -187,7 +187,7 @@ specific arguments to =org-babel-tangle=" (defun org-babel-lilypond-execute-tangled-ly () "Compile result of block tangle with lilypond. -If error in compilation, attempt to mark the error in lilypond org file" +If error in compilation, attempt to mark the error in lilypond org file." (when org-babel-lilypond-compile-post-tangle (let ((org-babel-lilypond-tangled-file (org-babel-lilypond-switch-extension (buffer-file-name) ".lilypond")) @@ -210,8 +210,8 @@ If error in compilation, attempt to mark the error in lilypond org file" (org-babel-lilypond-attempt-to-play-midi org-babel-lilypond-temp-file))))) (defun org-babel-lilypond-compile-lilyfile (file-name &optional test) - "Compile lilypond file and check for compile errors -FILE-NAME is full path to lilypond (.ly) file" + "Compile lilypond file and check for compile errors. +FILE-NAME is full path to lilypond (.ly) file." (message "Compiling LilyPond...") (let ((arg-1 org-babel-lilypond-ly-command) ;program (arg-2 nil) ;infile @@ -237,7 +237,7 @@ This is performed by parsing the *lilypond* buffer containing the output message from the compilation. FILE-NAME is full path to lilypond file. If TEST is t just return nil if no error found, and pass -nil as file-name since it is unused in this context" +nil as file-name since it is unused in this context." (let ((is-error (search-forward "error:" nil t))) (if test is-error @@ -246,7 +246,7 @@ nil as file-name since it is unused in this context" (defun org-babel-lilypond-process-compile-error (file-name) "Process the compilation error that has occurred. -FILE-NAME is full path to lilypond file" +FILE-NAME is full path to lilypond file." (let ((line-num (org-babel-lilypond-parse-line-num))) (let ((error-lines (org-babel-lilypond-parse-error-line file-name line-num))) (org-babel-lilypond-mark-error-line file-name error-lines) @@ -255,7 +255,7 @@ FILE-NAME is full path to lilypond file" (defun org-babel-lilypond-mark-error-line (file-name line) "Mark the erroneous lines in the lilypond org buffer. FILE-NAME is full path to lilypond file. -LINE is the erroneous line" +LINE is the erroneous line." (switch-to-buffer-other-window (concat (file-name-nondirectory (org-babel-lilypond-switch-extension file-name ".org")))) @@ -286,9 +286,9 @@ LINE is the erroneous line" (and (numberp num) num))))) (defun org-babel-lilypond-parse-error-line (file-name lineNo) - "Extract the erroneous line from the tangled .ly file + "Extract the erroneous line from the tangled .ly file. FILE-NAME is full path to lilypond file. -LINENO is the number of the erroneous line" +LINENO is the number of the erroneous line." (with-temp-buffer (insert-file-contents (org-babel-lilypond-switch-extension file-name ".ly") nil nil nil t) @@ -300,9 +300,9 @@ LINENO is the number of the erroneous line" nil))) (defun org-babel-lilypond-attempt-to-open-pdf (file-name &optional test) - "Attempt to display the generated pdf file -FILE-NAME is full path to lilypond file -If TEST is non-nil, the shell command is returned and is not run" + "Attempt to display the generated pdf file. +FILE-NAME is full path to lilypond file. +If TEST is non-nil, the shell command is returned and is not run." (when org-babel-lilypond-display-pdf-post-tangle (let ((pdf-file (org-babel-lilypond-switch-extension file-name ".pdf"))) (if (file-exists-p pdf-file) @@ -318,9 +318,9 @@ If TEST is non-nil, the shell command is returned and is not run" (message "No pdf file generated so can't display!"))))) (defun org-babel-lilypond-attempt-to-play-midi (file-name &optional test) - "Attempt to play the generated MIDI file -FILE-NAME is full path to lilypond file -If TEST is non-nil, the shell command is returned and is not run" + "Attempt to play the generated MIDI file. +FILE-NAME is full path to lilypond file. +If TEST is non-nil, the shell command is returned and is not run." (when org-babel-lilypond-play-midi-post-tangle (let ((midi-file (org-babel-lilypond-switch-extension file-name ".midi"))) (if (file-exists-p midi-file) @@ -383,14 +383,13 @@ If TEST is non-nil, the shell command is returned and is not run" (if org-babel-lilypond-arrange-mode "ENABLED." "DISABLED.")))) (defun org-babel-lilypond-switch-extension (file-name ext) - "Utility command to swap current FILE-NAME extension with EXT" + "Utility command to swap current FILE-NAME extension with EXT." (concat (file-name-sans-extension file-name) ext)) (defun org-babel-lilypond-get-header-args (mode) - "Default arguments to use when evaluating a lilypond -source block. These depend upon whether we are in arrange -mode i.e. ARRANGE-MODE is t" + "Default arguments to use when evaluating a lilypond source block. +These depend upon whether we are in Arrange mode i.e. MODE is t." (cond (mode '((:tangle . "yes") (:noweb . "yes") @@ -403,7 +402,7 @@ mode i.e. ARRANGE-MODE is t" (defun org-babel-lilypond-set-header-args (mode) "Set org-babel-default-header-args:lilypond -dependent on ORG-BABEL-LILYPOND-ARRANGE-MODE" +dependent on ORG-BABEL-LILYPOND-ARRANGE-MODE." (setq org-babel-default-header-args:lilypond (org-babel-lilypond-get-header-args mode))) diff --git a/lisp/org/ob-lua.el b/lisp/org/ob-lua.el index 6f779413eb6..9b152f29f4e 100644 --- a/lisp/org/ob-lua.el +++ b/lisp/org/ob-lua.el @@ -101,7 +101,7 @@ This function is called by `org-babel-execute-src-block'." (defun org-babel-prep-session:lua (session params) "Prepare SESSION according to the header arguments in PARAMS. -VARS contains resolved variable references" +VARS contains resolved variable references." (let* ((session (org-babel-lua-initiate-session session)) (var-lines (org-babel-variable-assignments:lua params))) diff --git a/lisp/org/ob-picolisp.el b/lisp/org/ob-picolisp.el index c0f012572ee..4f702529866 100644 --- a/lisp/org/ob-picolisp.el +++ b/lisp/org/ob-picolisp.el @@ -94,8 +94,8 @@ body))) (defun org-babel-execute:picolisp (body params) - "Execute a block of Picolisp code with org-babel. This function is - called by `org-babel-execute-src-block'" + "Execute a block of Picolisp code with org-babel. +This function is called by `org-babel-execute-src-block'." (message "executing Picolisp source code block") (let* ( ;; Name of the session or "none". diff --git a/lisp/org/ob-processing.el b/lisp/org/ob-processing.el index 97ab88cbef6..7bb9fa1bc94 100644 --- a/lisp/org/ob-processing.el +++ b/lisp/org/ob-processing.el @@ -135,7 +135,7 @@ This function is called by `org-babel-execute-src-block'." (defun org-babel-prep-session:processing (_session _params) "Return an error if the :session header argument is set. -Processing does not support sessions" +Processing does not support sessions." (error "Processing does not support sessions")) (defun org-babel-variable-assignments:processing (params) diff --git a/lisp/org/ob-python.el b/lisp/org/ob-python.el index 546e35a6a9b..b10320ee532 100644 --- a/lisp/org/ob-python.el +++ b/lisp/org/ob-python.el @@ -98,7 +98,7 @@ This function is called by `org-babel-execute-src-block'." (defun org-babel-prep-session:python (session params) "Prepare SESSION according to the header arguments in PARAMS. -VARS contains resolved variable references" +VARS contains resolved variable references." (let* ((session (org-babel-python-initiate-session session)) (var-lines (org-babel-variable-assignments:python params))) diff --git a/lisp/org/ob-ruby.el b/lisp/org/ob-ruby.el index e0e1765f881..309bd15a00a 100644 --- a/lisp/org/ob-ruby.el +++ b/lisp/org/ob-ruby.el @@ -215,7 +215,7 @@ return the value of the last statement in BODY, as elisp." (let ((eoe-string (format "puts \"%s\"" org-babel-ruby-eoe-indicator))) ;; Force the session to be ready before the actual session ;; code is run. There is some problem in comint that will - ;; sometimes show the prompt after the the input has already + ;; sometimes show the prompt after the input has already ;; been inserted and that throws off the extraction of the ;; result for Babel. (org-babel-comint-with-output diff --git a/lisp/org/ob-scheme.el b/lisp/org/ob-scheme.el index 798cf4eb0c3..af5c7f26d6f 100644 --- a/lisp/org/ob-scheme.el +++ b/lisp/org/ob-scheme.el @@ -132,7 +132,7 @@ org-babel-scheme-execute-with-geiser will use a temporary session." (name))) (defmacro org-babel-scheme-capture-current-message (&rest body) - "Capture current message in both interactive and noninteractive mode" + "Capture current message in both interactive and noninteractive mode." `(if noninteractive (let ((original-message (symbol-function 'message)) (current-message nil)) @@ -148,10 +148,11 @@ org-babel-scheme-execute-with-geiser will use a temporary session." (current-message)))) (defun org-babel-scheme-execute-with-geiser (code output impl repl) - "Execute code in specified REPL. If the REPL doesn't exist, create it -using the given scheme implementation. + "Execute code in specified REPL. +If the REPL doesn't exist, create it using the given scheme +implementation. -Returns the output of executing the code if the output parameter +Returns the output of executing the code if the OUTPUT parameter is true; otherwise returns the last value." (let ((result nil)) (with-temp-buffer @@ -199,7 +200,7 @@ Emacs-lisp table, otherwise return the results as a string." (defun org-babel-execute:scheme (body params) "Execute a block of Scheme code with org-babel. -This function is called by `org-babel-execute-src-block'" +This function is called by `org-babel-execute-src-block'." (let* ((source-buffer (current-buffer)) (source-buffer-name (replace-regexp-in-string ;; zap surrounding * "^ ?\\*\\([^*]+\\)\\*" "\\1" diff --git a/lisp/org/ob-shen.el b/lisp/org/ob-shen.el index af3bd2ba388..f2daa67606f 100644 --- a/lisp/org/ob-shen.el +++ b/lisp/org/ob-shen.el @@ -61,7 +61,7 @@ (defun org-babel-execute:shen (body params) "Execute a block of Shen code with org-babel. -This function is called by `org-babel-execute-src-block'" +This function is called by `org-babel-execute-src-block'." (require 'inf-shen) (let* ((result-params (cdr (assq :result-params params))) (full-body (org-babel-expand-body:shen body params))) diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index e50ec3cf08f..66c3d965e09 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -267,7 +267,7 @@ you can \"misuse\" it to also add other text to the header." "List of types searched for when creating the daily/weekly agenda. This variable is a list of symbols that controls the types of items that appear in the daily/weekly agenda. Allowed symbols in this -list are are +list are :timestamp List items containing a date stamp or date range matching the selected date. This includes sexp entries in angular @@ -1225,9 +1225,9 @@ These days get the special face `org-agenda-date-weekend' in the agenda." (defcustom org-agenda-move-date-from-past-immediately-to-today t "Non-nil means jump to today when moving a past date forward in time. -When using S-right in the agenda to move a a date forward, and the date +When using S-right in the agenda to move a date forward, and the date stamp currently points to the past, the first key press will move it -to today. WHen nil, just move one day forward even if the date stays +to today. When nil, just move one day forward even if the date stays in the past." :group 'org-agenda-daily/weekly :version "24.1" @@ -1498,7 +1498,7 @@ The third item is a string which will be placed right after the times that have a grid line. The fourth item is a string placed after the grid times. This -will align with agenda items" +will align with agenda items." :group 'org-agenda-time-grid :type '(list @@ -1542,18 +1542,18 @@ This is a list of symbols which will be used in sequence to determine if an entry should be listed before another entry. The following symbols are recognized: -time-up Put entries with time-of-day indications first, early first -time-down Put entries with time-of-day indications first, late first -timestamp-up Sort by any timestamp, early first -timestamp-down Sort by any timestamp, late first -scheduled-up Sort by scheduled timestamp, early first -scheduled-down Sort by scheduled timestamp, late first -deadline-up Sort by deadline timestamp, early first -deadline-down Sort by deadline timestamp, late first -ts-up Sort by active timestamp, early first -ts-down Sort by active timestamp, late first -tsia-up Sort by inactive timestamp, early first -tsia-down Sort by inactive timestamp, late first +time-up Put entries with time-of-day indications first, early first. +time-down Put entries with time-of-day indications first, late first. +timestamp-up Sort by any timestamp, early first. +timestamp-down Sort by any timestamp, late first. +scheduled-up Sort by scheduled timestamp, early first. +scheduled-down Sort by scheduled timestamp, late first. +deadline-up Sort by deadline timestamp, early first. +deadline-down Sort by deadline timestamp, late first. +ts-up Sort by active timestamp, early first. +ts-down Sort by active timestamp, late first. +tsia-up Sort by inactive timestamp, early first. +tsia-down Sort by inactive timestamp, late first. category-keep Keep the default order of categories, corresponding to the sequence in `org-agenda-files'. category-up Sort alphabetically by category, A-Z. @@ -1568,10 +1568,10 @@ effort-up Sort numerically by estimated effort, high effort last. effort-down Sort numerically by estimated effort, high effort first. user-defined-up Sort according to `org-agenda-cmp-user-defined', high last. user-defined-down Sort according to `org-agenda-cmp-user-defined', high first. -habit-up Put entries that are habits first -habit-down Put entries that are habits last -alpha-up Sort headlines alphabetically -alpha-down Sort headlines alphabetically, reversed +habit-up Put entries that are habits first. +habit-down Put entries that are habits last. +alpha-up Sort headlines alphabetically. +alpha-down Sort headlines alphabetically, reversed. The different possibilities will be tried in sequence, and testing stops if one comparison returns a \"not-equal\". For example, the default @@ -7365,8 +7365,7 @@ With a prefix argument, do so in all agenda buffers." "Filter lines in the agenda buffer that have a specific category. The category is that of the current line. Without prefix argument, keep only the lines of that category. -With a prefix argument, exclude the lines of that category. -" +With a prefix argument, exclude the lines of that category." (interactive "P") (if (and org-agenda-filtered-by-category org-agenda-category-filter) @@ -7882,7 +7881,7 @@ Negative selection means regexp must not match for selection of an entry." (defun org-agenda-forward-block (&optional backward) "Move forward by one agenda block. -When optional argument BACKWARD is set, go backward" +When optional argument BACKWARD is set, go backward." (interactive) (cond ((not (derived-mode-p 'org-agenda-mode)) (user-error diff --git a/lisp/org/org-colview.el b/lisp/org/org-colview.el index 799cc608bfa..51a8eff33d7 100644 --- a/lisp/org/org-colview.el +++ b/lisp/org/org-colview.el @@ -307,7 +307,7 @@ integers greater than 0." (error "Unknown %S operator" operator))))) (defun org-columns--overlay-text (value fmt width property original) - "Return text " + "Return text." (format fmt (let ((v (org-columns-add-ellipses value width))) (pcase property diff --git a/lisp/org/org-faces.el b/lisp/org/org-faces.el index 7ab5736e87a..ffd1c4494fc 100644 --- a/lisp/org/org-faces.el +++ b/lisp/org/org-faces.el @@ -409,7 +409,7 @@ See also `org-fontify-quote-and-verse-blocks'." :group 'org-faces) (defface org-verbatim '((t (:inherit shadow))) - "Face for fixed-with text like code snippets" + "Face for fixed-with text like code snippets." :group 'org-faces :version "22.1") @@ -602,8 +602,8 @@ If it is less than 8, the level-1 face gets re-used for level N+1 etc." (defcustom org-cycle-level-faces t "Non-nil means level styles cycle after level `org-n-level-faces'. Then so level org-n-level-faces+1 is styled like level 1. -If nil, then all levels >=org-n-level-faces are styled like -level org-n-level-faces" +If nil, then all levels >= org-n-level-faces are styled like +level org-n-level-faces." :group 'org-appearance :group 'org-faces :version "24.1" diff --git a/lisp/org/org-indent.el b/lisp/org/org-indent.el index 97cf8786566..4904d8177e1 100644 --- a/lisp/org/org-indent.el +++ b/lisp/org/org-indent.el @@ -298,7 +298,7 @@ LEVEL is the current level of heading. INDENTATION is the expected indentation when wrapping line. When optional argument HEADING is non-nil, assume line is at -a heading. Moreover, if is is `inlinetask', the first star will +a heading. Moreover, if it is `inlinetask', the first star will have `org-warning' face." (let* ((line (aref (pcase heading (`nil org-indent--text-line-prefixes) diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el index 3c768244331..bb96a06165e 100644 --- a/lisp/org/org-macs.el +++ b/lisp/org/org-macs.el @@ -340,7 +340,7 @@ point nowhere." (defvar org-inlinetask-min-level) ; defined in org-inlinetask.el (defun org-get-limited-outline-regexp () "Return outline-regexp with limited number of levels. -The number of levels is controlled by `org-inlinetask-min-level'" +The number of levels is controlled by `org-inlinetask-min-level'." (cond ((not (derived-mode-p 'org-mode)) outline-regexp) ((not (featurep 'org-inlinetask)) diff --git a/lisp/org/org-mobile.el b/lisp/org/org-mobile.el index a1552606eb5..dba6ca22f9b 100644 --- a/lisp/org/org-mobile.el +++ b/lisp/org/org-mobile.el @@ -55,7 +55,7 @@ org-agenda-files the variable `org-agenda-files'. org-agenda-text-search-extra-files Include the files given in the variable - `org-agenda-text-search-extra-files'" + `org-agenda-text-search-extra-files'." :group 'org-mobile :type '(list :greedy t (option (const :tag "org-agenda-files" org-agenda-files)) diff --git a/lisp/org/org.el b/lisp/org/org.el index 1bb46e49c74..ca223d6ee29 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el @@ -2710,7 +2710,7 @@ selection scheme. When nil, fast selection is never used. When the symbol `prefix', it will be used when `org-todo' is called -with a prefix argument, i.e. `\\[universal-argument] \\[org-todo]' \ +with a prefix argument, i.e. `\\[universal-argument] \\[org-todo]' \ in an Org buffer, and `\\[universal-argument] t' in an agenda buffer. @@ -3355,7 +3355,7 @@ When nil, only the minibuffer will be available." (defcustom org-extend-today-until 0 "The hour when your day really ends. Must be an integer. This has influence for the following applications: -- When switching the agenda to \"today\". It it is still earlier than +- When switching the agenda to \"today\". If it is still earlier than the time given here, the day recognized as TODAY is actually yesterday. - When a date is read from the user and it is still before the time given here, the current date and time will be assumed to be yesterday, 23:59. @@ -3676,7 +3676,7 @@ and the properties ending in \"_ALL\" when they are used as descriptor for valid values of a property. Note for programmers: -When querying an entry with `org-entry-get', you can control if inheritance +When querying an entry with `org-entry-get', you can control if inheritance should be used. By default, `org-entry-get' looks only at the local properties. You can request inheritance by setting the inherit argument to t (to force inheritance) or to `selective' (to respect the setting @@ -9562,7 +9562,7 @@ sub-tree if optional argument INHERIT is non-nil." 'org-stats stats))))))) (defun org-refresh-effort-properties () - "Refresh effort properties" + "Refresh effort properties." (org-refresh-properties org-effort-property '((effort . identity) @@ -10492,7 +10492,7 @@ This is saved in case the need arises to restore it.") This command can be called in any mode to follow an external link or a time-stamp that has Org mode syntax. Its behavior is undefined when called on internal links (e.g., fuzzy links). -Raise an error when there is nothing to follow. " +Raise an error when there is nothing to follow." (interactive) (cond ((org-in-regexp org-any-link-re) (org-open-link-from-string (match-string-no-properties 0))) @@ -12661,7 +12661,7 @@ not relevant for the behavior, but it makes things more visible. Note that toggling the tag with tags commands will not change the property and therefore not influence behavior! -This can be t, meaning the tag ORDERED should be used, It can also be a +This can be t, meaning the tag ORDERED should be used. It can also be a string to select a different tag for this task." :group 'org-todo :type '(choice @@ -20489,7 +20489,7 @@ depending on context. See the individual commands for more information." Depending on context, this does one of the following: - switch a timestamp at point one day into the future -- on a headline, switch to the next TODO keyword. +- on a headline, switch to the next TODO keyword - on an item, switch entire list to the next bullet type - on a property line, switch to the next allowed value - on a clocktable definition line, move time block into the future" diff --git a/lisp/org/ox-html.el b/lisp/org/ox-html.el index 1f98fcdd5cf..8445f236bae 100644 --- a/lisp/org/ox-html.el +++ b/lisp/org/ox-html.el @@ -1138,7 +1138,7 @@ checkboxes. The other two use the `off' checkbox for `trans'.") (defcustom org-html-checkbox-type 'ascii "The type of checkboxes to use for HTML export. -See `org-html-checkbox-types' for for the values used for each +See `org-html-checkbox-types' for the values used for each option." :group 'org-export-html :version "24.4" diff --git a/lisp/org/ox-latex.el b/lisp/org/ox-latex.el index b029f828e4f..e617317a062 100644 --- a/lisp/org/ox-latex.el +++ b/lisp/org/ox-latex.el @@ -3319,7 +3319,7 @@ property." (let ((attr (org-export-read-attribute :attr_latex table))) (when (plist-get attr :rmlines) ;; When the "rmlines" attribute is provided, remove all hlines - ;; but the the one separating heading from the table body. + ;; but the one separating heading from the table body. (let ((n 0) (pos 0)) (while (and (< (length output) pos) (setq pos (string-match "^\\\\hline\n?" output pos))) diff --git a/lisp/org/ox-man.el b/lisp/org/ox-man.el index 816cc3662e3..c0b0f7d223b 100644 --- a/lisp/org/ox-man.el +++ b/lisp/org/ox-man.el @@ -159,7 +159,7 @@ When nil, no transformation is made." ;; Src blocks (defcustom org-man-source-highlight nil - "Use GNU source highlight to embellish source blocks " + "Use GNU source highlight to embellish source blocks." :group 'org-export-man :version "24.4" :package-version '(Org . "8.0") @@ -1042,7 +1042,7 @@ holding contextual information." (defun org-man-verse-block (_verse-block contents _info) "Transcode a VERSE-BLOCK element from Org to Man. -CONTENTS is verse block contents. INFO is a plist holding +CONTENTS is verse block contents. INFO is a plist holding contextual information." (format ".RS\n.ft I\n%s\n.ft\n.RE" contents)) diff --git a/lisp/org/ox-publish.el b/lisp/org/ox-publish.el index 237b2ff8163..39547382b27 100644 --- a/lisp/org/ox-publish.el +++ b/lisp/org/ox-publish.el @@ -907,7 +907,7 @@ PROJECT is the current project." (defun org-publish-sitemap-default (title list) "Default site map, as a string. -TITLE is the the title of the site map. LIST is an internal +TITLE is the title of the site map. LIST is an internal representation for the files to include, as returned by `org-list-to-lisp'. PROJECT is the current project." (concat "#+TITLE: " title "\n\n" diff --git a/lisp/outline.el b/lisp/outline.el index 74df77b8be7..be9f3172b74 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -537,10 +537,10 @@ nil for WHICH, or do not pass any argument)." If there are no such entries, return nil. ALIST defaults to `outline-heading-alist'. Similar to (car (rassoc LEVEL ALIST)). -If there are several different entries with same new level, choose -the one with the smallest distance to the association of HEAD in the alist. +If there are several different entries with same new level, choose the +one with the smallest distance to the association of HEAD in the alist. This makes it possible for promotion to work in modes with several -independent sets of headings (numbered, unnumbered, appendix...)" +independent sets of headings (numbered, unnumbered, appendix...)." (unless alist (setq alist outline-heading-alist)) (let ((l (rassoc level alist)) ll h hl l2 l2l) diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 29ebe2eea1f..4916b1dabb8 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -7554,7 +7554,7 @@ comment at the start of cc-engine.el for more info." (defun c-maybe-re-mark-raw-string () ;; When this function is called, point is immediately after a " which opens - ;; a string. If this " is the characteristic " of of a raw string + ;; a string. If this " is the characteristic " of a raw string ;; opener, apply the pertinent `syntax-table' text properties to the ;; entire raw string (when properly terminated) or just the delimiter ;; (otherwise). In either of these cases, return t, otherwise return nil. diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index 864074fe191..85923ce9fe1 100644 --- a/lisp/progmodes/dcl-mode.el +++ b/lisp/progmodes/dcl-mode.el @@ -784,7 +784,7 @@ by the numbers in order 1-2-3-1-... : (dcl-back-to-indentation-1 (point)) (dcl-back-to-indentation-1))) (defun dcl-back-to-indentation-1 (&optional limit) - "Helper function for dcl-back-to-indentation" + "Helper function for `dcl-back-to-indentation'." ;; "Indentation points" that we will travel to ;; $ l: ! comment @@ -1074,8 +1074,7 @@ dcl-calc-command-indent-function is nil or returns nil set cur-indent to cur-indent+extra-indent. See also documentation for dcl-calc-command-indent-function. -The indent-type classification could probably be expanded upon. -" +The indent-type classification could probably be expanded upon." () (save-excursion (beginning-of-line) @@ -1458,7 +1457,7 @@ regexps in `dcl-electric-reindent-regexps'." ;;;------------------------------------------------------------------------- (defun dcl-indent-to (col &optional minimum) - "Like indent-to, but only indents if indentation would change" + "Like `indent-to', but only indents if indentation would change." (interactive) (let (cur-indent collapsed indent) (save-excursion diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 6d47c8bb170..6891e19fd1b 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -317,7 +317,7 @@ TYPE is a key to symbol and TEXT is a description of the problem detected in this region. DATA is any object that the caller wishes to attach to the created diagnostic for later retrieval. -OVERLAY-PROPERTIES is an an alist of properties attached to the +OVERLAY-PROPERTIES is an alist of properties attached to the created diagnostic, overriding the default properties and any properties of `flymake-overlay-control' of the diagnostic's type." @@ -358,7 +358,7 @@ diagnostics at BEG." (cl-defun flymake--overlays (&key beg end filter compare key) "Get flymake-related overlays. If BEG is non-nil and END is nil, consider only `overlays-at' -BEG. Otherwise consider `overlays-in' the region comprised by BEG +BEG. Otherwise consider `overlays-in' the region comprised by BEG and END, defaulting to the whole buffer. Remove all that do not verify FILTER, a function, and sort them by COMPARE (using KEY)." (save-restriction @@ -498,7 +498,7 @@ this buffer. To reset the list of disabled backends, turn `flymake-start' with a prefix argument. If the function returns, Flymake considers the backend to be -\"running\". If it has not done so already, the backend is +\"running\". If it has not done so already, the backend is expected to call the function REPORT-FN with a single argument REPORT-ACTION also followed by an optional list of keyword-value pairs in the form (:REPORT-KEY VALUE :REPORT-KEY2 VALUE2...). @@ -513,8 +513,8 @@ Currently accepted values for REPORT-ACTION are: A backend may call REPORT-FN repeatedly in this manner, but only until Flymake considers that the most recently requested buffer check is now obsolete because, say, buffer contents have - changed in the meantime. The backend is only given notice of - this via a renewed call to the backend function. Thus, to + changed in the meantime. The backend is only given notice of + this via a renewed call to the backend function. Thus, to prevent making obsolete reports and wasting resources, backend functions should first cancel any ongoing processing from previous calls. @@ -545,7 +545,7 @@ Currently accepted REPORT-KEY arguments are: (defvar flymake-diagnostic-types-alist '() "") (make-obsolete-variable 'flymake-diagnostic-types-alist - "Set properties on the diagnostic symbols instead. See Info + "Set properties on the diagnostic symbols instead. See Info Node `(Flymake)Flymake error types'" "27.1") @@ -666,12 +666,12 @@ associated `flymake-category' return DEFAULT." (defvar-local flymake--backend-state nil "Buffer-local hash table of a Flymake backend's state. The keys to this hash table are functions as found in -`flymake-diagnostic-functions'. The values are structures +`flymake-diagnostic-functions'. The values are structures of the type `flymake--backend-state', with these slots: `running', a symbol to keep track of a backend's replies via its -REPORT-FN argument. A backend is running if this key is -present. If nil, Flymake isn't expecting any replies from the +REPORT-FN argument. A backend is running if this key is +present. If nil, Flymake isn't expecting any replies from the backend. `diags', a (possibly empty) list of recent diagnostic objects @@ -700,7 +700,7 @@ backend is operating normally.") ,@body))) (defun flymake-is-running () - "Tell if Flymake has running backends in this buffer" + "Tell if Flymake has running backends in this buffer." (flymake-running-backends)) ;; FIXME: clone of `isearch-intesects-p'! Make this an util. @@ -804,7 +804,7 @@ different runs of the same backend." (defun flymake--collect (fn &optional message-prefix) "Collect Flymake backends matching FN. -If MESSAGE-PREFIX, echo a message using that prefix" +If MESSAGE-PREFIX, echo a message using that prefix." (unless flymake--backend-state (user-error "Flymake is not initialized")) (let (retval) @@ -979,7 +979,7 @@ buffer happens via the special hook Some backends may take longer than others to respond or complete, and some may decide to disable themselves if they are not -suitable for the current buffer. The commands +suitable for the current buffer. The commands `flymake-running-backends', `flymake-disabled-backends' and `flymake-reporting-backends' summarize the situation, as does the special *Flymake log* buffer." :group 'flymake :lighter diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 48c7dde9f51..1c8fad3069c 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -154,7 +154,7 @@ May be manually changed by user with `gdb-select-frame'.") "Associative list of threads provided by \"-thread-info\" MI command. Keys are thread numbers (in strings) and values are structures as -returned from -thread-info by `gdb-json-partial-output'. Updated in +returned from -thread-info by `gdb-json-partial-output'. Updated in `gdb-thread-list-handler-custom'.") (defvar gdb-running-threads-count nil @@ -378,18 +378,18 @@ Must be a list of pairs with cars being buffers and cdr's being valid signal handlers.") (defgroup gdb nil - "GDB graphical interface" + "GDB graphical interface." :group 'tools :link '(info-link "(emacs)GDB Graphical Interface") :version "23.2") (defgroup gdb-non-stop nil - "GDB non-stop debugging settings" + "GDB non-stop debugging settings." :group 'gdb :version "23.2") (defgroup gdb-buffers nil - "GDB buffers" + "GDB buffers." :group 'gdb :version "23.2") @@ -657,7 +657,7 @@ When `gdb-non-stop' is nil, return COMMAND unchanged." "`gud-call' wrapper which adds --thread/--all options between CMD1 and CMD2. NOALL is the same as in `gdb-gud-context-command'. -NOARG must be t when this macro is used outside `gud-def'" +NOARG must be t when this macro is used outside `gud-def'." `(gud-call (concat (gdb-gud-context-command ,cmd1 ,noall) " " ,cmd2) ,(when (not noarg) 'arg))) @@ -2681,7 +2681,7 @@ in MI messages, e.g.: [key=.., key=..]. -stack-list-frames and responses. If FIX-LIST is non-nil, \"FIX-LIST={..}\" is replaced with -\"FIX-LIST=[..]\" prior to parsing. This is used to fix broken +\"FIX-LIST=[..]\" prior to parsing. This is used to fix broken -break-info output when it contains breakpoint script field incompatible with GDB/MI output syntax. diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 306ae8fd50f..fec87bbd1ca 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -255,7 +255,7 @@ to limit saving to files located under `my-grep-root'." (defcustom grep-error-screen-columns nil "If non-nil, column numbers in grep hits are screen columns. -See `compilation-error-screen-columns'" +See `compilation-error-screen-columns'." :type '(choice (const :tag "Default" nil) integer) :version "22.1" diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 235546ef2e4..396141b3884 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -3069,7 +3069,7 @@ the character after the end of the expr." "Returns the previous expr, point is set to beginning of that expr. The expr is represented as a cons cell, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies -the character after the end of the expr" +the character after the end of the expr." (let ((begin) (end)) (gud-backward-sexp) (setq begin (point)) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 7cbd30a0d1d..55ea3417ffd 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -500,7 +500,7 @@ "Indentation of Perl statements with respect to containing block." :type 'integer) -;; Is is not unusual to put both things like perl-indent-level and +;; It is not unusual to put both things like perl-indent-level and ;; cperl-indent-level in the local variable section of a file. If only ;; one of perl-mode and cperl-mode is in use, a warning will be issued ;; about the variable. Autoload these here, so that no warning is diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index b589cab9c25..7f9d880757e 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -496,7 +496,7 @@ The keymap for this second window is: When Ghostscript encounters an error it displays an error message -with a file position. Clicking mouse-2 on this number will bring +with a file position. Clicking mouse-2 on this number will bring point to the corresponding spot in the PostScript window, if input to the interpreter was sent from that window. Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number has the same effect." @@ -606,7 +606,7 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number "To what column should text on current line be indented? Indentation is increased if the last token on the current line -defines the beginning of a group. These tokens are: { [ <<" +defines the beginning of a group. These tokens are: { [ <<" (save-excursion (beginning-of-line) (if (looking-at "[ \t]*\\(}\\|\\]\\|>>\\)") @@ -1068,7 +1068,7 @@ grestore (defun ps-run-goto-error () "Jump to buffer position read as integer at point. -Use line numbers if `ps-run-error-line-numbers' is not nil" +Use line numbers if `ps-run-error-line-numbers' is not nil." (interactive) (let ((p (point))) (unless (looking-at "[0-9]") diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index ec5d8c55512..ae5aff351c0 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -4415,7 +4415,7 @@ returns will be used. If not FORCE-PROCESS is passed what (defvar-local python-eldoc-get-doc t "Non-nil means eldoc should fetch the documentation - automatically. Set to nil by `python-eldoc-function' if + automatically. Set to nil by `python-eldoc-function' if `python-eldoc-function-timeout-permanent' is non-nil and `python-eldoc-function' times out.") @@ -4427,7 +4427,7 @@ returns will be used. If not FORCE-PROCESS is passed what (defcustom python-eldoc-function-timeout-permanent t "Non-nil means that when `python-eldoc-function' times out -`python-eldoc-get-doc' will be set to nil" +`python-eldoc-get-doc' will be set to nil." :group 'python :type 'boolean :version "25.1") @@ -4445,7 +4445,7 @@ function returns then if longer return the documentation at the point automatically. Set `python-eldoc-get-doc' to t to reenable eldoc documentation -fetching" +fetching." (when python-eldoc-get-doc (with-timeout (python-eldoc-function-timeout (if python-eldoc-function-timeout-permanent diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index 72491b99807..6340c9f1d61 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -557,7 +557,7 @@ permanently, remove the group from `shadow-literal-groups' or (defun shadow-make-group (regexp sites) "Make a description of a file group--- actually a list of regexp Tramp file names---from REGEXP (name of file to -be shadowed), and list of SITES" +be shadowed), and list of SITES." (if sites (cons (shadow-make-fullname (shadow-parse-name (shadow-site-primary (car sites))) nil regexp) diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 52ae5d2da5a..e4e67349949 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -555,7 +555,7 @@ current file, and the FILENAME of the file being checked." (defcustom speedbar-obj-do-check t "Non-nil check all files in speedbar to see if they have an object file. Any file checked out is marked with `speedbar-obj-indicator', and the -marking is based on `speedbar-obj-alist'" +marking is based on `speedbar-obj-alist'." :group 'speedbar-vc :type 'boolean) diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index bae0283497e..ce788207cf5 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -2103,7 +2103,7 @@ spell-check." ;;*---------------------------------------------------------------------*/ (defun flyspell-auto-correct-previous-hook () "Hook to track successive calls to `flyspell-auto-correct-previous-word'. -Sets `flyspell-auto-correct-previous-pos' to nil" +Sets `flyspell-auto-correct-previous-pos' to nil." (interactive) (remove-hook 'pre-command-hook (function flyspell-auto-correct-previous-hook) t) (unless (eq this-command (function flyspell-auto-correct-previous-word)) diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el index 5b42b25f772..9d45f9aba79 100644 --- a/lisp/textmodes/reftex-cite.el +++ b/lisp/textmodes/reftex-cite.el @@ -74,7 +74,7 @@ The expanded value is cached." ;;;###autoload (defun reftex-bib-or-thebib () "Test if BibTeX or \\begin{thebibliography} should be used for the citation. -Find the bof of the current file" +Find the bof of the current file." (let* ((docstruct (symbol-value reftex-docstruct-symbol)) (rest (or (member (list 'bof (buffer-file-name)) docstruct) docstruct)) diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el index 9f5242a6f5c..cf94600193c 100644 --- a/lisp/textmodes/reftex-index.el +++ b/lisp/textmodes/reftex-index.el @@ -771,7 +771,7 @@ Label context is only displayed when the labels are there as well." (interactive) (reftex-index-visit-location 'hide)) (defun reftex-index-goto-entry () - "Go to document location in other window. *Index* window stays." + "Go to document location in other window. *Index* window stays." (interactive) (reftex-index-visit-location t)) (defun reftex-index-mouse-goto-line-and-hide (ev) @@ -1093,12 +1093,12 @@ When index is restricted, select the previous section as restriction criterion." (reftex-index-change-entry new (format "Removed prefix: %s" prefix)))) (defun reftex-index-kill () - "FIXME: Not yet implemented" + "FIXME: Not yet implemented." (interactive) (error "This function is currently not implemented")) (defun reftex-index-undo () - "FIXME: Not yet implemented" + "FIXME: Not yet implemented." (interactive) (error "This function is currently not implemented")) diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el index 005816e9659..eb8446f4c4c 100644 --- a/lisp/textmodes/reftex-parse.el +++ b/lisp/textmodes/reftex-parse.el @@ -1013,7 +1013,7 @@ OPT-ARGS is a list of argument numbers which are optional." (defun reftex-context-substring (&optional to-end) "Return up to 150 chars from point. -When point is just after a { or [, limit string to matching parenthesis" +When point is just after a { or [, limit string to matching parenthesis." (cond (to-end ;; Environment - find next \end diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index d763769a18a..bec86840c0c 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -390,7 +390,7 @@ If the symbols for the current master file do not exist, they are created." (buffer-file-name))))) (cond ((null master) - (error "Need a filename for this buffer, please save it first")) + (error "Need a filename for this buffer, please save it first")) ((or (file-exists-p (concat master ".tex")) (reftex-get-buffer-visiting (concat master ".tex"))) ;; Ahh, an extra .tex was missing... diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index ba5d7e4f46f..88c44c06da0 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el @@ -1904,7 +1904,7 @@ includes indentation and correct length of adornment lines." "Return the next best `rst-Hdr' upward from HDR. Consider existing hierarchy HIER and preferred headers. PREV may be a previous `rst-Hdr' which may be taken into account. If DOWN -return the next best `rst-Hdr' downward instead. Return nil in +return the next best `rst-Hdr' downward instead. Return nil if HIER is nil." (let* ((normalized-hier (if down hier @@ -2878,7 +2878,7 @@ file-write hook to always make it up-to-date automatically." ;; testcover: ok. "Display a table of contents for current buffer. Displays all section titles found in the current buffer in a -hierarchical list. The resulting buffer can be navigated, and +hierarchical list. The resulting buffer can be navigated, and selecting a section title moves the cursor to that section." (interactive) (rst-reset-section-caches) @@ -3397,7 +3397,7 @@ Region is from BEG to END. Uncomment if ARG." (defun rst-uncomment-region (beg end &optional _arg) "Uncomment the current region. -Region is from BEG to END. _ARG is ignored" +Region is from BEG to END. _ARG is ignored." (save-excursion (goto-char beg) (rst-forward-line-strict 0) @@ -4003,7 +4003,7 @@ to `font-lock-end'." (defun rst-font-lock-extend-region-internal (beg end) "Check the region BEG / END for being in the middle of a multi-line construct. -Return nil if not or a cons with new values for BEG / END" +Return nil if not or a cons with new values for BEG / END." (let ((nbeg (rst-font-lock-extend-region-extend beg -1)) (nend (rst-font-lock-extend-region-extend end 1))) (if (or nbeg nend) diff --git a/lisp/thumbs.el b/lisp/thumbs.el index 6a17a756548..2b1eb4630d0 100644 --- a/lisp/thumbs.el +++ b/lisp/thumbs.el @@ -758,7 +758,7 @@ ACTION and ARG should be a valid convert command." (put 'thumbs-mode 'mode-class 'special) (define-derived-mode thumbs-mode fundamental-mode "thumbs" - "Preview images in a thumbnails buffer" + "Preview images in a thumbnails buffer." (setq buffer-read-only t)) (defvar thumbs-view-image-mode-map diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el index 796027deadb..ee6631dc3a2 100644 --- a/lisp/vc/ediff-util.el +++ b/lisp/vc/ediff-util.el @@ -2207,7 +2207,7 @@ ARG is a prefix argument. If nil, copy the current difference region." "Restore ARGth diff from `ediff-killed-diffs-alist'. ARG is a prefix argument. If ARG is nil, restore the current-difference. If the second optional argument, a character, is given, use it to -determine the target buffer instead of (ediff-last-command-char)" +determine the target buffer instead of `ediff-last-command-char'." (interactive "P") (ediff-barf-if-not-control-buffer) (if (numberp arg) diff --git a/lisp/vc/pcvs-defs.el b/lisp/vc/pcvs-defs.el index 7065b8dfe79..8cac61a7d44 100644 --- a/lisp/vc/pcvs-defs.el +++ b/lisp/vc/pcvs-defs.el @@ -86,8 +86,8 @@ will select a shared-flag.") (defvar cvs-cvsroot nil "Specifies where the (current) cvs master repository is. Overrides the environment variable $CVSROOT by sending \" -d dir\" to -all CVS commands. This switch is useful if you have multiple CVS -repositories. It can be set interactively with \\[cvs-change-cvsroot.] +all CVS commands. This switch is useful if you have multiple CVS +repositories. It can be set interactively with \\[cvs-change-cvsroot.] There is no need to set this if $CVSROOT is set to a correct value.") (defcustom cvs-auto-remove-handled nil @@ -120,7 +120,7 @@ If `empty', only non-empty directories will be shown." "If non-nil, tagging can only be applied to directories. Tagging should generally be applied a directory at a time, but sometimes it is useful to be able to tag a single file. The normal way to do that is to use -`cvs-mode-force-command' so as to temporarily override the restrictions," +`cvs-mode-force-command' so as to temporarily override the restrictions." :group 'pcl-cvs :type '(boolean)) diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index c2a5a6f70c6..61d5ee1d3af 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el @@ -898,7 +898,7 @@ REPO must be the directory name of an hg repository." :file-sources (nreverse vc-hg--hgignore-filenames)))) (defun vc-hg--ignore-patterns-valid-p (hgip) - "Return whether the cached ignore patterns in HGIP are still valid" + "Return whether the cached ignore patterns in HGIP are still valid." (let ((valid t) (file-sources (vc-hg--ignore-patterns-file-sources hgip))) (while (and file-sources valid) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 7ed7b81280b..2978dc80375 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1939,7 +1939,7 @@ the earlier input." widget)) (defun widget-field-value-set (widget value) - "Set an editable text field WIDGET to VALUE" + "Set an editable text field WIDGET to VALUE." (let ((from (widget-field-start widget)) (to (widget-field-text-end widget)) (buffer (widget-field-buffer widget))) @@ -3051,7 +3051,7 @@ as the value." "History of input to `widget-string-prompt-value'.") (define-widget 'string 'editable-field - "A string" + "A string." :tag "String" :format "%{%t%}: %v" :complete-function 'ispell-complete-word diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el index e4e2dec3b82..64635946871 100644 --- a/lisp/x-dnd.el +++ b/lisp/x-dnd.el @@ -433,13 +433,13 @@ otherwise return the frame coordinates." (selection-symbol target-type &optional time-stamp terminal)) (defun x-dnd-version-from-flags (flags) - "Return the version byte from the 32 bit FLAGS in an XDndEnter message" + "Return the version byte from the 32 bit FLAGS in an XDndEnter message." (if (consp flags) ;; Long as cons (ash (car flags) -8) (ash flags -24))) ;; Ordinary number (defun x-dnd-more-than-3-from-flags (flags) - "Return the nmore-than3 bit from the 32 bit FLAGS in an XDndEnter message" + "Return the nmore-than3 bit from the 32 bit FLAGS in an XDndEnter message." (if (consp flags) (logand (cdr flags) 1) (logand flags 1))) |