summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-09-21 00:24:12 -0400
committerKyle Meyer <kyle@kyleam.com>2015-09-21 18:38:39 -0400
commit0839dc4322da1335e0168e63ad2e99fb375ee8b6 (patch)
treee025c75b3e0d06a62caf35d20b80a9ca2be62826
parent077810e5216790b737cd1bb1e313f4242e5f29d9 (diff)
downloadorg-mode-0839dc4322da1335e0168e63ad2e99fb375ee8b6.tar.gz
Protect remaining apostrophes in docstrings
Protect apostrophes not covered by the last backport. Convert expressions like '(...) to \\='(...) and symbols written as 'name to `name'. (In addition to ensuring the correct display, the latter also improves consistency with many Org docstrings.) If these aren't protected, Emacs 25 may display them as curved quotes in the help buffer, depending on the value of text-quoting-style.
-rw-r--r--lisp/ob-C.el6
-rw-r--r--lisp/ob-R.el8
-rw-r--r--lisp/ob-core.el4
-rw-r--r--lisp/ob-exp.el2
-rw-r--r--lisp/ob-groovy.el4
-rw-r--r--lisp/ob-io.el4
-rw-r--r--lisp/ob-octave.el4
-rw-r--r--lisp/ob-perl.el4
-rw-r--r--lisp/ob-python.el12
-rw-r--r--lisp/ob-ruby.el4
-rw-r--r--lisp/ob-scala.el4
-rw-r--r--lisp/ob-shell.el4
-rw-r--r--lisp/ob-table.el2
-rw-r--r--lisp/org-agenda.el22
-rw-r--r--lisp/org-clock.el2
-rw-r--r--lisp/org-crypt.el4
-rw-r--r--lisp/org-faces.el2
-rw-r--r--lisp/org-list.el2
-rw-r--r--lisp/org-macs.el2
-rw-r--r--lisp/org-table.el10
-rwxr-xr-xlisp/org.el2
-rw-r--r--lisp/ox-html.el6
-rw-r--r--lisp/ox-latex.el2
-rw-r--r--lisp/ox-org.el2
-rw-r--r--lisp/ox.el2
25 files changed, 61 insertions, 59 deletions
diff --git a/lisp/ob-C.el b/lisp/ob-C.el
index f02950a..64e9d20 100644
--- a/lisp/ob-C.el
+++ b/lisp/ob-C.el
@@ -331,9 +331,9 @@ FORMAT can be either a format string or a function which is called with VAL."
(defun org-babel-C-val-to-base-type (val)
"Determine the base type of VAL which may be
-'integerp if all base values are integers
-'floatp if all base values are either floating points or integers
-'stringp otherwise."
+`integerp' if all base values are integers
+`floatp' if all base values are either floating points or integers
+`stringp' otherwise."
(cond
((integerp val) 'integerp)
((floatp val) 'floatp)
diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index ac84d7d..4bd6eea 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -381,8 +381,8 @@ Has four %s escapes to be filled in:
(defun org-babel-R-evaluate-external-process
(body result-type result-params column-names-p row-names-p)
"Evaluate BODY in external R process.
-If RESULT-TYPE equals 'output then return standard output as a
-string. If RESULT-TYPE equals 'value then return the value of the
+If RESULT-TYPE equals `output' then return standard output as a
+string. If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp."
(case result-type
(value
@@ -409,8 +409,8 @@ last statement in BODY, as elisp."
(defun org-babel-R-evaluate-session
(session body result-type result-params column-names-p row-names-p)
"Evaluate BODY in SESSION.
-If RESULT-TYPE equals 'output then return standard output as a
-string. If RESULT-TYPE equals 'value then return the value of the
+If RESULT-TYPE equals `output' then return standard output as a
+string. If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp."
(case result-type
(value
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index c5552ca..0c72d37 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -514,7 +514,7 @@ The list can have entries of the following forms:
"Return a function that determines whether a list of header args are safe.
Intended usage is:
-\(put 'org-babel-default-header-args 'safe-local-variable
+\(put \\='org-babel-default-header-args \\='safe-local-variable
(org-babel-header-args-safe-p org-babel-safe-header-args)
This allows org-babel languages to extend the list of safe values for
@@ -1601,7 +1601,7 @@ shown below.
;; row and column names
(defun org-babel-del-hlines (table)
- "Remove all 'hlines from TABLE."
+ "Remove all `hlines' from TABLE."
(remq 'hline table))
(defun org-babel-get-colnames (table)
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index b07610b..38086df 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -54,7 +54,7 @@
(defcustom org-export-babel-evaluate t
"Switch controlling code evaluation during export.
When set to nil no code will be evaluated as part of the export
-process. When set to 'inline-only, only inline code blocks will
+process. When set to `inline-only', only inline code blocks will
be executed."
:group 'org-babel
:version "24.1"
diff --git a/lisp/ob-groovy.el b/lisp/ob-groovy.el
index 91100d2..8c0498e 100644
--- a/lisp/ob-groovy.el
+++ b/lisp/ob-groovy.el
@@ -80,8 +80,8 @@ println(new Runner().run())
(defun org-babel-groovy-evaluate
(session body &optional result-type result-params)
"Evaluate BODY in external Groovy process.
-If RESULT-TYPE equals 'output then return standard output as a string.
-If RESULT-TYPE equals 'value then return the value of the last statement
+If RESULT-TYPE equals `output' then return standard output as a string.
+If RESULT-TYPE equals `value' then return the value of the last statement
in BODY as elisp."
(when session (error "Sessions are not (yet) supported for Groovy"))
(case result-type
diff --git a/lisp/ob-io.el b/lisp/ob-io.el
index a5e5cda..4f32383 100644
--- a/lisp/ob-io.el
+++ b/lisp/ob-io.el
@@ -71,8 +71,8 @@ called by `org-babel-execute-src-block'"
(defun org-babel-io-evaluate (session body &optional result-type result-params)
"Evaluate BODY in external Io process.
-If RESULT-TYPE equals 'output then return standard output as a string.
-If RESULT-TYPE equals 'value then return the value of the last statement
+If RESULT-TYPE equals `output' then return standard output as a string.
+If RESULT-TYPE equals `value' then return the value of the last statement
in BODY as elisp."
(when session (error "Sessions are not (yet) supported for Io"))
(case result-type
diff --git a/lisp/ob-octave.el b/lisp/ob-octave.el
index 094b32c..a2c0de2 100644
--- a/lisp/ob-octave.el
+++ b/lisp/ob-octave.el
@@ -168,8 +168,8 @@ create. Return the initialized session."
(defun org-babel-octave-evaluate
(session body result-type &optional matlabp)
"Pass BODY to the octave process in SESSION.
-If RESULT-TYPE equals 'output then return the outputs of the
-statements in BODY, if RESULT-TYPE equals 'value then return the
+If RESULT-TYPE equals `output' then return the outputs of the
+statements in BODY, if RESULT-TYPE equals `value' then return the
value of the last statement in BODY, as elisp."
(if session
(org-babel-octave-evaluate-session session body result-type matlabp)
diff --git a/lisp/ob-perl.el b/lisp/ob-perl.el
index d27c18e..67d48d7 100644
--- a/lisp/ob-perl.el
+++ b/lisp/ob-perl.el
@@ -127,8 +127,8 @@ specifying a var of the same value."
(defun org-babel-perl-evaluate (session ibody &optional result-type result-params)
"Pass BODY to the Perl process in SESSION.
-If RESULT-TYPE equals 'output then return a list of the outputs
-of the statements in BODY, if RESULT-TYPE equals 'value then
+If RESULT-TYPE equals `output' then return a list of the outputs
+of the statements in BODY, if RESULT-TYPE equals `value' then
return the value of the last statement in BODY, as elisp."
(when session (error "Sessions are not supported for Perl"))
(let* ((body (concat org-babel-perl-preface ibody))
diff --git a/lisp/ob-python.el b/lisp/ob-python.el
index 435eea1..3a9b8f6 100644
--- a/lisp/ob-python.el
+++ b/lisp/ob-python.el
@@ -50,7 +50,7 @@
(defcustom org-babel-python-mode
(if (or (featurep 'xemacs) (featurep 'python-mode)) 'python-mode 'python)
"Preferred python mode for use in running python interactively.
-This will typically be either 'python or 'python-mode."
+This will typically be either `python' or `python-mode'."
:group 'org-babel
:version "24.4"
:package-version '(Org . "8.0")
@@ -250,8 +250,8 @@ open('%s', 'w').write( pprint.pformat(main()) )")
(defun org-babel-python-evaluate-external-process
(body &optional result-type result-params preamble)
"Evaluate BODY in external python process.
-If RESULT-TYPE equals 'output then return standard output as a
-string. If RESULT-TYPE equals 'value then return the value of the
+If RESULT-TYPE equals `output' then return standard output as a
+string. If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp."
(let ((raw
(case result-type
@@ -282,8 +282,8 @@ last statement in BODY, as elisp."
(defun org-babel-python-evaluate-session
(session body &optional result-type result-params)
"Pass BODY to the Python process in SESSION.
-If RESULT-TYPE equals 'output then return standard output as a
-string. If RESULT-TYPE equals 'value then return the value of the
+If RESULT-TYPE equals `output' then return standard output as a
+string. If RESULT-TYPE equals `value' then return the value of the
last statement in BODY, as elisp."
(let* ((send-wait (lambda () (comint-send-input nil t) (sleep-for 0 5)))
(dump-last-value
@@ -334,7 +334,7 @@ last statement in BODY, as elisp."
(org-babel-python-table-or-string results)))))
(defun org-babel-python-read-string (string)
- "Strip 's from around Python string."
+ "Strip \\='s from around Python string."
(if (string-match "^'\\([^\000]+\\)'$" string)
(match-string 1 string)
string))
diff --git a/lisp/ob-ruby.el b/lisp/ob-ruby.el
index 0ff460e..780b7bc 100644
--- a/lisp/ob-ruby.el
+++ b/lisp/ob-ruby.el
@@ -187,8 +187,8 @@ end
(defun org-babel-ruby-evaluate
(buffer body &optional result-type result-params)
"Pass BODY to the Ruby process in BUFFER.
-If RESULT-TYPE equals 'output then return a list of the outputs
-of the statements in BODY, if RESULT-TYPE equals 'value then
+If RESULT-TYPE equals `output' then return a list of the outputs
+of the statements in BODY, if RESULT-TYPE equals `value' then
return the value of the last statement in BODY, as elisp."
(if (not buffer)
;; external process evaluation
diff --git a/lisp/ob-scala.el b/lisp/ob-scala.el
index 656667a..dfb72dd 100644
--- a/lisp/ob-scala.el
+++ b/lisp/ob-scala.el
@@ -78,8 +78,8 @@ print(str_result)
(defun org-babel-scala-evaluate
(session body &optional result-type result-params)
"Evaluate BODY in external Scala process.
-If RESULT-TYPE equals 'output then return standard output as a string.
-If RESULT-TYPE equals 'value then return the value of the last statement
+If RESULT-TYPE equals `output' then return standard output as a string.
+If RESULT-TYPE equals `value' then return the value of the last statement
in BODY as elisp."
(when session (error "Sessions are not (yet) supported for Scala"))
(case result-type
diff --git a/lisp/ob-shell.el b/lisp/ob-shell.el
index efa992f..84f4fa8 100644
--- a/lisp/ob-shell.el
+++ b/lisp/ob-shell.el
@@ -184,8 +184,8 @@ var of the same value."
(defun org-babel-sh-evaluate (session body &optional params stdin cmdline)
"Pass BODY to the Shell process in BUFFER.
-If RESULT-TYPE equals 'output then return a list of the outputs
-of the statements in BODY, if RESULT-TYPE equals 'value then
+If RESULT-TYPE equals `output' then return a list of the outputs
+of the statements in BODY, if RESULT-TYPE equals `value' then
return the value of the last statement in BODY."
(let ((results
(cond
diff --git a/lisp/ob-table.el b/lisp/ob-table.el
index 3dccc71..ec7450e 100644
--- a/lisp/ob-table.el
+++ b/lisp/ob-table.el
@@ -94,7 +94,7 @@ the header argument which can then be passed before all variables
as shown in the example below.
| 1 | 2 | :file nothing.png | nothing.png |
-#+TBLFM: @1$4='(org-sbe test-sbe $3 (x $1) (y $2))"
+#+TBLFM: @1$4=\\='(org-sbe test-sbe $3 (x $1) (y $2))"
(declare (debug (form form)))
(let* ((header-args (if (stringp (car variables)) (car variables) ""))
(variables (if (stringp (car variables)) (cdr variables) variables)))
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 3def19e..b2ec1ce 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -153,7 +153,7 @@ before assigned to the variables. So make sure to quote values you do
*not* want evaluated, for example
(setq org-agenda-exporter-settings
- '((ps-print-color-p 'black-white)))"
+ \\='((ps-print-color-p \\='black-white)))"
:group 'org-agenda-export
:type '(repeat
(list
@@ -1794,7 +1794,7 @@ When non-nil, this must be the number of minutes, e.g. 60 for one hour."
(defcustom org-agenda-show-inherited-tags t
"Non-nil means show inherited tags in each agenda line.
-When this option is set to 'always, it take precedences over
+When this option is set to `always', it take precedences over
`org-agenda-use-tag-inheritance' and inherited tags are shown
in every agenda.
@@ -1803,8 +1803,8 @@ shown when they are available, i.e. when the value of
`org-agenda-use-tag-inheritance' has been taken into account.
This can be set to a list of agenda types in which the agenda
-must display the inherited tags. Available types are 'todo,
-'agenda, 'search and 'timeline.
+must display the inherited tags. Available types are `todo',
+`agenda', `search' and `timeline'.
When set to nil, never show inherited tags in agenda lines."
:group 'org-agenda-line-format
@@ -1825,10 +1825,10 @@ controlled by `org-use-tag-inheritance'. In other agenda types,
agenda entries. Still, you may want the agenda to be aware of
the inherited tags anyway, e.g. for later tag filtering.
-Allowed value are 'todo, 'search, 'timeline and 'agenda.
+Allowed value are `todo', `search', `timeline' and `agenda'.
This variable has no effect if `org-agenda-show-inherited-tags'
-is set to 'always. In that case, the agenda is aware of those
+is set to `always'. In that case, the agenda is aware of those
tags.
The default value sets tags in every agenda type. Setting this
@@ -7127,7 +7127,7 @@ their type."
(defun org-agenda-set-restriction-lock (&optional type)
"Set restriction lock for agenda, to current subtree or file.
Restriction will be the file if TYPE is `file', or if type is the
-universal prefix '(4), or if the cursor is before the first headline
+universal prefix \\='(4), or if the cursor is before the first headline
in the file. Otherwise, restriction will be to the current subtree."
(interactive "P")
(org-agenda-remove-restriction-lock 'noupdate)
@@ -7198,7 +7198,7 @@ in the file. Otherwise, restriction will be to the current subtree."
(defun org-agenda-check-type (error &rest types)
"Check if agenda buffer is of allowed type.
If ERROR is non-nil, throw an error, otherwise just return nil.
-Allowed types are 'agenda 'timeline 'todo 'tags 'search."
+Allowed types are `agenda' `timeline' `todo' `tags' `search'."
(if (not org-agenda-type)
(error "No Org agenda currently displayed")
(if (memq org-agenda-type types)
@@ -8528,8 +8528,10 @@ If this information is not given, the function uses the tree at point."
(defun org-agenda-refile (&optional goto rfloc no-update)
"Refile the item at point.
-When GOTO is 0 or '(64) or \\[universal-argument] \\[universal-argument] \\[universal-argument], clear the refile cache.
-When GOTO is '(16) or \\[universal-argument] \\[universal-argument], go to the location of the last refiled item.
+When GOTO is 0 or \\='(64) or a triple \\[universal-argument] prefix argument,
+clear the refile cache.
+When GOTO is \\='(16) or a double \\[universal-argument] prefix argument,
+go to the location of the last refiled item.
RFLOC can be a refile location obtained in a different way.
When NO-UPDATE is non-nil, don't redo the agenda buffer."
(interactive "P")
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index e0d573f..73dcaf5 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -1680,7 +1680,7 @@ Optional argument N tells to change by that many units."
(defun org-clock-timestamps-change (updown &optional n)
"Change CLOCK timestamps synchronously at cursor.
-UPDOWN tells whether to change 'up or 'down.
+UPDOWN tells whether to change `up' or `down'.
Optional argument N tells to change by that many units."
(setq org-ts-what nil)
(when (org-at-timestamp-p t)
diff --git a/lisp/org-crypt.el b/lisp/org-crypt.el
index f527673..85b392f 100644
--- a/lisp/org-crypt.el
+++ b/lisp/org-crypt.el
@@ -104,10 +104,10 @@ t : Disable auto-save-mode for the current buffer
nil : Leave auto-save-mode enabled.
This may cause data to be written to disk unencrypted!
-'ask : Ask user whether or not to disable auto-save-mode
+`ask' : Ask user whether or not to disable auto-save-mode
for the current buffer.
-'encrypt : Leave auto-save-mode enabled for the current buffer,
+`encrypt': Leave auto-save-mode enabled for the current buffer,
but automatically re-encrypt all decrypted entries
*before* auto-saving.
NOTE: This only works for entries which have a tag
diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index 1eac660..0a1ce1d 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -669,7 +669,7 @@ which days belong to the weekend."
(0.0 . default))
"Faces for showing deadlines in the agenda.
This is a list of cons cells. The cdr of each cell is a face to be used,
-and it can also just be like '(:foreground \"yellow\").
+and it can also just be like \\='(:foreground \"yellow\").
Each car is a fraction of the head-warning time that must have passed for
this the face in the cdr to be used for display. The numbers must be
given in descending order. The head-warning time is normally taken
diff --git a/lisp/org-list.el b/lisp/org-list.el
index e6a78f7..e16b7db 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -176,7 +176,7 @@ to the bullet that should be used when this item is demoted.
For example,
(setq org-list-demote-modify-bullet
- '((\"+\" . \"-\") (\"-\" . \"+\") (\"*\" . \"+\")))
+ \\='((\"+\" . \"-\") (\"-\" . \"+\") (\"*\" . \"+\")))
will make
diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 821cfda..d6dcca8 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -138,7 +138,7 @@ Otherwise return nil."
;; FIXME: Slated for removal. Current Org mode does not support Emacs < 22
(defmacro org-maybe-intangible (props)
- "Add '(intangible t) to PROPS if Emacs version is earlier than Emacs 22.
+ "Add \\='(intangible t) to PROPS if Emacs version is earlier than Emacs 22.
In Emacs 21, invisible text is not avoided by the command loop, so the
intangible property is needed to make sure point skips this text.
In Emacs 22, this is not necessary. The intangible text property has
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 0f4308e..d773fc3 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -284,9 +284,9 @@ relies on the variables to be present in the list."
(defcustom org-table-duration-custom-format 'hours
"Format for the output of calc computations like $1+$2;t.
-The default value is 'hours, and will output the results as a
-number of hours. Other allowed values are 'seconds, 'minutes and
-'days, and the output will be a fraction of seconds, minutes or
+The default value is `hours', and will output the results as a
+number of hours. Other allowed values are `seconds', `minutes' and
+`days', and the output will be a fraction of seconds, minutes or
days."
:group 'org-table-calculation
:version "24.1"
@@ -329,7 +329,7 @@ The car of each element is a name of a constant, without the `$' before it.
The cdr is the value as a string. For example, if you'd like to use the
speed of light in a formula, you would configure
- (setq org-table-formula-constants '((\"c\" . \"299792458.\")))
+ (setq org-table-formula-constants \\='((\"c\" . \"299792458.\")))
and then use it in an equation like `$1*$c'.
@@ -3037,7 +3037,7 @@ search, as a string."
KEEP-EMPTY indicated to keep empty fields, default is to skip them.
NUMBERS indicates that everything should be converted to numbers.
LISPP non-nil means to return something appropriate for a Lisp
-list, 'literal is for the format specifier L."
+list, `literal' is for the format specifier L."
;; Calc nan (not a number) is used for the conversion of the empty
;; field to a reference for several reasons: (i) It is accepted in a
;; Calc formula (e. g. "" or "()" would result in a Calc error).
diff --git a/lisp/org.el b/lisp/org.el
index bc28c1f..2cfeb87 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -14460,7 +14460,7 @@ must be bound around the form's evaluation: todo, the TODO keyword
at the entry (or nil of none); and tags-list, the list of all tags
at the entry including inherited ones. Additionally, the category
of the entry (if any) must be specified as the text property
-'org-category on the headline.
+`org-category' on the headline.
See also `org-scan-tags'.
"
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index e4288dc..cc9bbe5 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -997,7 +997,7 @@ org-info.js for your website."
(content "div" "content")
(postamble "div" "postamble"))
"Alist of the three section elements for HTML export.
-The car of each entry is one of 'preamble, 'content or 'postamble.
+The car of each entry is one of `preamble', `content' or `postamble'.
The cdrs of each entry are the ELEMENT_TYPE and ID for each
section of the exported document.
@@ -1176,7 +1176,7 @@ MathJax CDN Terms of Service.
(defcustom org-html-postamble 'auto
"Non-nil means insert a postamble in HTML export.
-When set to 'auto, check against the
+When set to `auto', check against the
`org-export-with-author/email/creator/date' variables to set the
content of the postamble. When set to a string, use this string
as the postamble. When t, insert a string as defined by the
@@ -1811,7 +1811,7 @@ used in the preamble or postamble."
(defun org-html--build-pre/postamble (type info)
"Return document preamble or postamble as a string, or nil.
-TYPE is either 'preamble or 'postamble, INFO is a plist used as a
+TYPE is either `preamble' or `postamble', INFO is a plist used as a
communication channel."
(let ((section (plist-get info (intern (format ":html-%s" type))))
(spec (org-html-format-spec info)))
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index 91fbb96..09bd8c5 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -947,7 +947,7 @@ a list containing two strings: the name of the option, and the
value. For example,
\(setq org-latex-listings-options
- '((\"basicstyle\" \"\\\\small\")
+ \\='((\"basicstyle\" \"\\\\small\")
\(\"keywordstyle\" \"\\\\color{black}\\\\bfseries\\\\underbar\")))
will typeset the code in a small size font with underlined, bold
diff --git a/lisp/ox-org.el b/lisp/ox-org.el
index 82262e0..b395577 100644
--- a/lisp/ox-org.el
+++ b/lisp/ox-org.el
@@ -45,7 +45,7 @@ look bad if different people with different fontification setup
work on the same website. When this variable is non-nil,
creating an htmlized version of an Org buffer using
`org-org-export-as-org' will include a link to this URL if the
-setting of `org-html-htmlize-output-type' is 'css."
+setting of `org-html-htmlize-output-type' is `css'."
:group 'org-export-org
:type '(choice
(const :tag "Don't include external stylesheet link" nil)
diff --git a/lisp/ox.el b/lisp/ox.el
index 26ee6e7..1fefaf4 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -802,7 +802,7 @@ is nil. You can also allow them through local buffer variables."
This variable allows to provide shortcuts for export snippets.
-For example, with a value of '\(\(\"h\" . \"html\"\)\), the
+For example, with a value of \\='((\"h\" . \"html\")), the
HTML back-end will recognize the contents of \"@@h:<b>@@\" as
HTML code while every other back-end will ignore it."
:group 'org-export-general