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:
commit
2e36ac2ac1
|
@ -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))).
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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*"
|
||||||
|
|
Loading…
Reference in New Issue