Mercurial > emacs
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))