comparison lisp/emacs-lisp/checkdoc.el @ 23371:9808edcd3c95

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

23370:7addb1da4b2b

			(e (match-end 1)))
		    (if (and (not (checkdoc-in-sample-code-p begin end))
			     (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\\)\\.")
				    )))
			(if (checkdoc-autofix-ask-replace
			     b e
			     "There should be two spaces after a period.  Fix? "
			     ".  ")
			    nil

23371:9808edcd3c95

			(e (match-end 1)))
		    (if (and (not (checkdoc-in-sample-code-p begin end))
			     (not (checkdoc-in-example-string-p begin end))
			     (not (save-excursion
				    (goto-char (match-beginning 1))
				    (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? "
			     ".  ")
			    nil