From: Eric M. Ludlam <zappo@gnu.org>
Date: Sun, 4 Oct 1998 12:37:28 +0000 (+0000)
Subject: (checkdoc-sentencespace-region-engine): Protect a `forward-sexp' call
X-Git-Tag: emacs-20.4~1578
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a553b8be1276270cc0b78b516f93fc4300a6c11;p=emacs.git

(checkdoc-sentencespace-region-engine): Protect a `forward-sexp' call
which could fail, and improved regex for ie, and eg abbreviations.
---

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 3d4e5957c38..5fd428a904a 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -2026,10 +2026,13 @@ If the offending word is in a piece of quoted text, then it is skipped."
 			     (not (checkdoc-in-example-string-p begin end))
 			     (not (save-excursion
 				    (goto-char (match-beginning 1))
-				    (forward-sexp -1)
-				    ;; piece of an abbreviation
-				    (looking-at "\\([a-z]\\|[ie]\\.?g\\)\\.")
-				    )))
+				    (condition-case nil
+					(progn
+					  (forward-sexp -1)
+					  ;; piece of an abbreviation
+					  (looking-at
+					   "\\([a-z]\\|[iI]\\.?e\\|[eE]\\.?g\\)\\."))
+				      (error t)))))
 			(if (checkdoc-autofix-ask-replace
 			     b e
 			     "There should be two spaces after a period.  Fix? "