tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Typo fixes.

Browse source
This commit is contained in:
Carsten Dominik 2008-05-03 16:38:34 +02:00
parent 82037963de
commit 97eef5ed07
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-exp.el
View file

@ -1324,7 +1324,7 @@ on this string to produce the exported version."
(goto-char (point-min))
(while (re-search-forward "^#\\+\\(begin\\|end\\)_\\(block\\)quote\\>.*" nil t)
(replace-match (if (equal (downcase (match-string 1)) "end")
"ORG-BLOCKUQUOTE-END" "ORG-BLOCKUQUOTE-START")
"ORG-BLOCKQUOTE-END" "ORG-BLOCKQUOTE-START")
t t))
;; Remove subtrees that are commented
@ -2551,10 +2551,10 @@ lang=\"%s\" xml:lang=\"%s\">
(throw 'nextline nil))
;; Blockquotes
(when (equal "ORG-BLOCKUQUOTE-START" line)
(when (equal "ORG-BLOCKQUOTE-START" line)
(insert "<blockquote>\n<p>\n")
(throw 'nextline nil))
(when (equal "ORG-BLOCKUQUOTE-END" line)
(when (equal "ORG-BLOCKQUOTE-END" line)
(insert "</p>\n</blockquote>\n")
(throw 'nextline nil))