diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-08-11 11:44:40 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-08-11 11:46:32 +0200 |
commit | feb52f9028e73f0f49390780bb2e61cc9da04303 (patch) | |
tree | 204d60c23e43edfabdc8072eb224281fcee99702 | |
parent | ece3091f16af246780e29ba6e8248dd8bb3b7ba2 (diff) | |
download | org-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.el | 6 |
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 |