[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/checkdoc.el
diff -c emacs/lisp/emacs-lisp/checkdoc.el:1.25 
emacs/lisp/emacs-lisp/checkdoc.el:1.26
*** emacs/lisp/emacs-lisp/checkdoc.el:1.25      Sun Jan 13 05:02:22 2002
--- emacs/lisp/emacs-lisp/checkdoc.el   Wed Feb  6 10:33:23 2002
***************
*** 1592,1609 ****
             ;; 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))))
             ;; Done with variables
             ))
           (t
--- 1592,1613 ----
             ;; If the doc string starts with "Non-nil means"
             (if (and (looking-at "\"\\*?Non-nil\\s-+means\\s-+")
                      (not (string-match "-flag$" (car fp))))
!                (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