0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 07:46:26 +00:00

org.el (org-emph-re): Tiny formatting fix

* org.el (org-emph-re): Tiny formatting fix.
This commit is contained in:
Bastien Guerry 2012-08-11 09:57:01 +02:00
parent c5bc43133b
commit 8fb39ad25b

View file

@ -3653,7 +3653,7 @@ When nil, the \\name form remains in the buffer."
"Regular expression for matching emphasis.
After a match, the match groups contain these elements:
0 The match of the full regular expression, including the characters
before and after the proper match
before and after the proper match
1 The character before the proper match, or empty at beginning of line
2 The proper match, including the leading and trailing markers
3 The leading marker like * or /, indicating the type of highlighting
@ -3745,15 +3745,13 @@ Use customize to modify this, or restart Emacs after changing it."
(integer :tag "number of newlines allowed")
(option (boolean :tag "Please ignore this button"))))
(defcustom org-emphasis-alist
(defconst org-emphasis-alist
`(("*" bold "<b>" "</b>")
("/" italic "<i>" "</i>")
("_" underline "<span style=\"text-decoration:underline;\">" "</span>")
("=" org-code "<code>" "</code>" verbatim)
("~" org-verbatim "<code>" "</code>" verbatim)
("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t))
"<del>" "</del>")
)
("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t)) "<del>" "</del>"))
"Special syntax for emphasized text.
Text starting and ending with a special character will be emphasized, for
example *bold*, _underlined_ and /italic/. This variable sets the marker
@ -3761,18 +3759,7 @@ characters, the face to be used by font-lock for highlighting in Org-mode
Emacs buffers, and the HTML tags to be used for this.
For LaTeX export, see the variable `org-export-latex-emphasis-alist'.
For DocBook export, see the variable `org-export-docbook-emphasis-alist'.
Use customize to modify this, or restart Emacs after changing it."
:group 'org-appearance
:set 'org-set-emph-re
:type '(repeat
(list
(string :tag "Marker character")
(choice
(face :tag "Font-lock-face")
(plist :tag "Face property list"))
(string :tag "HTML start tag")
(string :tag "HTML end tag")
(option (const verbatim)))))
Use customize to modify this, or restart Emacs after changing it.")
(defvar org-protecting-blocks
'("src" "example" "latex" "ascii" "html" "docbook" "ditaa" "dot" "r" "R")