diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-07 21:40:32 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-07 21:40:32 -0200 |
| commit | 1534c4c690697b6ec23dca29dc94837705fe5fc5 (patch) | |
| tree | dbbedad09a75758de4fec571929eb40ceee3bd6c | |
| parent | 95e9f6069ba328249c0e8ac86efdc888437ac187 (diff) | |
Really fix filling
| -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 |