steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: need to catch and handle scan-error that forward-sexp can emit if there is no closing bracket

db4
Björn Lindqvist 2013-12-03 15:47:40 +01:00 committed by John Benediktsson
parent b1b146e709
commit d05363e1e8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
misc/fuel/factor-mode.el
View File

@ -198,10 +198,12 @@ source/docs/tests file. When set to false, you'll be asked only once."
(when (re-search-forward "[ \n]([ \n]" limit t) (when (re-search-forward "[ \n]([ \n]" limit t)
(backward-char 2) (backward-char 2)
(let ((bracket-start (point))) (let ((bracket-start (point)))
(forward-sexp) (when (condition-case nil
(progn (forward-sexp) 't)
('scan-error nil))
(let ((bracket-stop (point))) (let ((bracket-stop (point)))
(goto-char bracket-start) (goto-char bracket-start)
(re-search-forward ".+" bracket-stop 'mv)))))) (re-search-forward ".+" bracket-stop 'mv)))))))
;; Excludes parsing words that are handled by other regexps ;; Excludes parsing words that are handled by other regexps
(defconst factor-parsing-words (defconst factor-parsing-words