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

Allow "^[ \t]*:$" as a special case of fixed-width section

Browse source 
* 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.
This commit is contained in:
Nicolas Goaziou 2011-08-11 11:44:40 +02:00
parent ece3091f16
commit feb52f9028
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.el
View file

@ -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