/[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.21 by monnier, Thu Oct 25 05:51:39 2001 UTC revision 1.22 by rms, Sun Nov 11 20:06:58 2001 UTC
# Line 2217  Code:, and others referenced in the styl Line 2217  Code:, and others referenced in the styl
2217                 ((or (re-search-forward "^;;; History" nil t)                 ((or (re-search-forward "^;;; History" nil t)
2218                      (re-search-forward "^;;; Code" nil t)                      (re-search-forward "^;;; Code" nil t)
2219                      (re-search-forward "^(require" nil t)                      (re-search-forward "^(require" nil t)
2220                      (re-search-forward "^("))                      (re-search-forward "^(" nil t))
2221                  (beginning-of-line)))                  (beginning-of-line)))
2222                (if (checkdoc-y-or-n-p                (if (checkdoc-y-or-n-p
2223                     "You should have a \";;; Commentary:\", add one? ")                     "You should have a \";;; Commentary:\", add one? ")
# Line 2246  Code:, and others referenced in the styl Line 2246  Code:, and others referenced in the styl
2246                (re-search-forward "^;;\\s-*\n\\|^\n" nil t))                (re-search-forward "^;;\\s-*\n\\|^\n" nil t))
2247               ((or (re-search-forward "^;;; Code" nil t)               ((or (re-search-forward "^;;; Code" nil t)
2248                    (re-search-forward "^(require" nil t)                    (re-search-forward "^(require" nil t)
2249                    (re-search-forward "^("))                    (re-search-forward "^(" nil t))
2250                (beginning-of-line)))                (beginning-of-line)))
2251              (if (checkdoc-y-or-n-p              (if (checkdoc-y-or-n-p
2252                   "You should have a \";;; History:\", add one? ")                   "You should have a \";;; History:\", add one? ")

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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