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 |
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 |