From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Feb 2002 15:33:23 +0000 (+0000)
Subject: (checkdoc-this-string-valid-engine):
X-Git-Tag: ttn-vms-21-2-B4~16824
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c511be4d963f4882e9ff03d484be99260c355e4;p=emacs.git

(checkdoc-this-string-valid-engine):
Replace foo-p as var name with foo-flag, not foo-p-flag.
---

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index f6100122730..17aab149a47 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1592,18 +1592,22 @@ function,command,variable,option or symbol." ms1))))))
 	     ;; 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