# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1013009603 0
# Node ID c929176c272bb39f6fefcf04c65cb7c794af8108
# Parent  0dd2ebecd217dca6f7431f4c4617a5e3d05f2757
(checkdoc-this-string-valid-engine):
Replace foo-p as var name with foo-flag, not foo-p-flag.

diff -r 0dd2ebecd217 -r c929176c272b lisp/emacs-lisp/checkdoc.el
--- a/lisp/emacs-lisp/checkdoc.el	Wed Feb 06 15:32:16 2002 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Wed Feb 06 15:33:23 2002 +0000
@@ -1592,18 +1592,22 @@
 	     ;; If the doc string starts with "Non-nil means"
 	     (if (and (looking-at "\"\\*?Non-nil\\s-+means\\s-+")
 		      (not (string-match "-flag$" (car fp))))
-		 (if (checkdoc-y-or-n-p
-		      (format
-		       "Rename to %s and Query-Replace all occurances? "
-		       (concat (car fp) "-flag")))
-		     (progn
-		       (beginning-of-defun)
-		       (query-replace-regexp
-			(concat "\\<" (regexp-quote (car fp)) "\\>")
-			(concat (car fp) "-flag")))
-		   (checkdoc-create-error
-		    "Flag variable names should normally end in `-flag'" s
-		    (marker-position e))))
+		 (let ((newname
+			(if (string-match "-p$" (car fp))
+			    (concat (substring (car fp) 0 -2) "-flag")
+			  (concat (car fp) "-flag"))))
+		   (if (checkdoc-y-or-n-p
+			(format
+			 "Rename to %s and Query-Replace all occurances? "
+			 newname))
+		       (progn
+			 (beginning-of-defun)
+			 (query-replace-regexp
+			  (concat "\\<" (regexp-quote (car fp)) "\\>")
+			  newname))
+		     (checkdoc-create-error
+		      "Flag variable names should normally end in `-flag'" s
+		      (marker-position e)))))
 	     ;; Done with variables
 	     ))
 	   (t