Merge single quote fixes from Emacs's master

This brings in ports of bbf389ea6de (Audit quoting the quote character
in doc strings, 2022-04-22), 2d71fd3b041 (Further doc string quoting
fixes, 2022-04-22), and b2bce107b15 (Further audits of single quotes
in Lisp doc strings, 2022-05-24) from Emacs's master branch, resolving
conflicts with 01b0fb14b (Backport from main: Escape single left
quotes in docstrings, 2022-07-24).

In all cases, take Emacs's side.  There are two cases where I think
Org's version is preferable, org-babel-lua-read-string and
org-agenda-sorting-strategy.  Don't keep those _on bugfix_ to avoid
conflicts when Emacs's emacs-28 branch is merged to its master branch.
When I merge bugfix to main, I'll keep Org's variant, so they'll
eventually make it to Emacs's tree, just not as part of the Org 9.5.x
to emacs-28 syncing.
This commit is contained in:
Kyle Meyer 2022-07-24 16:17:49 -04:00
commit 2e36ac2ac1
7 changed files with 11 additions and 11 deletions

View File

@ -480,7 +480,7 @@ value. The value can either be a string or a closure that
evaluates to a string. The closure is evaluated when the source evaluates to a string. The closure is evaluated when the source
block is being evaluated (e.g. during execution or export), with block is being evaluated (e.g. during execution or export), with
point at the source block. It is not possible to use an point at the source block. It is not possible to use an
arbitrary function symbol (e.g. \\='some-func), since org uses arbitrary function symbol (e.g. `some-func'), since org uses
lexical binding. To achieve the same functionality, call the lexical binding. To achieve the same functionality, call the
function within a closure (e.g. (lambda () (some-func))). function within a closure (e.g. (lambda () (some-func))).

View File

@ -250,8 +250,8 @@ end")
(defun org-babel-julia-evaluate-external-process (defun org-babel-julia-evaluate-external-process
(body result-type result-params column-names-p) (body result-type result-params column-names-p)
"Evaluate BODY in external julia process. "Evaluate BODY in external julia process.
If RESULT-TYPE equals \\='output then return standard output as a If RESULT-TYPE equals `output' then return standard output as a
string. If RESULT-TYPE equals \\='value then return the value of the string. If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp." last statement in BODY, as elisp."
(cl-case result-type (cl-case result-type
(value (value
@ -274,8 +274,8 @@ last statement in BODY, as elisp."
(defun org-babel-julia-evaluate-session (defun org-babel-julia-evaluate-session
(session body result-type result-params column-names-p) (session body result-type result-params column-names-p)
"Evaluate BODY in SESSION. "Evaluate BODY in SESSION.
If RESULT-TYPE equals \\='output then return standard output as a If RESULT-TYPE equals `output' then return standard output as a
string. If RESULT-TYPE equals \\='value then return the value of the string. If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp." last statement in BODY, as elisp."
(cl-case result-type (cl-case result-type
(value (value

View File

@ -395,7 +395,7 @@ fd:close()"
(org-babel-lua-table-or-string results))))) (org-babel-lua-table-or-string results)))))
(defun org-babel-lua-read-string (string) (defun org-babel-lua-read-string (string)
"Strip single quotes from around Lua string." "Strip \\=' characters from around Lua string."
(org-unbracket-string "'" "'" string)) (org-unbracket-string "'" "'" string))
(provide 'ob-lua) (provide 'ob-lua)

View File

@ -84,7 +84,7 @@ is the equivalent of the following source code block:
#+end_src #+end_src
NOTE: The quotation marks around the function name, NOTE: The quotation marks around the function name,
\\='source-block\\=', are optional. `source-block', are optional.
NOTE: By default, string variable names are interpreted as NOTE: By default, string variable names are interpreted as
references to source-code blocks, to force interpretation of a references to source-code blocks, to force interpretation of a

View File

@ -1615,7 +1615,7 @@ alpha-down Sort headlines alphabetically, reversed.
The different possibilities will be tried in sequence, and testing stops The different possibilities will be tried in sequence, and testing stops
if one comparison returns a \"not-equal\". For example, the default if one comparison returns a \"not-equal\". For example, the default
\\='(time-up category-keep priority-down) `(time-up category-keep priority-down)'
means: Pull out all entries having a specified time of day and sort them, means: Pull out all entries having a specified time of day and sort them,
in order to make a time schedule for the current day the first thing in the in order to make a time schedule for the current day the first thing in the
agenda listing for the day. Of the entries without a time indication, keep agenda listing for the day. Of the entries without a time indication, keep
@ -4124,7 +4124,7 @@ dimming them." ;FIXME: The arg isn't used, actually!
If the header at `org-hd-marker' is blocked according to If the header at `org-hd-marker' is blocked according to
`org-entry-blocked-p', then if `org-agenda-dim-blocked-tasks' is `org-entry-blocked-p', then if `org-agenda-dim-blocked-tasks' is
\\='invisible and the header is not blocked by checkboxes, set the `invisible' and the header is not blocked by checkboxes, set the
text property `org-todo-blocked' to `invisible', otherwise set it text property `org-todo-blocked' to `invisible', otherwise set it
to t." to t."
(when (get-text-property 0 'todo-state entry) (when (get-text-property 0 'todo-state entry)

View File

@ -5465,7 +5465,7 @@ The table is taken from the parameter TXT, or from the buffer at point."
(nreverse table))))) (nreverse table)))))
(defun org-table-collapse-header (table &optional separator max-header-lines) (defun org-table-collapse-header (table &optional separator max-header-lines)
"Collapse the lines before \\='hline into a single header. "Collapse the lines before `hline' into a single header.
The given TABLE is a list of lists as returned by `org-table-to-lisp'. The given TABLE is a list of lists as returned by `org-table-to-lisp'.
The leading lines before the first `hline' symbol are considered The leading lines before the first `hline' symbol are considered

View File

@ -2909,7 +2909,7 @@ Starred and \"displaymath\" environments are not numbered."
(defun org-html--unlabel-latex-environment (latex-frag) (defun org-html--unlabel-latex-environment (latex-frag)
"Change environment in LATEX-FRAG string to an unnumbered one. "Change environment in LATEX-FRAG string to an unnumbered one.
For instance, change an \\='equation\\=' environment to \\='equation*\\='." For instance, change an `equation' environment to `equation*'."
(replace-regexp-in-string (replace-regexp-in-string
"\\`[ \t]*\\\\begin{\\([^*]+?\\)}" "\\`[ \t]*\\\\begin{\\([^*]+?\\)}"
"\\1*" "\\1*"