changeset 93853:8fc3183d5a63

(checkdoc-this-string-valid-engine): Use `string-match-p'.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 08 Apr 2008 11:47:48 +0000
parents cb8d5a37e8ef
children 8497df25d6b1
files lisp/emacs-lisp/checkdoc.el
diffstat 1 files changed, 7 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/checkdoc.el	Tue Apr 08 11:45:19 2008 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Tue Apr 08 11:47:48 2008 +0000
@@ -1774,10 +1774,9 @@
 					checkdoc-common-verbs-wrong-voice))
 			(if (not rs) (error "Verb voice alist corrupted"))
 			(setq replace (let ((case-fold-search nil))
-					(save-match-data
-					  (if (string-match "^[A-Z]" original)
-					      (capitalize (cdr rs))
-					    (cdr rs)))))
+					(if (string-match-p "^[A-Z]" original)
+					    (capitalize (cdr rs))
+					  (cdr rs))))
 			(if (checkdoc-autofix-ask-replace
 			     (match-beginning 1) (match-end 1)
 			     (format "Use the imperative for \"%s\".  \
@@ -1805,11 +1804,10 @@
 		      "[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^]']"
 		      e t))
 	   (setq ms (match-string 1))
-	   (save-match-data
-	     ;; A . is a \s_ char, so we must remove periods from
-	     ;; sentences more carefully.
-	     (if (string-match "\\.$" ms)
-		 (setq ms (substring ms 0 (1- (length ms))))))
+	   ;; A . is a \s_ char, so we must remove periods from
+	   ;; sentences more carefully.
+	   (when (string-match-p "\\.$" ms)
+	     (setq ms (substring ms 0 (1- (length ms)))))
 	   (if (and (not (checkdoc-in-sample-code-p start e))
 		    (not (checkdoc-in-example-string-p start e))
 		    (not (member ms checkdoc-symbol-words))