Fix void `orgtbl-line-start-regexp' in orgstruct++ mode

* lisp/org.el (org-adaptive-fill-function): Use
  `org-table-line-regexp' instead of `orgtbl-line-start-regexp', which
  may not be defined.

Reported-by: Eric Abrahamsen <eric@ericabrahamsen.net>
<http://permalink.gmane.org/gmane.emacs.orgmode/95500>
This commit is contained in:
Nicolas Goaziou 2015-02-27 18:25:03 +01:00
parent 8c54b254b1
commit b8921e8c78
1 changed files with 2 additions and 3 deletions

View File

@ -22962,9 +22962,8 @@ matches in paragraphs or comments, use it."
(when (derived-mode-p 'message-mode)
(save-excursion
(beginning-of-line)
(cond ((or (not (message-in-body-p))
(looking-at orgtbl-line-start-regexp))
(throw 'exit nil))
(cond ((not (message-in-body-p)) (throw 'exit nil))
((org-looking-at-p org-table-line-regexp) (throw 'exit nil))
((looking-at message-cite-prefix-regexp)
(throw 'exit (match-string-no-properties 0)))
((looking-at org-outline-regexp)