Backport commit 114323226 from Emacs

* lisp/ob-C.el (org-babel-prep-session:C)
(org-babel-load-session:C):
* lisp/ob-J.el (org-babel-execute:J):
* lisp/ob-asymptote.el (org-babel-prep-session:asymptote):
* lisp/ob-awk.el (org-babel-execute:awk):
* lisp/ob-core.el (org-babel-process-file-name):
* lisp/ob-ebnf.el (org-babel-execute:ebnf):
* lisp/ob-forth.el (org-babel-execute:forth):
* lisp/ob-fortran.el (org-babel-execute:fortran)
(org-babel-prep-session:fortran, org-babel-load-session:fortran):
* lisp/ob-groovy.el (org-babel-execute:groovy):
* lisp/ob-io.el (org-babel-execute:io):
* lisp/ob-js.el (org-babel-execute:js):
* lisp/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/ob-lua.el (org-babel-prep-session:lua):
* lisp/ob-picolisp.el (org-babel-execute:picolisp):
* lisp/ob-processing.el (org-babel-prep-session:processing):
* lisp/ob-python.el (org-babel-prep-session:python):
* lisp/ob-scheme.el (org-babel-scheme-capture-current-message)
(org-babel-scheme-execute-with-geiser, org-babel-execute:scheme):
* lisp/ob-shen.el (org-babel-execute:shen):
* lisp/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-faces.el (org-verbatim, org-cycle-level-faces):
* lisp/org-indent.el (org-indent-set-line-properties):
* lisp/org-macs.el (org-get-limited-outline-regexp):
* lisp/org-mobile.el (org-mobile-files):
* lisp/org.el (org-use-fast-todo-selection)
(org-extend-today-until, org-use-property-inheritance)
(org-refresh-effort-properties)
(org-track-ordered-property-with-tag, org-shiftright):
* lisp/ox-html.el (org-html-checkbox-type):
* lisp/ox-man.el (org-man-source-highlight)
(org-man-verse-block):
* lisp/ox-publish.el (org-publish-sitemap-default): Assorted
docfixes.

lisp/*.el: Fix typos and other trivial doc fixes
11432322650830fe9ae365f4113733a79226056d
Juanma Barranquero
Sat Sep 21 00:27:53 2019 +0200

lisp/ob-C.el

@@ -297,12 +297,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

lisp/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)))

lisp/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)

lisp/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)))

lisp/ob-core.el

@@ -2992,7 +2992,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))))
 

lisp/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))

lisp/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)))

lisp/ob-fortran.el

@@ -45,7 +45,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)))
@@ -114,12 +114,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

lisp/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)))

lisp/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)))

lisp/ob-js.el

@@ -70,7 +70,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))
 	 (session (cdr (assq :session params)))
          (result-type (cdr (assq :result-type params)))

lisp/ob-lilypond.el

@@ -43,20 +43,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
@@ -152,7 +152,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))
@@ -189,7 +189,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"))
@@ -212,8 +212,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
@@ -239,7 +239,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
@@ -248,7 +248,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)
@@ -257,7 +257,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"))))
@@ -288,9 +288,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)
@@ -302,9 +302,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)
@@ -320,9 +320,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)
@@ -385,14 +385,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")
@@ -405,7 +404,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)))
 

lisp/ob-lua.el

@@ -100,7 +100,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)))

lisp/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".

lisp/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)

lisp/ob-python.el

@@ -97,7 +97,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)))

lisp/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

lisp/ob-scheme.el

@@ -131,7 +131,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))
@@ -147,10 +147,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
@@ -198,7 +199,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"

lisp/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)))

lisp/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,7 +1225,7 @@ 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
 in the past."
@@ -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
@@ -7394,8 +7394,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)
@@ -7912,7 +7911,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

lisp/org-faces.el

@@ -408,7 +408,7 @@ For source-blocks `org-src-block-faces' takes precedence."
   :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")
 
@@ -608,8 +608,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"

lisp/org-indent.el

@@ -299,7 +299,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)

lisp/org-macs.el

@@ -643,7 +643,7 @@ program is needed for, so that the error message can be more informative."
 (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))

lisp/org-mobile.el

@@ -57,7 +57,7 @@ In addition to this, the list may also contain the following symbols:
 
 `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))

lisp/org.el

@@ -2716,7 +2716,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.
 
@@ -3379,7 +3379,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.
@@ -3700,7 +3700,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
@@ -9143,7 +9143,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)
@@ -12368,7 +12368,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
@@ -19951,7 +19951,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"

lisp/ox-html.el

@@ -1151,7 +1151,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"

lisp/ox-latex.el

@@ -3279,7 +3279,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)))

lisp/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))
 

lisp/ox-publish.el

@@ -909,7 +909,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"