diff options
| author | Sean Allred <code@seanallred.com> | 2015-01-07 19:49:27 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2015-01-07 19:49:27 -0500 |
| commit | 1dd6ac98ec65ff4359e56adf1cedfc745026145b (patch) | |
| tree | c04ab9b968a65a3907eca33754e2c784610a72e1 /sx-question-print.el | |
| parent | 27136e435bc6928161df2e16e3e8528227eae014 (diff) | |
| parent | cd0c7c622865d0ab3b628a96d93537bcfe0e76d9 (diff) | |
Merge pull request #217 from vermiculus/really-fix-filling
Really fix filling
Diffstat (limited to 'sx-question-print.el')
| -rw-r--r-- | sx-question-print.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index e2db76f..1e25d67 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -462,9 +462,11 @@ font-locking." (defun sx-question-mode--skip-references () "If there's a reference ahead, skip it and return non-nil." - (while (looking-at-p (format sx-question-mode--reference-regexp ".+")) + (forward-line 0) + (when (looking-at-p (format sx-question-mode--reference-regexp ".+")) ;; Returns non-nil - (forward-line 1))) + (forward-paragraph 1) + t)) (provide 'sx-question-print) ;;; sx-question-print.el ends here |