Bladeren bron

Various minor docfixes found by checkdoc

Stefan Kangas 3 jaren geleden
bovenliggende
commit
51cdd6e30f

+ 10 - 19
lisp/ob-C.el

@@ -95,8 +95,7 @@ This function calls `org-babel-execute:C++'."
   (org-babel-execute:C++ body params))
   (org-babel-execute:C++ body params))
 
 
 (defun org-babel-expand-body:cpp (body params)
 (defun org-babel-expand-body:cpp (body params)
-  "Expand a block of C++ code with org-babel according to its
-header arguments."
+  "Expand a block of C++ code with org-babel according to its header arguments."
   (org-babel-expand-body:C++ body params))
   (org-babel-expand-body:C++ body params))
 
 
 (defun org-babel-execute:C++ (body params)
 (defun org-babel-execute:C++ (body params)
@@ -105,8 +104,7 @@ This function is called by `org-babel-execute-src-block'."
   (let ((org-babel-c-variant 'cpp)) (org-babel-C-execute body params)))
   (let ((org-babel-c-variant 'cpp)) (org-babel-C-execute body params)))
 
 
 (defun org-babel-expand-body:C++ (body params)
 (defun org-babel-expand-body:C++ (body params)
-  "Expand a block of C++ code with org-babel according to its
-header arguments."
+  "Expand a block of C++ code with org-babel according to its header arguments."
   (let ((org-babel-c-variant 'cpp)) (org-babel-C-expand-C++ body params)))
   (let ((org-babel-c-variant 'cpp)) (org-babel-C-expand-C++ body params)))
 
 
 (defun org-babel-execute:D (body params)
 (defun org-babel-execute:D (body params)
@@ -115,8 +113,7 @@ This function is called by `org-babel-execute-src-block'."
   (let ((org-babel-c-variant 'd)) (org-babel-C-execute body params)))
   (let ((org-babel-c-variant 'd)) (org-babel-C-execute body params)))
 
 
 (defun org-babel-expand-body:D (body params)
 (defun org-babel-expand-body:D (body params)
-  "Expand a block of D code with org-babel according to its
-header arguments."
+  "Expand a block of D code with org-babel according to its header arguments."
   (let ((org-babel-c-variant 'd)) (org-babel-C-expand-D body params)))
   (let ((org-babel-c-variant 'd)) (org-babel-C-expand-D body params)))
 
 
 (defun org-babel-execute:C (body params)
 (defun org-babel-execute:C (body params)
@@ -125,8 +122,7 @@ This function is called by `org-babel-execute-src-block'."
   (let ((org-babel-c-variant 'c)) (org-babel-C-execute body params)))
   (let ((org-babel-c-variant 'c)) (org-babel-C-execute body params)))
 
 
 (defun org-babel-expand-body:C (body params)
 (defun org-babel-expand-body:C (body params)
-  "Expand a block of C code with org-babel according to its
-header arguments."
+  "Expand a block of C code with org-babel according to its header arguments."
   (let ((org-babel-c-variant 'c)) (org-babel-C-expand-C body params)))
   (let ((org-babel-c-variant 'c)) (org-babel-C-expand-C body params)))
 
 
 (defun org-babel-C-execute (body params)
 (defun org-babel-C-execute (body params)
@@ -197,13 +193,11 @@ or `org-babel-execute:C++' or `org-babel-execute:D'."
       )))
       )))
 
 
 (defun org-babel-C-expand-C++ (body params)
 (defun org-babel-C-expand-C++ (body params)
-  "Expand a block of C or C++ code with org-babel according to
-its header arguments."
+  "Expand a block of C/C++ code with org-babel according to its header arguments."
   (org-babel-C-expand-C body params))
   (org-babel-C-expand-C body params))
 
 
 (defun org-babel-C-expand-C (body params)
 (defun org-babel-C-expand-C (body params)
-  "Expand a block of C or C++ code with org-babel according to
-its header arguments."
+  "Expand a block of C/C++ code with org-babel according to its header arguments."
   (let ((vars (org-babel--get-vars params))
   (let ((vars (org-babel--get-vars params))
 	(colnames (cdr (assq :colname-names params)))
 	(colnames (cdr (assq :colname-names params)))
 	(main-p (not (string= (cdr (assq :main params)) "no")))
 	(main-p (not (string= (cdr (assq :main params)) "no")))
@@ -272,8 +266,7 @@ its header arguments."
 		  body) "\n") "\n")))
 		  body) "\n") "\n")))
 
 
 (defun org-babel-C-expand-D (body params)
 (defun org-babel-C-expand-D (body params)
-  "Expand a block of D code with org-babel according to
-its header arguments."
+  "Expand a block of D code with org-babel according to its header arguments."
   (let ((vars (org-babel--get-vars params))
   (let ((vars (org-babel--get-vars params))
 	(colnames (cdr (assq :colname-names params)))
 	(colnames (cdr (assq :colname-names params)))
 	(main-p (not (string= (cdr (assq :main params)) "no")))
 	(main-p (not (string= (cdr (assq :main params)) "no")))
@@ -348,7 +341,7 @@ FORMAT can be either a format string or a function which is called with VAL."
 	     (list
 	     (list
 	      (if (eq org-babel-c-variant 'd) "string" "const char*")
 	      (if (eq org-babel-c-variant 'd) "string" "const char*")
 	      "\"%s\""))
 	      "\"%s\""))
-	    (_ (error "unknown type %S" basetype)))))
+            (_ (error "Unknown type %S" basetype)))))
     (cond
     (cond
      ((integerp val) type) ;; an integer declared in the #+begin_src line
      ((integerp val) type) ;; an integer declared in the #+begin_src line
      ((floatp val) type) ;; a numeric declared in the #+begin_src line
      ((floatp val) type) ;; a numeric declared in the #+begin_src line
@@ -405,8 +398,7 @@ FORMAT can be either a format string or a function which is called with VAL."
    (t 'stringp)))
    (t 'stringp)))
 
 
 (defun org-babel-C-var-to-C (pair)
 (defun org-babel-C-var-to-C (pair)
-  "Convert an elisp val into a string of C code specifying a var
-of the same value."
+  "Convert an elisp val into a string of C code specifying a var of the same value."
   ;; TODO list support
   ;; TODO list support
   (let ((var (car pair))
   (let ((var (car pair))
 	(val (cdr pair)))
 	(val (cdr pair)))
@@ -446,8 +438,7 @@ of the same value."
       (format "const int %s_cols = %d;" (car pair) (length (cdr pair)))))))
       (format "const int %s_cols = %d;" (car pair) (length (cdr pair)))))))
 
 
 (defun org-babel-C-utility-header-to-C ()
 (defun org-babel-C-utility-header-to-C ()
-  "Generate a utility function to convert a column name
-into a column number."
+  "Generate a utility function to convert a column name into a column number."
   (pcase org-babel-c-variant
   (pcase org-babel-c-variant
     ((or `c `cpp)
     ((or `c `cpp)
      (concat
      (concat

+ 1 - 1
lisp/ob-J.el

@@ -92,7 +92,7 @@ This function is called by `org-babel-execute-src-block'."
        (org-babel-J-eval-string full-body sit-time)))))
        (org-babel-J-eval-string full-body sit-time)))))
 
 
 (defun org-babel-J-eval-string (str sit-time)
 (defun org-babel-J-eval-string (str sit-time)
-  "Sends STR to the `j-console-cmd' session and executes it."
+  "Sends STR to the `j-console-cmd' session and execute it."
   (let ((session (j-console-ensure-session)))
   (let ((session (j-console-ensure-session)))
     (with-current-buffer (process-buffer session)
     (with-current-buffer (process-buffer session)
       (goto-char (point-max))
       (goto-char (point-max))

+ 5 - 2
lisp/ob-abc.el

@@ -28,9 +28,12 @@
 ;;; It requires that the abcm2ps program is installed.
 ;;; It requires that the abcm2ps program is installed.
 ;;; See http://moinejf.free.fr/
 ;;; See http://moinejf.free.fr/
 
 
+;;; Code:
+
 (require 'ob)
 (require 'ob)
 
 
 ;; optionally define a file extension for this language
 ;; optionally define a file extension for this language
+
 (add-to-list 'org-babel-tangle-lang-exts '("abc" . "abc"))
 (add-to-list 'org-babel-tangle-lang-exts '("abc" . "abc"))
 
 
 ;; optionally declare default header arguments for this language
 ;; optionally declare default header arguments for this language
@@ -54,8 +57,8 @@
     body))
     body))
 
 
 (defun org-babel-execute:abc (body params)
 (defun org-babel-execute:abc (body params)
-  "Execute a block of ABC code with org-babel.  This function is
-   called by `org-babel-execute-src-block'"
+  "Execute a block of ABC code with org-babel.
+This function is called by `org-babel-execute-src-block'."
   (message "executing Abc source code block")
   (message "executing Abc source code block")
   (let* ((cmdline (cdr (assq :cmdline params)))
   (let* ((cmdline (cdr (assq :cmdline params)))
 	 (out-file (let ((file (cdr (assq :file params))))
 	 (out-file (let ((file (cdr (assq :file params))))

+ 1 - 1
lisp/ob-comint.el

@@ -276,7 +276,7 @@ STRING contains the output originally inserted into the comint buffer."
 (defun org-babel-comint-async-register
 (defun org-babel-comint-async-register
     (session-buffer org-buffer indicator-regexp
     (session-buffer org-buffer indicator-regexp
 		    chunk-callback file-callback)
 		    chunk-callback file-callback)
-  "Sets local org-babel-comint-async variables in SESSION-BUFFER.
+  "Set local org-babel-comint-async variables in SESSION-BUFFER.
 ORG-BUFFER is added to `org-babel-comint-async-buffers' if not
 ORG-BUFFER is added to `org-babel-comint-async-buffers' if not
 present.  `org-babel-comint-async-indicator',
 present.  `org-babel-comint-async-indicator',
 `org-babel-comint-async-chunk-callback', and
 `org-babel-comint-async-chunk-callback', and

+ 3 - 3
lisp/ob-core.el

@@ -538,7 +538,7 @@ to raise errors for all languages.")
   "Number of initial characters to show of a hidden results hash.")
   "Number of initial characters to show of a hidden results hash.")
 
 
 (defvar org-babel-after-execute-hook nil
 (defvar org-babel-after-execute-hook nil
-  "Hook for functions to be called after `org-babel-execute-src-block'")
+  "Hook for functions to be called after `org-babel-execute-src-block'.")
 
 
 (defun org-babel-named-src-block-regexp-for-name (&optional name)
 (defun org-babel-named-src-block-regexp-for-name (&optional name)
   "Generate a regexp used to match a source block named NAME.
   "Generate a regexp used to match a source block named NAME.
@@ -1706,7 +1706,7 @@ of the vars, cnames and rnames."
 (defun org-babel-reassemble-table (table colnames rownames)
 (defun org-babel-reassemble-table (table colnames rownames)
   "Add column and row names to a table.
   "Add column and row names to a table.
 Given a TABLE and set of COLNAMES and ROWNAMES add the names
 Given a TABLE and set of COLNAMES and ROWNAMES add the names
-to the table for reinsertion to org-mode."
+to the table for reinsertion to `org-mode'."
   (if (listp table)
   (if (listp table)
       (let ((table (if (and rownames (= (length table) (length rownames)))
       (let ((table (if (and rownames (= (length table) (length rownames)))
                        (org-babel-put-rownames table rownames) table)))
                        (org-babel-put-rownames table rownames) table)))
@@ -2966,7 +2966,7 @@ block but are passed literally to the \"example-block\"."
 
 
 (defun org-babel-read (cell &optional inhibit-lisp-eval)
 (defun org-babel-read (cell &optional inhibit-lisp-eval)
   "Convert the string value of CELL to a number if appropriate.
   "Convert the string value of CELL to a number if appropriate.
-Otherwise if CELL looks like lisp (meaning it starts with a
+Otherwise if CELL looks like Lisp (meaning it starts with a
 \"(\", \"\\='\", \"\\=`\" or a \"[\") then read and evaluate it as
 \"(\", \"\\='\", \"\\=`\" or a \"[\") then read and evaluate it as
 lisp, otherwise return it unmodified as a string.  Optional
 lisp, otherwise return it unmodified as a string.  Optional
 argument INHIBIT-LISP-EVAL inhibits lisp evaluation for
 argument INHIBIT-LISP-EVAL inhibits lisp evaluation for

+ 4 - 4
lisp/ob-ebnf.el

@@ -24,15 +24,15 @@
 ;;; Commentary:
 ;;; Commentary:
 
 
 ;; Org-Babel support for using ebnf2ps to generate encapsulated postscript
 ;; Org-Babel support for using ebnf2ps to generate encapsulated postscript
-;; railroad diagrams. It recognizes these arguments:
+;; railroad diagrams.  It recognizes these arguments:
 ;;
 ;;
 ;;     :file is required; it must include the extension '.eps.' All the rules
 ;;     :file is required; it must include the extension '.eps.' All the rules
-;;           in the block will be drawn in the same file. This is done by
+;;           in the block will be drawn in the same file.  This is done by
 ;;           inserting a '[<file>' comment at the start of the block (see the
 ;;           inserting a '[<file>' comment at the start of the block (see the
 ;;           documentation for ebnf-eps-buffer for more information).
 ;;           documentation for ebnf-eps-buffer for more information).
 ;;
 ;;
-;;     :style specifies a value in ebnf-style-database. This provides the
-;;            ability to customize the output. The style can also specify the
+;;     :style specifies a value in ebnf-style-database.  This provides the
+;;            ability to customize the output.  The style can also specify the
 ;;            grammar syntax (by setting ebnf-syntax); note that only ebnf,
 ;;            grammar syntax (by setting ebnf-syntax); note that only ebnf,
 ;;            iso-ebnf, and yacc are supported by this file.
 ;;            iso-ebnf, and yacc are supported by this file.
 
 

+ 1 - 1
lisp/ob-eval.el

@@ -44,7 +44,7 @@
 (defun org-babel-eval (command query)
 (defun org-babel-eval (command query)
   "Run COMMAND on QUERY.
   "Run COMMAND on QUERY.
 Writes QUERY into a temp-buffer that is processed with
 Writes QUERY into a temp-buffer that is processed with
-org-babel--shell-command-on-region.  If COMMAND succeeds then return
+`org-babel--shell-command-on-region'.  If COMMAND succeeds then return
 its results, otherwise display STDERR with
 its results, otherwise display STDERR with
 `org-babel-eval-error-notify'."
 `org-babel-eval-error-notify'."
   (let ((error-buffer (get-buffer-create " *Org-Babel Error*")) exit-code)
   (let ((error-buffer (get-buffer-create " *Org-Babel Error*")) exit-code)

+ 1 - 1
lisp/ob-fortran.el

@@ -157,7 +157,7 @@ of the same value."
       (format "real, parameter :: %S(%d) = %s\n"
       (format "real, parameter :: %S(%d) = %s\n"
 	      var (length val) (org-babel-fortran-transform-list val)))
 	      var (length val) (org-babel-fortran-transform-list val)))
      (t
      (t
-      (error "the type of parameter %s is not supported by ob-fortran" var)))))
+      (error "The type of parameter %s is not supported by ob-fortran" var)))))
 
 
 (defun org-babel-fortran-transform-list (val)
 (defun org-babel-fortran-transform-list (val)
   "Return a fortran representation of enclose syntactic lists."
   "Return a fortran representation of enclose syntactic lists."

+ 1 - 1
lisp/ob-haskell.el

@@ -74,7 +74,7 @@ a parameter, such as \"ghc -v\"."
   "Haskell-specific header arguments.")
   "Haskell-specific header arguments.")
 
 
 (defun org-babel-haskell-execute (body params)
 (defun org-babel-haskell-execute (body params)
-  "This function should only be called by `org-babel-execute:haskell'"
+  "This function should only be called by `org-babel-execute:haskell'."
   (let* ((tmp-src-file (org-babel-temp-file "Haskell-src-" ".hs"))
   (let* ((tmp-src-file (org-babel-temp-file "Haskell-src-" ".hs"))
          (tmp-bin-file
          (tmp-bin-file
           (org-babel-process-file-name
           (org-babel-process-file-name

+ 2 - 2
lisp/ob-io.el

@@ -95,8 +95,8 @@ in BODY as elisp."
   (error "Sessions are not (yet) supported for Io"))
   (error "Sessions are not (yet) supported for Io"))
 
 
 (defun org-babel-io-initiate-session (&optional _session)
 (defun org-babel-io-initiate-session (&optional _session)
-  "If there is not a current inferior-process-buffer in SESSION
-then create.  Return the initialized session.  Sessions are not
+  "If there is not a current inferior-process-buffer in SESSION then create.
+Return the initialized session.  Sessions are not
 supported in Io."
 supported in Io."
   nil)
   nil)
 
 

+ 2 - 2
lisp/ob-js.el

@@ -158,8 +158,8 @@ specifying a variable of the same value."
    (org-babel--get-vars params)))
    (org-babel--get-vars params)))
 
 
 (defun org-babel-js-initiate-session (&optional session _params)
 (defun org-babel-js-initiate-session (&optional session _params)
-  "If there is not a current inferior-process-buffer in `SESSION'
-then create.  Return the initialized session."
+  "If there is not a current inferior-process-buffer in `SESSION' then create.
+Return the initialized session."
   (cond
   (cond
    ((string= session "none")
    ((string= session "none")
     (warn "Session evaluation of ob-js is not supported"))
     (warn "Session evaluation of ob-js is not supported"))

+ 2 - 2
lisp/ob-ledger.el

@@ -44,8 +44,8 @@
   "Default arguments to use when evaluating a ledger source block.")
   "Default arguments to use when evaluating a ledger source block.")
 
 
 (defun org-babel-execute:ledger (body params)
 (defun org-babel-execute:ledger (body params)
-  "Execute a block of Ledger entries with org-babel.  This function is
-called by `org-babel-execute-src-block'."
+  "Execute a block of Ledger entries with org-babel.
+This function is called by `org-babel-execute-src-block'."
   (message "executing Ledger source code block")
   (message "executing Ledger source code block")
   (let ((cmdline (cdr (assq :cmdline params)))
   (let ((cmdline (cdr (assq :cmdline params)))
         (in-file (org-babel-temp-file "ledger-"))
         (in-file (org-babel-temp-file "ledger-"))

+ 4 - 2
lisp/ob-lua.el

@@ -21,6 +21,10 @@
 ;; You should have received a copy of the GNU General Public License
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
 
 
+;;; Commentary:
+
+;; Org-Babel support for evaluating lua source code.
+
 ;; Requirements:
 ;; Requirements:
 ;; for session support, lua-mode is needed.
 ;; for session support, lua-mode is needed.
 ;; lua-mode is not part of GNU Emacs/orgmode, but can be obtained
 ;; lua-mode is not part of GNU Emacs/orgmode, but can be obtained
@@ -30,8 +34,6 @@
 
 
 ;; However, sessions are not yet working.
 ;; However, sessions are not yet working.
 
 
-;; Org-Babel support for evaluating lua source code.
-
 ;;; Code:
 ;;; Code:
 (require 'ob)
 (require 'ob)
 (require 'org-macs)
 (require 'org-macs)

+ 1 - 2
lisp/ob-makefile.el

@@ -37,8 +37,7 @@ This function is called by `org-babel-execute-src-block'."
   body)
   body)
 
 
 (defun org-babel-prep-session:makefile (_session _params)
 (defun org-babel-prep-session:makefile (_session _params)
-  "Return an error if the :session header argument is set.  Make
-does not support sessions."
+  "Signal error; Make does not support sessions."
   (error "Makefile sessions are nonsensical"))
   (error "Makefile sessions are nonsensical"))
 
 
 (provide 'ob-makefile)
 (provide 'ob-makefile)

+ 2 - 2
lisp/ob-octave.el

@@ -45,8 +45,8 @@
 
 
 (defvar org-babel-matlab-with-emacs-link nil
 (defvar org-babel-matlab-with-emacs-link nil
   "If non-nil use matlab-shell-run-region for session evaluation.
   "If non-nil use matlab-shell-run-region for session evaluation.
-  This will use EmacsLink if (matlab-with-emacs-link) evaluates
-  to a non-nil value.")
+This will use EmacsLink if (matlab-with-emacs-link) evaluates
+to a non-nil value.")
 
 
 (defvar org-babel-matlab-emacs-link-wrapper-method
 (defvar org-babel-matlab-emacs-link-wrapper-method
   "%s
   "%s

+ 5 - 5
lisp/ob-picolisp.el

@@ -26,13 +26,13 @@
 
 
 ;; This library enables the use of PicoLisp in the multi-language
 ;; This library enables the use of PicoLisp in the multi-language
 ;; programming framework Org-Babel.  PicoLisp is a minimal yet
 ;; programming framework Org-Babel.  PicoLisp is a minimal yet
-;; fascinating lisp dialect and a highly productive application
+;; fascinating Lisp dialect and a highly productive application
 ;; framework for web-based client-server applications on top of
 ;; framework for web-based client-server applications on top of
 ;; object-oriented databases.  A good way to learn PicoLisp is to first
 ;; object-oriented databases.  A good way to learn PicoLisp is to first
 ;; read Paul Grahams essay "The hundred year language"
 ;; read Paul Grahams essay "The hundred year language"
 ;; (http://www.paulgraham.com/hundred.html) and then study the various
 ;; (http://www.paulgraham.com/hundred.html) and then study the various
 ;; documents and essays published in the PicoLisp wiki
 ;; documents and essays published in the PicoLisp wiki
-;; (https://picolisp.com/5000/-2.html). PicoLisp is included in some
+;; (https://picolisp.com/5000/-2.html).  PicoLisp is included in some
 ;; GNU/Linux Distributions, and can be downloaded here:
 ;; GNU/Linux Distributions, and can be downloaded here:
 ;; https://software-lab.de/down.html.  It ships with a picolisp-mode and
 ;; https://software-lab.de/down.html.  It ships with a picolisp-mode and
 ;; an inferior-picolisp-mode for Emacs (to be found in the /lib/el/
 ;; an inferior-picolisp-mode for Emacs (to be found in the /lib/el/
@@ -44,7 +44,7 @@
 ;; make it a valuable addition to Org Babel:
 ;; make it a valuable addition to Org Babel:
 
 
 ;; PicoLisp _is_ an object-oriented database with a Prolog-based query
 ;; PicoLisp _is_ an object-oriented database with a Prolog-based query
-;; language implemented in PicoLisp (Pilog). Database objects are
+;; language implemented in PicoLisp (Pilog).  Database objects are
 ;; first-class members of the language.
 ;; first-class members of the language.
 
 
 ;; PicoLisp is an extremely productive framework for the development
 ;; PicoLisp is an extremely productive framework for the development
@@ -166,8 +166,8 @@ This function is called by `org-babel-execute-src-block'."
       (read result))))
       (read result))))
 
 
 (defun org-babel-picolisp-initiate-session (&optional session-name)
 (defun org-babel-picolisp-initiate-session (&optional session-name)
-  "If there is not a current inferior-process-buffer in SESSION
-then create.  Return the initialized session."
+  "If there is not a current inferior-process-buffer in SESSION then create.
+Return the initialized session."
   (unless (string= session-name "none")
   (unless (string= session-name "none")
     (require 'inferior-picolisp)
     (require 'inferior-picolisp)
     ;; provide a reasonable default session name
     ;; provide a reasonable default session name

+ 1 - 1
lisp/ob-scheme.el

@@ -110,7 +110,7 @@
     geiser-impl--implementation))
     geiser-impl--implementation))
 
 
 (defun org-babel-scheme-get-repl (impl name)
 (defun org-babel-scheme-get-repl (impl name)
-  "Switch to a scheme REPL, creating it if it doesn't exist:"
+  "Switch to a scheme REPL, creating it if it doesn't exist."
   (let ((buffer (org-babel-scheme-get-session-buffer name)))
   (let ((buffer (org-babel-scheme-get-session-buffer name)))
     (or buffer
     (or buffer
 	(progn
 	(progn

+ 1 - 1
lisp/ob-screen.el

@@ -30,7 +30,7 @@
 ;; Adding :cmd and :terminal as header arguments
 ;; Adding :cmd and :terminal as header arguments
 ;; :terminal must support the -T (title) and -e (command) parameter
 ;; :terminal must support the -T (title) and -e (command) parameter
 ;;
 ;;
-;; You can test the default setup. (xterm + sh) with
+;; You can test the default setup (xterm + sh) with
 ;; M-x org-babel-screen-test RET
 ;; M-x org-babel-screen-test RET
 
 
 ;;; Code:
 ;;; Code:

+ 14 - 8
lisp/ob-tangle.el

@@ -169,11 +169,14 @@ evaluating BODY."
 (defun org-babel-tangle-file (file &optional target-file lang-re)
 (defun org-babel-tangle-file (file &optional target-file lang-re)
   "Extract the bodies of source code blocks in FILE.
   "Extract the bodies of source code blocks in FILE.
 Source code blocks are extracted with `org-babel-tangle'.
 Source code blocks are extracted with `org-babel-tangle'.
+
 Optional argument TARGET-FILE can be used to specify a default
 Optional argument TARGET-FILE can be used to specify a default
-export file for all source blocks.  Optional argument LANG-RE can
-be used to limit the exported source code blocks by languages
-matching a regular expression.  Return a list whose CAR is the
-tangled file name."
+export file for all source blocks.
+
+Optional argument LANG-RE can be used to limit the exported
+source code blocks by languages matching a regular expression.
+
+Return a list whose CAR is the tangled file name."
   (interactive "fFile to tangle: \nP")
   (interactive "fFile to tangle: \nP")
   (let ((visited-p (find-buffer-visiting (expand-file-name file)))
   (let ((visited-p (find-buffer-visiting (expand-file-name file)))
 	to-be-removed)
 	to-be-removed)
@@ -371,10 +374,13 @@ as computed by `org-babel-tangle-single-block'."
   "Collect source blocks in the current Org file.
   "Collect source blocks in the current Org file.
 Return an association list of language and source-code block
 Return an association list of language and source-code block
 specifications of the form used by `org-babel-spec-to-string'
 specifications of the form used by `org-babel-spec-to-string'
-grouped by tangled file name. Optional argument LANG-RE can be
-used to limit the collected source code blocks by languages
-matching a regular expression. Optional argument TANGLE-FILE can
-be used to limit the collected code blocks by target file."
+grouped by tangled file name.
+
+Optional argument LANG-RE can be used to limit the collected
+source code blocks by languages matching a regular expression.
+
+Optional argument TANGLE-FILE can be used to limit the collected
+code blocks by target file."
   (let ((counter 0) last-heading-pos blocks)
   (let ((counter 0) last-heading-pos blocks)
     (org-babel-map-src-blocks (buffer-file-name)
     (org-babel-map-src-blocks (buffer-file-name)
       (let ((current-heading-pos
       (let ((current-heading-pos

+ 2 - 2
lisp/oc-basic.el

@@ -632,7 +632,7 @@ export communication channel, as a property list."
 (defun org-cite-basic-export-bibliography (keys _files style _props backend info)
 (defun org-cite-basic-export-bibliography (keys _files style _props backend info)
   "Generate bibliography.
   "Generate bibliography.
 KEYS is the list of cited keys, as strings.  STYLE is the expected bibliography
 KEYS is the list of cited keys, as strings.  STYLE is the expected bibliography
-style, as a string.  BACKEND is the export back-end, as a symbol. INFO is the
+style, as a string.  BACKEND is the export back-end, as a symbol.  INFO is the
 export state, as a property list."
 export state, as a property list."
   (mapconcat
   (mapconcat
    (lambda (k)
    (lambda (k)
@@ -767,4 +767,4 @@ Raise an error when no bibliography is set in the buffer."
     (("nil") ("bare" "b") ("bare-caps" "bc") ("caps" "c"))))
     (("nil") ("bare" "b") ("bare-caps" "bc") ("caps" "c"))))
 
 
 (provide 'oc-basic)
 (provide 'oc-basic)
-;;; oc-default.el ends here
+;;; oc-basic.el ends here

+ 1 - 1
lisp/oc-csl.el

@@ -609,4 +609,4 @@ property list."
     (("nil") ("bare" "b") ("bare-caps" "bc") ("caps" "c"))))
     (("nil") ("bare" "b") ("bare-caps" "bc") ("caps" "c"))))
 
 
 (provide 'oc-csl)
 (provide 'oc-csl)
-;;; oc-citeproc.el ends here
+;;; oc-csl.el ends here

+ 1 - 1
lisp/ol-bbdb.el

@@ -60,7 +60,7 @@
 ;;
 ;;
 ;; CLASS-OR-FORMAT-STRING is one of two things:
 ;; CLASS-OR-FORMAT-STRING is one of two things:
 ;;
 ;;
-;;  - an identifier for a class of anniversaries (eg. birthday or
+;;  - an identifier for a class of anniversaries (e.g. birthday or
 ;;    wedding) from `org-bbdb-anniversary-format-alist' which then
 ;;    wedding) from `org-bbdb-anniversary-format-alist' which then
 ;;    defines the format string for this class
 ;;    defines the format string for this class
 ;;  - the (format) string displayed in the diary.
 ;;  - the (format) string displayed in the diary.

+ 4 - 4
lisp/ol-eshell.el

@@ -35,9 +35,9 @@
 
 
 (defun org-eshell-open (link _)
 (defun org-eshell-open (link _)
   "Switch to an eshell buffer and execute a command line.
   "Switch to an eshell buffer and execute a command line.
-   The link can be just a command line (executed in the default
-   eshell buffer) or a command line prefixed by a buffer name
-   followed by a colon."
+The link can be just a command line (executed in the default
+eshell buffer) or a command line prefixed by a buffer name
+followed by a colon."
   (let* ((buffer-and-command
   (let* ((buffer-and-command
           (if (string-match "\\([A-Za-z0-9+*-]+\\):\\(.*\\)" link)
           (if (string-match "\\([A-Za-z0-9+*-]+\\):\\(.*\\)" link)
 	      (list (match-string 1 link)
 	      (list (match-string 1 link)
@@ -55,7 +55,7 @@
 
 
 (defun org-eshell-store-link ()
 (defun org-eshell-store-link ()
   "Store a link that, when opened, switches back to the current eshell buffer
   "Store a link that, when opened, switches back to the current eshell buffer
-   and the current working directory."
+and the current working directory."
   (when (eq major-mode 'eshell-mode)
   (when (eq major-mode 'eshell-mode)
     (let* ((command (concat "cd " (eshell/pwd)))
     (let* ((command (concat "cd " (eshell/pwd)))
            (link  (concat (buffer-name) ":" command)))
            (link  (concat (buffer-name) ":" command)))

+ 1 - 1
lisp/ol-info.el

@@ -91,7 +91,7 @@
     "pgg" "rcirc" "reftex" "remember" "sasl" "sc" "semantic" "ses" "sieve"
     "pgg" "rcirc" "reftex" "remember" "sasl" "sc" "semantic" "ses" "sieve"
     "smtpmail" "speedbar" "srecode" "todo-mode" "tramp" "url" "vip" "viper"
     "smtpmail" "speedbar" "srecode" "todo-mode" "tramp" "url" "vip" "viper"
     "widget" "wisent" "woman")
     "widget" "wisent" "woman")
-  "List of emacs documents available.
+  "List of Emacs documents available.
 Taken from <https://www.gnu.org/software/emacs/manual/html_mono/.>")
 Taken from <https://www.gnu.org/software/emacs/manual/html_mono/.>")
 
 
 (defconst org-info-other-documents
 (defconst org-info-other-documents

+ 2 - 2
lisp/ol.el

@@ -506,7 +506,7 @@ links more efficient."
   "Regular expression matching radio targets in plain text.")
   "Regular expression matching radio targets in plain text.")
 
 
 (defvar org-link-types-re nil
 (defvar org-link-types-re nil
-  "Matches a link that has a url-like prefix like \"http:\"")
+  "Matches a link that has a url-like prefix like \"http:\".")
 
 
 (defvar org-link-angle-re nil
 (defvar org-link-angle-re nil
   "Matches link with angular brackets, spaces are allowed.")
   "Matches link with angular brackets, spaces are allowed.")
@@ -929,7 +929,7 @@ and dates."
 
 
 (defun org-link-encode (text table)
 (defun org-link-encode (text table)
   "Return percent escaped representation of string TEXT.
   "Return percent escaped representation of string TEXT.
-TEXT is a string with the text to escape. TABLE is a list of
+TEXT is a string with the text to escape.  TABLE is a list of
 characters that should be escaped."
 characters that should be escaped."
   (mapconcat
   (mapconcat
    (lambda (c)
    (lambda (c)

+ 11 - 10
lisp/org-agenda.el

@@ -2468,7 +2468,7 @@ The following commands are available:
 (when org-agenda-mouse-1-follows-link
 (when org-agenda-mouse-1-follows-link
   (org-defkey org-agenda-mode-map [follow-link] 'mouse-face))
   (org-defkey org-agenda-mode-map [follow-link] 'mouse-face))
 
 
-(easy-menu-define org-agenda-menu org-agenda-mode-map "Agenda menu"
+(easy-menu-define org-agenda-menu org-agenda-mode-map "Agenda menu."
   '("Agenda"
   '("Agenda"
     ("Agenda Files")
     ("Agenda Files")
     "--"
     "--"
@@ -3765,7 +3765,7 @@ the global options and expect it to be applied to the entire view.")
     (tag . org-agenda-tag-filter)
     (tag . org-agenda-tag-filter)
     (effort . org-agenda-effort-filter)
     (effort . org-agenda-effort-filter)
     (regexp . org-agenda-regexp-filter))
     (regexp . org-agenda-regexp-filter))
-  "Alist of filter types and associated variables")
+  "Alist of filter types and associated variables.")
 (defun org-agenda-filter-any ()
 (defun org-agenda-filter-any ()
   "Is any filter active?"
   "Is any filter active?"
   (cl-some (lambda (x)
   (cl-some (lambda (x)
@@ -4306,7 +4306,7 @@ items if they have an hour specification like [h]h:mm."
     (setq span arg arg nil))
     (setq span arg arg nil))
   (when (numberp span)
   (when (numberp span)
     (unless (< 0 span)
     (unless (< 0 span)
-      (user-error "Agenda creation impossible for this span(=%d days)." span)))
+      (user-error "Agenda creation impossible for this span(=%d days)" span)))
   (catch 'exit
   (catch 'exit
     (setq org-agenda-buffer-name
     (setq org-agenda-buffer-name
 	  (org-agenda--get-buffer-name
 	  (org-agenda--get-buffer-name
@@ -5062,7 +5062,7 @@ See `org-agenda-skip-if' for details."
   (org-agenda-skip-if t conditions))
   (org-agenda-skip-if t conditions))
 
 
 (defun org-agenda-skip-if (subtree conditions)
 (defun org-agenda-skip-if (subtree conditions)
-  "Checks current entity for CONDITIONS.
+  "Check current entity for CONDITIONS.
 If SUBTREE is non-nil, the entire subtree is checked.  Otherwise, only
 If SUBTREE is non-nil, the entire subtree is checked.  Otherwise, only
 the entry (i.e. the text before the next heading) is checked.
 the entry (i.e. the text before the next heading) is checked.
 
 
@@ -7806,7 +7806,7 @@ A single `\\[universal-argument]' prefix arg STRIP-OR-ACCUMULATE will negate the
 entire filter, which can be useful in connection with the prompt history.
 entire filter, which can be useful in connection with the prompt history.
 
 
 A double `\\[universal-argument] \\[universal-argument]' prefix arg will add the new filter elements to the
 A double `\\[universal-argument] \\[universal-argument]' prefix arg will add the new filter elements to the
-existing ones. A shortcut for this is to add an additional `+' at the
+existing ones.  A shortcut for this is to add an additional `+' at the
 beginning of the string, like `+-John'.
 beginning of the string, like `+-John'.
 
 
 With a triple prefix argument, execute the computed filtering defined in
 With a triple prefix argument, execute the computed filtering defined in
@@ -7957,7 +7957,7 @@ With a `\\[universal-argument] \\[universal-argument] \\[universal-argument]' pr
 i.e. don't
 i.e. don't
 filter on all its group members.
 filter on all its group members.
 
 
-A lisp caller can specify CHAR.  EXCLUDE means that the new tag
+A Lisp caller can specify CHAR.  EXCLUDE means that the new tag
 should be used to exclude the search - the interactive user can
 should be used to exclude the search - the interactive user can
 also press `-' or `+' to switch between filtering and excluding."
 also press `-' or `+' to switch between filtering and excluding."
   (interactive "P")
   (interactive "P")
@@ -8070,9 +8070,10 @@ These will be lower-case, for filtering."
 	  (setq org-agenda-represented-tags tags-lists)))))
 	  (setq org-agenda-represented-tags tags-lists)))))
 
 
 (defun org-agenda-filter-make-matcher (filter type &optional expand)
 (defun org-agenda-filter-make-matcher (filter type &optional expand)
-  "Create the form that tests a line for agenda filter.  Optional
-argument EXPAND can be used for the TYPE tag and will expand the
-tags in the FILTER if any of the tags in FILTER are grouptags."
+  "Create the form that tests a line for agenda filter.
+Optional argument EXPAND can be used for the TYPE tag and will
+expand the tags in the FILTER if any of the tags in FILTER are
+grouptags."
   (let ((multi-pos-cats
   (let ((multi-pos-cats
 	 (and (eq type 'category)
 	 (and (eq type 'category)
 	      (string-match-p "\\+.*\\+"
 	      (string-match-p "\\+.*\\+"
@@ -8936,7 +8937,7 @@ Point is in the buffer where the item originated.")
 
 
 (defun org-agenda-do-in-region (beg end cmd &optional arg force-arg delete)
 (defun org-agenda-do-in-region (beg end cmd &optional arg force-arg delete)
   "Between region BEG and END, call agenda command CMD.
   "Between region BEG and END, call agenda command CMD.
-When optional argument ARG is non-nil or FORCE-ARG is `t', pass
+When optional argument ARG is non-nil or FORCE-ARG is t, pass
 ARG to CMD.  When optional argument DELETE is non-nil, assume CMD
 ARG to CMD.  When optional argument DELETE is non-nil, assume CMD
 deletes the agenda entry and don't move to the next entry."
 deletes the agenda entry and don't move to the next entry."
   (save-excursion
   (save-excursion

+ 3 - 3
lisp/org-attach.el

@@ -120,7 +120,7 @@ lns   create a symbol link.  Note that this is not supported
 (defcustom org-attach-use-inheritance 'selective
 (defcustom org-attach-use-inheritance 'selective
   "Attachment inheritance for the outline.
   "Attachment inheritance for the outline.
 
 
-Enabling inheritance for org-attach implies two things.  First,
+Enabling inheritance for `org-attach' implies two things.  First,
 that attachment links will look through all parent headings until
 that attachment links will look through all parent headings until
 it finds the linked attachment.  Second, that running org-attach
 it finds the linked attachment.  Second, that running org-attach
 inside a node without attachments will make org-attach operate on
 inside a node without attachments will make org-attach operate on
@@ -385,7 +385,7 @@ If the attachment by some reason cannot be created an error will be raised."
     attach-dir))
     attach-dir))
 
 
 (defun org-attach-dir-from-id (id  &optional try-all)
 (defun org-attach-dir-from-id (id  &optional try-all)
-  "Returns a folder path based on `org-attach-id-dir' and ID.
+  "Return a folder path based on `org-attach-id-dir' and ID.
 If TRY-ALL is non-nil, try all id-to-path functions in
 If TRY-ALL is non-nil, try all id-to-path functions in
 `org-attach-id-to-path-function-list' and return the first path
 `org-attach-id-to-path-function-list' and return the first path
 that exist in the filesystem, or the first one if none exist.
 that exist in the filesystem, or the first one if none exist.
@@ -446,7 +446,7 @@ Return the directory."
     new))
     new))
 
 
 (defun org-attach-unset-directory ()
 (defun org-attach-unset-directory ()
-  "Removes DIR node property.
+  "Remove DIR node property.
 If attachment folder is changed due to removal of DIR-property
 If attachment folder is changed due to removal of DIR-property
 ask to move attachments to new location and ask to delete old
 ask to move attachments to new location and ask to delete old
 attachment-folder.
 attachment-folder.

+ 3 - 4
lisp/org-capture.el

@@ -108,7 +108,7 @@
 
 
 (defun org-capture-upgrade-templates (templates)
 (defun org-capture-upgrade-templates (templates)
   "Update the template list to the new format.
   "Update the template list to the new format.
-TEMPLATES is a template list, as in `org-capture-templates'. The
+TEMPLATES is a template list, as in `org-capture-templates'.  The
 new format unifies all the date/week tree targets into one that
 new format unifies all the date/week tree targets into one that
 also allows for an optional outline path to specify a target."
 also allows for an optional outline path to specify a target."
   (let ((modified-templates
   (let ((modified-templates
@@ -475,8 +475,7 @@ The capture buffer is current and still narrowed."
   :type 'hook)
   :type 'hook)
 
 
 (defcustom org-capture-bookmark t
 (defcustom org-capture-bookmark t
-  "When non-nil, add a bookmark pointing at the last stored
-position when capturing."
+  "When non-nil, add bookmark pointing at the last stored position when capturing."
   :group 'org-capture
   :group 'org-capture
   :version "24.3"
   :version "24.3"
   :type 'boolean)
   :type 'boolean)
@@ -496,7 +495,7 @@ is copied to this variable, which is local in the indirect buffer.")
 
 
 (defvar org-capture-clock-keep nil
 (defvar org-capture-clock-keep nil
   "Local variable to store the value of the :clock-keep parameter.
   "Local variable to store the value of the :clock-keep parameter.
-This is needed in case org-capture-finalize is called interactively.")
+This is needed in case `org-capture-finalize' is called interactively.")
 
 
 (defun org-capture-put (&rest stuff)
 (defun org-capture-put (&rest stuff)
   "Add properties to the capture property list `org-capture-plist'."
   "Add properties to the capture property list `org-capture-plist'."

+ 3 - 3
lisp/org-clock.el

@@ -85,7 +85,7 @@ function `org-clock-into-drawer' instead."
 	  (string :tag "Into Drawer named...")))
 	  (string :tag "Into Drawer named...")))
 
 
 (defun org-clock-into-drawer ()
 (defun org-clock-into-drawer ()
-  "Value of `org-clock-into-drawer'. but let properties overrule.
+  "Value of `org-clock-into-drawer', but let properties overrule.
 
 
 If the current entry has or inherits a CLOCK_INTO_DRAWER
 If the current entry has or inherits a CLOCK_INTO_DRAWER
 property, it will be used instead of the default value.
 property, it will be used instead of the default value.
@@ -513,9 +513,9 @@ to add an effort property.")
   "Has the clock been used during the current Emacs session?")
   "Has the clock been used during the current Emacs session?")
 
 
 (defvar org-clock-stored-history nil
 (defvar org-clock-stored-history nil
-  "Clock history, populated by `org-clock-load'")
+  "Clock history, populated by `org-clock-load'.")
 (defvar org-clock-stored-resume-clock nil
 (defvar org-clock-stored-resume-clock nil
-  "Clock to resume, saved by `org-clock-load'")
+  "Clock to resume, saved by `org-clock-load'.")
 
 
 ;;; The clock for measuring work time.
 ;;; The clock for measuring work time.
 
 

+ 1 - 1
lisp/org-colview.el

@@ -213,7 +213,7 @@ See `org-columns-summary-types' for details.")
 	      (lambda () (interactive)
 	      (lambda () (interactive)
 		(org-columns-next-allowed-value nil i))))
 		(org-columns-next-allowed-value nil i))))
 
 
-(easy-menu-define org-columns-menu org-columns-map "Org Column Menu"
+(easy-menu-define org-columns-menu org-columns-map "Org Column Menu."
   '("Column"
   '("Column"
     ["Edit property" org-columns-edit-value t]
     ["Edit property" org-columns-edit-value t]
     ["Next allowed value" org-columns-next-allowed-value t]
     ["Next allowed value" org-columns-next-allowed-value t]

+ 3 - 3
lisp/org-ctags.el

@@ -3,10 +3,8 @@
 ;; Copyright (C) 2007-2021 Free Software Foundation, Inc.
 ;; Copyright (C) 2007-2021 Free Software Foundation, Inc.
 
 
 ;; Author: Paul Sexton <eeeickythump@gmail.com>
 ;; Author: Paul Sexton <eeeickythump@gmail.com>
-
-
 ;; Keywords: org, wp
 ;; Keywords: org, wp
-;;
+
 ;; This file is part of GNU Emacs.
 ;; This file is part of GNU Emacs.
 ;;
 ;;
 ;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; GNU Emacs is free software: you can redistribute it and/or modify
@@ -22,6 +20,8 @@
 ;; You should have received a copy of the GNU General Public License
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
 
 
+;;; Commentary:
+
 ;;
 ;;
 ;; Synopsis
 ;; Synopsis
 ;; ========
 ;; ========

+ 2 - 2
lisp/org-datetree.el

@@ -72,8 +72,8 @@ will be built under the headline at point."
 (defun org-datetree--find-create-group
 (defun org-datetree--find-create-group
     (d time-grouping &optional keep-restriction)
     (d time-grouping &optional keep-restriction)
   "Find or create an entry for date D.
   "Find or create an entry for date D.
-If time-period is day, group entries by day. If time-period is
-month, then group entries by month."
+If time-period is day, group entries by day.
+If time-period is month, then group entries by month."
   (setq-local org-datetree-base-level 1)
   (setq-local org-datetree-base-level 1)
   (save-restriction
   (save-restriction
     (if (eq keep-restriction 'subtree-at-point)
     (if (eq keep-restriction 'subtree-at-point)

+ 1 - 1
lisp/org-element.el

@@ -4489,7 +4489,7 @@ element or object.  Meaningful values are `first-section',
 TYPE is the type of the current element or object.
 TYPE is the type of the current element or object.
 
 
 If PARENT? is non-nil, assume the next element or object will be
 If PARENT? is non-nil, assume the next element or object will be
-located inside the current one.  "
+located inside the current one."
   (if parent?
   (if parent?
       (pcase type
       (pcase type
 	(`headline 'section)
 	(`headline 'section)

+ 1 - 1
lisp/org-goto.el

@@ -250,7 +250,7 @@ want.
 
 
 This command works around this by showing a copy of the current
 This command works around this by showing a copy of the current
 buffer in an indirect buffer, in overview mode.  You can dive
 buffer in an indirect buffer, in overview mode.  You can dive
-into the tree in that copy, use org-occur and incremental search
+into the tree in that copy, use `org-occur' and incremental search
 to find a location.  When pressing RET or `Q', the command
 to find a location.  When pressing RET or `Q', the command
 returns to the original buffer in which the visibility is still
 returns to the original buffer in which the visibility is still
 unchanged.  After RET it will also jump to the location selected
 unchanged.  After RET it will also jump to the location selected

+ 1 - 1
lisp/org-id.el

@@ -204,7 +204,7 @@ This variable is only relevant when `org-id-track-globally' is set."
   :type 'file)
   :type 'file)
 
 
 (defcustom org-id-locations-file-relative nil
 (defcustom org-id-locations-file-relative nil
-  "Determines if org-id-locations should be stored as relative links.
+  "Determine if `org-id-locations' should be stored as relative links.
 Non-nil means that links to locations are stored as links
 Non-nil means that links to locations are stored as links
 relative to the location of where `org-id-locations-file' is
 relative to the location of where `org-id-locations-file' is
 stored.
 stored.

+ 1 - 1
lisp/org-inlinetask.el

@@ -189,7 +189,7 @@ The number of levels is controlled by `org-inlinetask-min-level'."
 
 
 (defun org-inlinetask-goto-end ()
 (defun org-inlinetask-goto-end ()
   "Go to the end of the inline task at point.
   "Go to the end of the inline task at point.
-    Return point."
+Return point."
   (save-match-data
   (save-match-data
     (beginning-of-line)
     (beginning-of-line)
     (let ((case-fold-search t)
     (let ((case-fold-search t)

+ 1 - 1
lisp/org-macro.el

@@ -30,7 +30,7 @@
 ;; `org-macro-initialize-templates', which recursively calls
 ;; `org-macro-initialize-templates', which recursively calls
 ;; `org-macro--collect-macros' in order to read setup files.
 ;; `org-macro--collect-macros' in order to read setup files.
 
 
-;; Argument in macros are separated with commas. Proper escaping rules
+;; Argument in macros are separated with commas.  Proper escaping rules
 ;; are implemented in `org-macro-escape-arguments' and arguments can
 ;; are implemented in `org-macro-escape-arguments' and arguments can
 ;; be extracted from a string with `org-macro-extract-arguments'.
 ;; be extracted from a string with `org-macro-extract-arguments'.
 
 

+ 2 - 2
lisp/org-macs.el

@@ -1154,13 +1154,13 @@ move it back by one char before doing this check."
     (org-invisible-p)))
     (org-invisible-p)))
 
 
 (defun org-find-visible ()
 (defun org-find-visible ()
-  "Return closest visible buffer position, or `point-max'"
+  "Return closest visible buffer position, or `point-max'."
   (if (org-invisible-p)
   (if (org-invisible-p)
       (next-single-char-property-change (point) 'invisible)
       (next-single-char-property-change (point) 'invisible)
     (point)))
     (point)))
 
 
 (defun org-find-invisible ()
 (defun org-find-invisible ()
-  "Return closest invisible buffer position, or `point-max'"
+  "Return closest invisible buffer position, or `point-max'."
   (if (org-invisible-p)
   (if (org-invisible-p)
       (point)
       (point)
     (next-single-char-property-change (point) 'invisible)))
     (next-single-char-property-change (point) 'invisible)))

+ 1 - 1
lisp/org-mouse.el

@@ -161,7 +161,7 @@ it is intended to operate on.  If nil, then the action has been invoked
 indirectly, for example, through the agenda buffer.")
 indirectly, for example, through the agenda buffer.")
 
 
 (defgroup org-mouse nil
 (defgroup org-mouse nil
-  "Mouse support for org-mode."
+  "Mouse support for `org-mode'."
   :tag "Org Mouse"
   :tag "Org Mouse"
   :group 'org)
   :group 'org)
 
 

+ 2 - 2
lisp/org-num.el

@@ -29,8 +29,8 @@
 ;; to toggle it.
 ;; to toggle it.
 ;;
 ;;
 ;; You can select what is numbered according to level, tags, COMMENT
 ;; You can select what is numbered according to level, tags, COMMENT
-;; keyword, or UNNUMBERED property. You can also skip footnotes
-;; sections. See `org-num-max-level', `org-num-skip-tags',
+;; keyword, or UNNUMBERED property.  You can also skip footnotes
+;; sections.  See `org-num-max-level', `org-num-skip-tags',
 ;; `org-num-skip-commented', `org-num-skip-unnumbered', and
 ;; `org-num-skip-commented', `org-num-skip-unnumbered', and
 ;; `org-num-skip-footnotes' for details.
 ;; `org-num-skip-footnotes' for details.
 ;;
 ;;

+ 2 - 3
lisp/org-pcomplete.el

@@ -21,8 +21,7 @@
 
 
 ;; You should have received a copy of the GNU General Public License
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
+
 ;;; Code:
 ;;; Code:
 
 
 ;;;; Require other packages
 ;;;; Require other packages
@@ -186,7 +185,7 @@ When completing for #+STARTUP, for example, this function returns
 	(cons (reverse args) (reverse begins))))))
 	(cons (reverse args) (reverse begins))))))
 
 
 (defun org-pcomplete-initial ()
 (defun org-pcomplete-initial ()
-  "Calls the right completion function for first argument completions."
+  "Call the right completion function for first argument completions."
   (ignore
   (ignore
    (funcall (or (pcomplete-find-completion-function
    (funcall (or (pcomplete-find-completion-function
 		 (car (org-thing-at-point)))
 		 (car (org-thing-at-point)))

+ 1 - 1
lisp/org-src.el

@@ -584,7 +584,7 @@ Leave point in edit buffer."
 
 
 (defun org-src-font-lock-fontify-block (lang start end)
 (defun org-src-font-lock-fontify-block (lang start end)
   "Fontify code block.
   "Fontify code block.
-This function is called by emacs automatic fontification, as long
+This function is called by Emacs' automatic fontification, as long
 as `org-src-fontify-natively' is non-nil."
 as `org-src-fontify-natively' is non-nil."
   (let ((lang-mode (org-src-get-lang-mode lang)))
   (let ((lang-mode (org-src-get-lang-mode lang)))
     (when (fboundp lang-mode)
     (when (fboundp lang-mode)

+ 15 - 15
lisp/org-table.el

@@ -331,7 +331,7 @@ relies on the variables to be present in the list."
 The default value is `hours', and will output the results as a
 The default value is `hours', and will output the results as a
 number of hours.  Other allowed values are `seconds', `minutes' and
 number of hours.  Other allowed values are `seconds', `minutes' and
 `days', and the output will be a fraction of seconds, minutes or
 `days', and the output will be a fraction of seconds, minutes or
-days. `hh:mm' selects to use hours and minutes, ignoring seconds.
+days.  `hh:mm' selects to use hours and minutes, ignoring seconds.
 The `U' flag in a table formula will select this specific format for
 The `U' flag in a table formula will select this specific format for
 a single formula."
 a single formula."
   :group 'org-table-calculation
   :group 'org-table-calculation
@@ -3267,7 +3267,7 @@ Parameters get priority."
     (org-defkey map "\C-c}"    'org-table-fedit-toggle-coordinates)
     (org-defkey map "\C-c}"    'org-table-fedit-toggle-coordinates)
     map))
     map))
 
 
-(easy-menu-define org-table-fedit-menu org-table-fedit-map "Org Edit Formulas Menu"
+(easy-menu-define org-table-fedit-menu org-table-fedit-map "Org Edit Formulas Menu."
   '("Edit-Formulas"
   '("Edit-Formulas"
     ["Finish and Install" org-table-fedit-finish t]
     ["Finish and Install" org-table-fedit-finish t]
     ["Finish, Install, and Apply" (org-table-fedit-finish t) :keys "C-u C-c C-c"]
     ["Finish, Install, and Apply" (org-table-fedit-finish t) :keys "C-u C-c C-c"]
@@ -5076,7 +5076,7 @@ When LOCAL is non-nil, show references for the table at point."
 (put 'orgtbl-mode :included t)
 (put 'orgtbl-mode :included t)
 (put 'orgtbl-mode :menu-tag "Org Table Mode")
 (put 'orgtbl-mode :menu-tag "Org Table Mode")
 
 
-(easy-menu-define orgtbl-mode-menu orgtbl-mode-map "OrgTbl menu"
+(easy-menu-define orgtbl-mode-menu orgtbl-mode-map "OrgTbl menu."
   '("OrgTbl"
   '("OrgTbl"
     ["Create or convert" org-table-create-or-convert-from-region
     ["Create or convert" org-table-create-or-convert-from-region
      :active (not (org-at-table-p)) :keys "C-c |" ]
      :active (not (org-at-table-p)) :keys "C-c |" ]
@@ -5326,7 +5326,7 @@ With prefix arg, also recompute table."
 (defun orgtbl-create-or-convert-from-region (_arg)
 (defun orgtbl-create-or-convert-from-region (_arg)
   "Create table or convert region to table, if no conflicting binding.
   "Create table or convert region to table, if no conflicting binding.
 This installs the table binding `C-c |', but only if there is no
 This installs the table binding `C-c |', but only if there is no
-conflicting binding to this key outside orgtbl-mode."
+conflicting binding to this key outside `orgtbl-mode'."
   (interactive "P")
   (interactive "P")
   (let* (orgtbl-mode (cmd (key-binding "\C-c|")))
   (let* (orgtbl-mode (cmd (key-binding "\C-c|")))
     (if cmd
     (if cmd
@@ -5565,7 +5565,7 @@ First element has index 0, or I0 if given."
 
 
 ;;;###autoload
 ;;;###autoload
 (defun orgtbl-to-generic (table params)
 (defun orgtbl-to-generic (table params)
-  "Convert the orgtbl-mode TABLE to some other format.
+  "Convert the `orgtbl-mode' TABLE to some other format.
 
 
 This generic routine can be used for many standard cases.
 This generic routine can be used for many standard cases.
 
 
@@ -5952,12 +5952,12 @@ information."
 
 
 ;;;###autoload
 ;;;###autoload
 (defun orgtbl-to-tsv (table params)
 (defun orgtbl-to-tsv (table params)
-  "Convert the orgtbl-mode table to TAB separated material."
+  "Convert the `orgtbl-mode' TABLE to TAB separated material."
   (orgtbl-to-generic table (org-combine-plists '(:sep "\t") params)))
   (orgtbl-to-generic table (org-combine-plists '(:sep "\t") params)))
 
 
 ;;;###autoload
 ;;;###autoload
 (defun orgtbl-to-csv (table params)
 (defun orgtbl-to-csv (table params)
-  "Convert the orgtbl-mode table to CSV material.
+  "Convert the `orgtbl-mode' TABLE to CSV material.
 This does take care of the proper quoting of fields with comma or quotes."
 This does take care of the proper quoting of fields with comma or quotes."
   (orgtbl-to-generic table
   (orgtbl-to-generic table
 		     (org-combine-plists '(:sep "," :fmt org-quote-csv-field)
 		     (org-combine-plists '(:sep "," :fmt org-quote-csv-field)
@@ -5965,7 +5965,7 @@ This does take care of the proper quoting of fields with comma or quotes."
 
 
 ;;;###autoload
 ;;;###autoload
 (defun orgtbl-to-latex (table params)
 (defun orgtbl-to-latex (table params)
-  "Convert the orgtbl-mode TABLE to LaTeX.
+  "Convert the `orgtbl-mode' TABLE to LaTeX.
 
 
 TABLE is a list, each entry either the symbol `hline' for
 TABLE is a list, each entry either the symbol `hline' for
 a horizontal separator line, or a list of fields for that line.
 a horizontal separator line, or a list of fields for that line.
@@ -5998,7 +5998,7 @@ supported.  It is also possible to use the following ones:
 
 
 ;;;###autoload
 ;;;###autoload
 (defun orgtbl-to-html (table params)
 (defun orgtbl-to-html (table params)
-  "Convert the orgtbl-mode TABLE to HTML.
+  "Convert the `orgtbl-mode' TABLE to HTML.
 
 
 TABLE is a list, each entry either the symbol `hline' for
 TABLE is a list, each entry either the symbol `hline' for
 a horizontal separator line, or a list of fields for that line.
 a horizontal separator line, or a list of fields for that line.
@@ -6029,7 +6029,7 @@ supported.  It is also possible to use the following one:
 
 
 ;;;###autoload
 ;;;###autoload
 (defun orgtbl-to-texinfo (table params)
 (defun orgtbl-to-texinfo (table params)
-  "Convert the orgtbl-mode TABLE to Texinfo.
+  "Convert the `orgtbl-mode' TABLE to Texinfo.
 
 
 TABLE is a list, each entry either the symbol `hline' for
 TABLE is a list, each entry either the symbol `hline' for
 a horizontal separator line, or a list of fields for that line.
 a horizontal separator line, or a list of fields for that line.
@@ -6060,7 +6060,7 @@ supported.  It is also possible to use the following one:
 
 
 ;;;###autoload
 ;;;###autoload
 (defun orgtbl-to-orgtbl (table params)
 (defun orgtbl-to-orgtbl (table params)
-  "Convert the orgtbl-mode TABLE into another orgtbl-mode table.
+  "Convert the `orgtbl-mode' TABLE into another orgtbl-mode table.
 
 
 TABLE is a list, each entry either the symbol `hline' for
 TABLE is a list, each entry either the symbol `hline' for
 a horizontal separator line, or a list of fields for that line.
 a horizontal separator line, or a list of fields for that line.
@@ -6075,7 +6075,7 @@ be set to provide ORGTBL directives for the generated table."
   (orgtbl-to-generic table (org-combine-plists params (list :backend 'org))))
   (orgtbl-to-generic table (org-combine-plists params (list :backend 'org))))
 
 
 (defun orgtbl-to-table.el (table params)
 (defun orgtbl-to-table.el (table params)
-  "Convert the orgtbl-mode TABLE into a table.el table.
+  "Convert the `orgtbl-mode' TABLE into a table.el table.
 TABLE is a list, each entry either the symbol `hline' for
 TABLE is a list, each entry either the symbol `hline' for
 a horizontal separator line, or a list of fields for that line.
 a horizontal separator line, or a list of fields for that line.
 PARAMS is a property list of parameters that can influence the
 PARAMS is a property list of parameters that can influence the
@@ -6089,7 +6089,7 @@ supported."
      (replace-regexp-in-string "|-" "+-" (buffer-substring 1 (buffer-size))))))
      (replace-regexp-in-string "|-" "+-" (buffer-substring 1 (buffer-size))))))
 
 
 (defun orgtbl-to-unicode (table params)
 (defun orgtbl-to-unicode (table params)
-  "Convert the orgtbl-mode TABLE into a table with unicode characters.
+  "Convert the `orgtbl-mode' TABLE into a table with unicode characters.
 
 
 TABLE is a list, each entry either the symbol `hline' for
 TABLE is a list, each entry either the symbol `hline' for
 a horizontal separator line, or a list of fields for that line.
 a horizontal separator line, or a list of fields for that line.
@@ -6206,7 +6206,7 @@ which will prompt for the width."
 
 
 (defun orgtbl-uc-draw-grid (value min max &optional width)
 (defun orgtbl-uc-draw-grid (value min max &optional width)
   "Draw a bar in a table using block unicode characters.
   "Draw a bar in a table using block unicode characters.
-It is a variant of orgtbl-ascii-draw with Unicode block
+It is a variant of `orgtbl-ascii-draw' with Unicode block
 characters, for a smooth display.  Bars appear as grids (to the
 characters, for a smooth display.  Bars appear as grids (to the
 extent the font allows)."
 extent the font allows)."
   ;; https://en.wikipedia.org/wiki/Block_Elements
   ;; https://en.wikipedia.org/wiki/Block_Elements
@@ -6216,7 +6216,7 @@ extent the font allows)."
 
 
 (defun orgtbl-uc-draw-cont (value min max &optional width)
 (defun orgtbl-uc-draw-cont (value min max &optional width)
   "Draw a bar in a table using block unicode characters.
   "Draw a bar in a table using block unicode characters.
-It is a variant of orgtbl-ascii-draw with Unicode block
+It is a variant of `orgtbl-ascii-draw' with Unicode block
 characters, for a smooth display.  Bars are solid (to the extent
 characters, for a smooth display.  Bars are solid (to the extent
 the font allows)."
 the font allows)."
   (orgtbl-ascii-draw value min max width
   (orgtbl-ascii-draw value min max width

+ 13 - 13
lisp/org.el

@@ -3154,7 +3154,7 @@ it in the document property drawer.  For example:
 :CATEGORY: ELisp
 :CATEGORY: ELisp
 :END:
 :END:
 
 
-Other ways to define it is as an emacs file variable, for example
+Other ways to define it is as an Emacs file variable, for example
 
 
 #   -*- mode: org; org-category: \"ELisp\"
 #   -*- mode: org; org-category: \"ELisp\"
 
 
@@ -9561,7 +9561,7 @@ If an element cannot be made unique, an error is raised."
 				(mapcar (apply-partially #'concat (substring  key 0 1))
 				(mapcar (apply-partially #'concat (substring  key 0 1))
 					(split-string (substring key 1) "" t)))))))
 					(split-string (substring key 1) "" t)))))))
 	(if (or (not potential-key) (assoc potential-key menu-keys))
 	(if (or (not potential-key) (assoc potential-key menu-keys))
-	    (user-error "Could not make unique key for %s." key)
+            (user-error "Could not make unique key for `%s'" key)
 	  (push (cons potential-key key) menu-keys))))
 	  (push (cons potential-key key) menu-keys))))
     (mapcar #'car
     (mapcar #'car
 	    (cl-sort menu-keys #'<
 	    (cl-sort menu-keys #'<
@@ -12506,12 +12506,12 @@ Inherited tags have the `inherited' text property."
 (defun org-map-entries (func &optional match scope &rest skip)
 (defun org-map-entries (func &optional match scope &rest skip)
   "Call FUNC at each headline selected by MATCH in SCOPE.
   "Call FUNC at each headline selected by MATCH in SCOPE.
 
 
-FUNC is a function or a lisp form.  The function will be called without
+FUNC is a function or a Lisp form.  The function will be called without
 arguments, with the cursor positioned at the beginning of the headline.
 arguments, with the cursor positioned at the beginning of the headline.
 The return values of all calls to the function will be collected and
 The return values of all calls to the function will be collected and
 returned as a list.
 returned as a list.
 
 
-The call to FUNC will be wrapped into a save-excursion form, so FUNC
+The call to FUNC will be wrapped into a `save-excursion' form, so FUNC
 does not need to preserve point.  After evaluation, the cursor will be
 does not need to preserve point.  After evaluation, the cursor will be
 moved to the end of the line (presumably of the headline of the
 moved to the end of the line (presumably of the headline of the
 processed entry) and search continues from there.  Under some
 processed entry) and search continues from there.  Under some
@@ -13803,7 +13803,7 @@ If there is already a timestamp at the cursor, it is replaced.
 With two universal prefix arguments, insert an active timestamp
 With two universal prefix arguments, insert an active timestamp
 with the current time without prompting the user.
 with the current time without prompting the user.
 
 
-When called from lisp, the timestamp is inactive if INACTIVE is
+When called from Lisp, the timestamp is inactive if INACTIVE is
 non-nil."
 non-nil."
   (interactive "P")
   (interactive "P")
   (let* ((ts (cond
   (let* ((ts (cond
@@ -15376,9 +15376,9 @@ This function is useful in a setup where one tracks Org files
 with a version control system, to revert on one machine after pulling
 with a version control system, to revert on one machine after pulling
 changes from another.  I believe the procedure must be like this:
 changes from another.  I believe the procedure must be like this:
 
 
-1. M-x org-save-all-org-buffers
+1. \\[org-save-all-org-buffers]
 2. Pull changes from the other machine, resolve conflicts
 2. Pull changes from the other machine, resolve conflicts
-3. M-x org-revert-all-org-buffers"
+3. \\[org-revert-all-org-buffers]"
   (interactive)
   (interactive)
   (unless (yes-or-no-p "Revert all Org buffers from their files? ")
   (unless (yes-or-no-p "Revert all Org buffers from their files? ")
     (user-error "Abort"))
     (user-error "Abort"))
@@ -18039,7 +18039,7 @@ object (e.g., within a comment).  In these case, you need to use
 Call `org-table-next-row' or `org-return', depending on context.
 Call `org-table-next-row' or `org-return', depending on context.
 See the individual commands for more information.
 See the individual commands for more information.
 
 
-When inserting a newline, if `org-adapt-indentation' is `t':
+When inserting a newline, if `org-adapt-indentation' is t:
 indent the line if `electric-indent-mode' is disabled, don't
 indent the line if `electric-indent-mode' is disabled, don't
 indent it if it is enabled."
 indent it if it is enabled."
   (interactive)
   (interactive)
@@ -18209,7 +18209,7 @@ an argument, unconditionally call `org-insert-heading'."
        (not (org-at-table-p))))
        (not (org-at-table-p))))
 
 
 ;; Define the Org mode menus
 ;; Define the Org mode menus
-(easy-menu-define org-org-menu org-mode-map "Org menu"
+(easy-menu-define org-org-menu org-mode-map "Org menu."
   `("Org"
   `("Org"
     ("Show/Hide"
     ("Show/Hide"
      ["Cycle Visibility" org-cycle :active (or (bobp) (outline-on-heading-p))]
      ["Cycle Visibility" org-cycle :active (or (bobp) (outline-on-heading-p))]
@@ -18394,7 +18394,7 @@ an argument, unconditionally call `org-insert-heading'."
      ["Reload Org (after update)" org-reload t]
      ["Reload Org (after update)" org-reload t]
      ["Reload Org uncompiled" (org-reload t) :active t :keys "C-u C-c C-x !"])))
      ["Reload Org uncompiled" (org-reload t) :active t :keys "C-u C-c C-x !"])))
 
 
-(easy-menu-define org-tbl-menu org-mode-map "Org Table menu"
+(easy-menu-define org-tbl-menu org-mode-map "Org Table menu."
   '("Table"
   '("Table"
     ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p)]
     ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p)]
     ["Next Field" org-cycle (org-at-table-p)]
     ["Next Field" org-cycle (org-at-table-p)]
@@ -19125,7 +19125,7 @@ Indentation is done according to the following rules:
        Else, indent like parent's first line.
        Else, indent like parent's first line.
 
 
     3. Otherwise, indent relatively to current level, if
     3. Otherwise, indent relatively to current level, if
-       `org-adapt-indentation' is `t', or to left margin.
+       `org-adapt-indentation' is t, or to left margin.
 
 
   - On a blank line at the end of an element, indent according to
   - On a blank line at the end of an element, indent according to
     the type of the element.  More precisely
     the type of the element.  More precisely
@@ -20090,7 +20090,7 @@ it has a `diary' type."
 (defvar org--rds)
 (defvar org--rds)
 
 
 (defun org-reftex-citation ()
 (defun org-reftex-citation ()
-  "Use reftex-citation to insert a citation into the buffer.
+  "Use `reftex-citation' to insert a citation into the buffer.
 This looks for a line like
 This looks for a line like
 
 
 #+BIBLIOGRAPHY: foo plain option:-d
 #+BIBLIOGRAPHY: foo plain option:-d
@@ -20410,7 +20410,7 @@ interactive command with similar behavior."
 	(call-interactively command))))))
 	(call-interactively command))))))
 
 
 (defun org-yank-folding-would-swallow-text (beg end)
 (defun org-yank-folding-would-swallow-text (beg end)
-  "Would hide-subtree at BEG swallow any text after END?"
+  "Would `hide-subtree' at BEG swallow any text after END?"
   (let (level)
   (let (level)
     (org-with-limited-levels
     (org-with-limited-levels
      (save-excursion
      (save-excursion

+ 4 - 4
lisp/ox-html.el

@@ -194,7 +194,7 @@
 (defvar htmlize-buffer-places)  ; from htmlize.el
 (defvar htmlize-buffer-places)  ; from htmlize.el
 
 
 (defvar org-html--pre/postamble-class "status"
 (defvar org-html--pre/postamble-class "status"
-  "CSS class used for pre/postamble")
+  "CSS class used for pre/postamble.")
 
 
 (defconst org-html-doctype-alist
 (defconst org-html-doctype-alist
   '(("html4-strict" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01//EN\"
   '(("html4-strict" . "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01//EN\"
@@ -783,7 +783,7 @@ The function should return the string to be exported."
   "The MathJax command to use when referencing equations.
   "The MathJax command to use when referencing equations.
 
 
 This is a format control string that expects a single string argument
 This is a format control string that expects a single string argument
-specifying the label that is being referenced. The argument is
+specifying the label that is being referenced.  The argument is
 generated automatically on export.
 generated automatically on export.
 
 
 The default is to wrap equations in parentheses (using \"\\eqref{%s}\)\".
 The default is to wrap equations in parentheses (using \"\\eqref{%s}\)\".
@@ -874,7 +874,7 @@ link's path."
 (defcustom org-html-htmlize-output-type 'inline-css
 (defcustom org-html-htmlize-output-type 'inline-css
   "Output type to be used by htmlize when formatting code snippets.
   "Output type to be used by htmlize when formatting code snippets.
 Choices are `css' to export the CSS selectors only,`inline-css'
 Choices are `css' to export the CSS selectors only,`inline-css'
-to export the CSS attribute values inline in the HTML or `nil' to
+to export the CSS attribute values inline in the HTML or nil to
 export plain text.  We use as default `inline-css', in order to
 export plain text.  We use as default `inline-css', in order to
 make the resulting HTML self-containing.
 make the resulting HTML self-containing.
 
 
@@ -1133,7 +1133,7 @@ The choices are:
   `html'    HTML checkboxes
   `html'    HTML checkboxes
 
 
 Note that only the ascii characters implement tri-state
 Note that only the ascii characters implement tri-state
-checkboxes. The other two use the `off' checkbox for `trans'.")
+checkboxes.  The other two use the `off' checkbox for `trans'.")
 
 
 (defcustom org-html-checkbox-type 'ascii
 (defcustom org-html-checkbox-type 'ascii
   "The type of checkboxes to use for HTML export.
   "The type of checkboxes to use for HTML export.

+ 4 - 4
lisp/ox-koma-letter.el

@@ -77,8 +77,8 @@
 ;;
 ;;
 ;; The following variables works differently from the main LaTeX class
 ;; The following variables works differently from the main LaTeX class
 ;;   - AUTHOR: Default to user-full-name but may be disabled.
 ;;   - AUTHOR: Default to user-full-name but may be disabled.
-;;     (See also `org-koma-letter-author'),
-;;   - EMAIL: Same as AUTHOR. (see also `org-koma-letter-email'),
+;;     (See also `org-koma-letter-author'.)
+;;   - EMAIL: Same as AUTHOR.  (See also `org-koma-letter-email'.)
 ;;
 ;;
 ;; FROM_LOGO uses LaTeX markup.  FROM_LOGO provides the
 ;; FROM_LOGO uses LaTeX markup.  FROM_LOGO provides the
 ;; "includegraphics" command to tell LaTeX where to find the logo.
 ;; "includegraphics" command to tell LaTeX where to find the logo.
@@ -478,7 +478,7 @@ e.g. \"title-subject:t\"."
   "Header tags to be inserted in the letter after closing.")
   "Header tags to be inserted in the letter after closing.")
 
 
 (defconst org-koma-letter-special-tags-as-macro '(ps encl cc)
 (defconst org-koma-letter-special-tags-as-macro '(ps encl cc)
-  "Header tags to be inserted as macros")
+  "Header tags to be inserted as macros.")
 
 
 (defconst org-koma-letter-special-tags-after-letter '(after_letter)
 (defconst org-koma-letter-special-tags-after-letter '(after_letter)
   "Header tags to be inserted after the letter.")
   "Header tags to be inserted after the letter.")
@@ -607,7 +607,7 @@ such as the one tagged with PS."
 
 
 
 
 (defun org-koma-letter--add-latex-newlines (string)
 (defun org-koma-letter--add-latex-newlines (string)
-  "Replace regular newlines with LaTeX newlines (i.e. `\\\\')"
+  "Replace regular newlines with LaTeX newlines (i.e. `\\\\')."
   (let ((str (org-trim string)))
   (let ((str (org-trim string)))
     (when (org-string-nw-p str)
     (when (org-string-nw-p str)
       (replace-regexp-in-string "\n" "\\\\\\\\\n" str))))
       (replace-regexp-in-string "\n" "\\\\\\\\\n" str))))

+ 1 - 1
lisp/ox-latex.el

@@ -297,7 +297,7 @@
     ("uk" "ukrainian")
     ("uk" "ukrainian")
     ("ur" "urdu")
     ("ur" "urdu")
     ("vi" "vietnamese"))
     ("vi" "vietnamese"))
-  "Alist between language code and corresponding Polyglossia option")
+  "Alist between language code and corresponding Polyglossia option.")
 
 
 (defconst org-latex-table-matrix-macros '(("bordermatrix" . "\\cr")
 (defconst org-latex-table-matrix-macros '(("bordermatrix" . "\\cr")
 					  ("qbordermatrix" . "\\cr")
 					  ("qbordermatrix" . "\\cr")

+ 3 - 3
lisp/ox-man.el

@@ -365,9 +365,9 @@ holding contextual information."
 
 
 (defun org-man-drawer (_drawer contents _info)
 (defun org-man-drawer (_drawer contents _info)
   "Transcode a DRAWER element from Org to Man.
   "Transcode a DRAWER element from Org to Man.
-   DRAWER holds the drawer information
-   CONTENTS holds the contents of the block.
-   INFO is a plist holding contextual information. "
+DRAWER holds the drawer information
+CONTENTS holds the contents of the block.
+INFO is a plist holding contextual information."
   contents)
   contents)
 
 
 
 

+ 5 - 6
lisp/ox-odt.el

@@ -251,7 +251,7 @@ Use `org-odt-add-automatic-style' to add update this variable.'")
 
 
 (defvar org-odt-object-counters nil
 (defvar org-odt-object-counters nil
   "Running counters for various OBJECT-TYPEs.
   "Running counters for various OBJECT-TYPEs.
-Use this to generate automatic names and style-names. See
+Use this to generate automatic names and style-names.  See
 `org-odt-add-automatic-style'.")
 `org-odt-add-automatic-style'.")
 
 
 (defvar org-odt-src-block-paragraph-format
 (defvar org-odt-src-block-paragraph-format
@@ -277,8 +277,7 @@ according to the default face identified by the `htmlfontify'.")
 (defvar org-odt-default-image-sizes-alist
 (defvar org-odt-default-image-sizes-alist
   '(("as-char" . (5 . 0.4))
   '(("as-char" . (5 . 0.4))
     ("paragraph" . (5 . 5)))
     ("paragraph" . (5 . 5)))
-  "Hardcoded image dimensions one for each of the anchor
-  methods.")
+  "Hardcoded image dimensions one for each of the anchor methods.")
 
 
 ;; A4 page size is 21.0 by 29.7 cms
 ;; A4 page size is 21.0 by 29.7 cms
 ;; The default page settings has 2cm margin on each of the sides. So
 ;; The default page settings has 2cm margin on each of the sides. So
@@ -450,7 +449,7 @@ Valid values are one of:
 4. list of the form (ODT-OR-OTT-FILE (FILE-MEMBER-1 FILE-MEMBER-2
 4. list of the form (ODT-OR-OTT-FILE (FILE-MEMBER-1 FILE-MEMBER-2
 ...))
 ...))
 
 
-In case of option 1, an in-built styles.xml is used. See
+In case of option 1, an in-built styles.xml is used.  See
 `org-odt-styles-dir' for more information.
 `org-odt-styles-dir' for more information.
 
 
 In case of option 3, the specified file is unzipped and the
 In case of option 3, the specified file is unzipped and the
@@ -2176,7 +2175,7 @@ SHORT-CAPTION are strings."
 ;;;; Links :: Inline Images
 ;;;; Links :: Inline Images
 
 
 (defun org-odt--copy-image-file (path)
 (defun org-odt--copy-image-file (path)
-  "Return the internal name of the file"
+  "Return the internal name of the file."
   (let* ((image-type (file-name-extension path))
   (let* ((image-type (file-name-extension path))
 	 (media-type (format "image/%s" image-type))
 	 (media-type (format "image/%s" image-type))
 	 (target-dir "Images/")
 	 (target-dir "Images/")
@@ -2380,7 +2379,7 @@ used as a communication channel."
 	(concat equation "<text:tab/>" label))))))
 	(concat equation "<text:tab/>" label))))))
 
 
 (defun org-odt--copy-formula-file (src-file)
 (defun org-odt--copy-formula-file (src-file)
-  "Return the internal name of the file"
+  "Return the internal name of the file."
   (let* ((target-dir (format "Formula-%04d/"
   (let* ((target-dir (format "Formula-%04d/"
 			     (cl-incf org-odt-embedded-formulas-count)))
 			     (cl-incf org-odt-embedded-formulas-count)))
 	 (target-file (concat target-dir "content.xml")))
 	 (target-file (concat target-dir "content.xml")))

+ 1 - 1
lisp/ox-publish.el

@@ -1270,7 +1270,7 @@ If FREE-CACHE, empty the cache."
   org-publish-cache)
   org-publish-cache)
 
 
 (defun org-publish-reset-cache ()
 (defun org-publish-reset-cache ()
-  "Empty org-publish-cache and reset it nil."
+  "Empty `org-publish-cache' and reset it nil."
   (message "%s" "Resetting org-publish-cache")
   (message "%s" "Resetting org-publish-cache")
   (when (hash-table-p org-publish-cache)
   (when (hash-table-p org-publish-cache)
     (clrhash org-publish-cache))
     (clrhash org-publish-cache))

+ 3 - 3
lisp/ox-texinfo.el

@@ -421,8 +421,8 @@ If two strings share the same prefix (e.g. \"ISO-8859-1\" and
 (defun org-texinfo--normalize-headlines (tree _backend info)
 (defun org-texinfo--normalize-headlines (tree _backend info)
   "Normalize headlines in TREE.
   "Normalize headlines in TREE.
 
 
-BACK-END is the symbol specifying back-end used for export. INFO
-is a plist used as a communication channel.
+BACK-END is the symbol specifying back-end used for export.
+INFO is a plist used as a communication channel.
 
 
 Make sure every headline in TREE contains a section, since those
 Make sure every headline in TREE contains a section, since those
 are required to install a menu.  Also put exactly one blank line
 are required to install a menu.  Also put exactly one blank line
@@ -1606,7 +1606,7 @@ channel."
 
 
 (defun org-texinfo-verse-block (_verse-block contents _info)
 (defun org-texinfo-verse-block (_verse-block contents _info)
   "Transcode a VERSE-BLOCK element from Org to Texinfo.
   "Transcode a VERSE-BLOCK element from Org to Texinfo.
-CONTENTS is verse block contents. INFO is a plist holding
+CONTENTS is verse block contents.  INFO is a plist holding
 contextual information."
 contextual information."
   (format "@display\n%s@end display" contents))
   (format "@display\n%s@end display" contents))