/[emacs]/emacs/lisp/emacs-lisp/checkdoc.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/checkdoc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by pj, Sun Jan 13 10:02:22 2002 UTC revision 1.26 by rms, Wed Feb 6 15:33:23 2002 UTC
# Line 1592  function,command,variable,option or symb Line 1592  function,command,variable,option or symb
1592               ;; If the doc string starts with "Non-nil means"               ;; If the doc string starts with "Non-nil means"
1593               (if (and (looking-at "\"\\*?Non-nil\\s-+means\\s-+")               (if (and (looking-at "\"\\*?Non-nil\\s-+means\\s-+")
1594                        (not (string-match "-flag$" (car fp))))                        (not (string-match "-flag$" (car fp))))
1595                   (if (checkdoc-y-or-n-p                   (let ((newname
1596                        (format                          (if (string-match "-p$" (car fp))
1597                         "Rename to %s and Query-Replace all occurances? "                              (concat (substring (car fp) 0 -2) "-flag")
1598                         (concat (car fp) "-flag")))                            (concat (car fp) "-flag"))))
1599                       (progn                     (if (checkdoc-y-or-n-p
1600                         (beginning-of-defun)                          (format
1601                         (query-replace-regexp                           "Rename to %s and Query-Replace all occurances? "
1602                          (concat "\\<" (regexp-quote (car fp)) "\\>")                           newname))
1603                          (concat (car fp) "-flag")))                         (progn
1604                     (checkdoc-create-error                           (beginning-of-defun)
1605                      "Flag variable names should normally end in `-flag'" s                           (query-replace-regexp
1606                      (marker-position e))))                            (concat "\\<" (regexp-quote (car fp)) "\\>")
1607                              newname))
1608                         (checkdoc-create-error
1609                          "Flag variable names should normally end in `-flag'" s
1610                          (marker-position e)))))
1611               ;; Done with variables               ;; Done with variables
1612               ))               ))
1613             (t             (t

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26