/[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.46 by lute, Mon Jul 4 17:33:35 2005 UTC revision 1.47 by rms, Fri Jul 8 22:54:57 2005 UTC
# Line 317  This should be set in an Emacs Lisp file Line 317  This should be set in an Emacs Lisp file
317    "List of words (not capitalized) which should be capitalized.")    "List of words (not capitalized) which should be capitalized.")
318    
319  (defvar checkdoc-proper-noun-regexp  (defvar checkdoc-proper-noun-regexp
320    (let ((expr "\\<\\(")    (let ((expr "\\_<\\(")
321          (l checkdoc-proper-noun-list))          (l checkdoc-proper-noun-list))
322      (while l      (while l
323        (setq expr (concat expr (car l) (if (cdr l) "\\|" ""))        (setq expr (concat expr (car l) (if (cdr l) "\\|" ""))
324              l (cdr l)))              l (cdr l)))
325      (concat expr "\\)\\>"))      (concat expr "\\)\\_>"))
326    "Regular expression derived from `checkdoc-proper-noun-regexp'.")    "Regular expression derived from `checkdoc-proper-noun-regexp'.")
327    
328  (defvar checkdoc-common-verbs-regexp nil  (defvar checkdoc-common-verbs-regexp nil
# Line 2326  Code:, and others referenced in the styl Line 2326  Code:, and others referenced in the styl
2326          (save-excursion          (save-excursion
2327            (goto-char (point-max))            (goto-char (point-max))
2328            (if (not (re-search-backward            (if (not (re-search-backward
2329                      (concat "^;;;[ \t]+" fn "\\(" (regexp-quote fe)                      (concat "^;;;[ \t]+" (regexp-quote fn) "\\(" (regexp-quote fe)
2330                              "\\)?[ \t]+ends here[ \t]*$"                              "\\)?[ \t]+ends here[ \t]*$"
2331                              "\\|^;;;[ \t]+ End of file[ \t]+"                              "\\|^;;;[ \t]+ End of file[ \t]+"
2332                              fn "\\(" (regexp-quote fe) "\\)?")                              (regexp-quote fn) "\\(" (regexp-quote fe) "\\)?")
2333                      nil t))                      nil t))
2334                (if (checkdoc-y-or-n-p "No identifiable footer!  Add one? ")                (if (checkdoc-y-or-n-p "No identifiable footer!  Add one? ")
2335                    (progn                    (progn

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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