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? ") |
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? ") |