summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-08-11 11:44:40 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2011-08-11 11:46:32 +0200
commitfeb52f9028e73f0f49390780bb2e61cc9da04303 (patch)
tree204d60c23e43edfabdc8072eb224281fcee99702
parentece3091f16af246780e29ba6e8248dd8bb3b7ba2 (diff)
downloadorg-mode-feb52f9028e73f0f49390780bb2e61cc9da04303.tar.gz
Allow "^[ \t]*:$" as a special case of fixed-width section
* lisp/org.el (org-activate-code, org-toggle-fixed-width-section, org-indent-line-function): allow "[ \t]*:$" as a special case of fixed-width section.
-rw-r--r--lisp/org.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el
index ec190a3..743d9c4 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5160,7 +5160,7 @@ will be prompted for."
t)))))
(defun org-activate-code (limit)
- (if (re-search-forward "^[ \t]*\\(: .*\n?\\)" limit t)
+ (if (re-search-forward "^[ \t]*\\(:\\(?: .*\\)?\n?\\)" limit t)
(progn
(org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
(remove-text-properties (match-beginning 0) (match-end 0)
@@ -19435,7 +19435,7 @@ If point is in an inline task, mark that task instead."
;; Footnote definition
((looking-at org-footnote-definition-re) (setq column 0))
;; Literal examples
- ((looking-at "[ \t]*:[ \t]")
+ ((looking-at "[ \t]*:\\( \\|$\\)")
(setq column (org-get-indentation))) ; do nothing
;; Lists
((ignore-errors (goto-char (org-in-item-p)))
@@ -19718,7 +19718,7 @@ this line is also exported in fixed-width font."
(end (if regionp (region-end)))
(nlines (or arg (if (and beg end) (count-lines beg end) 1)))
(case-fold-search nil)
- (re "[ \t]*\\(: \\)")
+ (re "[ \t]*\\(:\\(?: \\|$\\)\\)")
off)
(if regionp
(save-excursion