procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(checkdoc-this-string-valid-engine): Use `string-match-p'.

Browse source
This commit is contained in:
Juanma Barranquero 2008-04-08 11:47:48 +00:00
parent 80817d7b5e
commit 66e9f105e0
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emacs-lisp/checkdoc.el
View file

@ -1774,10 +1774,9 @@ function,command,variable,option or symbol." ms1))))))
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 @@ Replace with \"%s\"? " original replace)
"[^-([`':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))