From ae21293a2eaac3e58855dc0c36d1b121dd86230f Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 11 Aug 2012 10:39:23 +0200 Subject: [PATCH] Revert "org.el (org-emph-re): Tiny formatting fix" This reverts commit 8fb39ad25bb7cea71e4e751dbd10e88add506337. Er. Some changed should not be here. --- lisp/org.el | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 6e7249772..16b40cb78 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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,13 +3745,15 @@ Use customize to modify this, or restart Emacs after changing it." (integer :tag "number of newlines allowed") (option (boolean :tag "Please ignore this button")))) -(defconst org-emphasis-alist +(defcustom org-emphasis-alist `(("*" bold "" "") ("/" italic "" "") ("_" underline "" "") ("=" org-code "" "" verbatim) ("~" org-verbatim "" "" verbatim) - ("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t)) "" "")) + ("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t)) + "" "") + ) "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 @@ -3759,7 +3761,18 @@ 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.") +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))))) (defvar org-protecting-blocks '("src" "example" "latex" "ascii" "html" "docbook" "ditaa" "dot" "r" "R") -- 2.11.4.GIT