diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2011-08-23 12:40:14 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2011-08-23 12:40:14 +0000 |
commit | a6027bef486b488753c4a3389ad272b7648bbd09 (patch) | |
tree | 1e96b68d6083e89d50e7a362eebc2a3771ba15e2 /coq/coq-indent.el | |
parent | bf22cd52f68ccd0ac37c28ef1ce3728004e08efe (diff) |
Crude patch for Trac #416. I haven't tried to understand indent code fully, so may not be best fix.
Diffstat (limited to 'coq/coq-indent.el')
-rw-r--r-- | coq/coq-indent.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/coq/coq-indent.el b/coq/coq-indent.el index 36e3eea7..891319d9 100644 --- a/coq/coq-indent.el +++ b/coq/coq-indent.el @@ -384,6 +384,12 @@ Can jump line if NOJUMPLINES = nil." (setq res (cons command-found res)) (if (and (coq-script-parse-cmdend-forward) ;(ignore-errors (forward-char 1) t);to fit in the "and" + ;; da: My PATCH for Trac #416, to avoid looping at buffer end + (not (let ((p (point))) + (skip-chars-forward " \t\n") + (prog1 + (eobp) + (goto-char p)))) (coq-find-real-start)) (setq command-found (coq-command-at-point nojumplines)) (setq command-found nil) |