From d05363e1e861820a90878d7aebf78e46b7541884 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Tue, 3 Dec 2013 15:47:40 +0100 Subject: [PATCH] FUEL: need to catch and handle scan-error that forward-sexp can emit if there is no closing bracket --- misc/fuel/factor-mode.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el index 6e4d1169fb..d46253b920 100644 --- a/misc/fuel/factor-mode.el +++ b/misc/fuel/factor-mode.el @@ -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) (backward-char 2) (let ((bracket-start (point))) - (forward-sexp) - (let ((bracket-stop (point))) - (goto-char bracket-start) - (re-search-forward ".+" bracket-stop 'mv)))))) + (when (condition-case nil + (progn (forward-sexp) 't) + ('scan-error nil)) + (let ((bracket-stop (point))) + (goto-char bracket-start) + (re-search-forward ".+" bracket-stop 'mv))))))) ;; Excludes parsing words that are handled by other regexps (defconst factor-parsing-words