From ccfe44e024d6b9180b9c23e9e6f93c7d572c9147 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Fri, 31 Oct 2008 17:33:32 +0000 Subject: [PATCH] (ietf-drums-remove-comments): Localize second condition-case to only the forward-sexp call. --- lisp/ChangeLog | 5 +++++ lisp/ietf-drums.el | 22 +++++++++++----------- 2 files changed, 16 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a41ea471b..debff1a68 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-10-31 Teodor Zlatanov + + * ietf-drums.el (ietf-drums-remove-comments): Localize second + condition-case to only the forward-sexp call. + 2008-10-31 Teodor Zlatanov * ietf-drums.el (ietf-drums-remove-comments): Fix bug with single diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el index 37e33b5d3..78567f622 100644 --- a/lisp/ietf-drums.el +++ b/lisp/ietf-drums.el @@ -119,14 +119,15 @@ backslash and doublequote.") (with-temp-buffer (let (c) (ietf-drums-init string) - (condition-case err - (while (not (eobp)) - (setq c (char-after)) - (cond - ((eq c ?\") - (forward-sexp 1)) - ((eq c ?\() - (delete-region + (while (not (eobp)) + (setq c (char-after)) + (cond + ((eq c ?\") + (condition-case err + (forward-sexp 1) + (error (goto-char (point-max))))) + ((eq c ?\() + (delete-region (point) (condition-case nil (with-syntax-table (copy-syntax-table ietf-drums-syntax-table) @@ -134,9 +135,8 @@ backslash and doublequote.") (forward-sexp 1) (point)) (error (point-max))))) - (t - (forward-char 1)))) - (error nil)) + (t + (forward-char 1)))) (buffer-string)))) (defun ietf-drums-remove-whitespace (string) -- 2.25.1