From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Fri, 31 Oct 2008 17:33:32 +0000 (+0000)
Subject: (ietf-drums-remove-comments): Localize second condition-case to only
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=ccfe44e024d6b9180b9c23e9e6f93c7d572c9147;hp=26a34b8a0317dc859c1d86c4e0fa424abd701444;p=gnus

(ietf-drums-remove-comments): Localize second condition-case to only
the forward-sexp call.
---

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  <tzz@lifelogs.com>
+
+	* ietf-drums.el (ietf-drums-remove-comments): Localize second
+	condition-case to only the forward-sexp call.
+
 2008-10-31  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* 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)