Mercurial > emacs
changeset 39319:bce0864bc830
(checkdoc-this-string-valid-engine):
Check for '(' in column 0 of doc string.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 17 Sep 2001 15:51:54 +0000 |
| parents | 532c538efc45 |
| children | 4a21ecd55278 |
| files | lisp/emacs-lisp/checkdoc.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/checkdoc.el Mon Sep 17 15:48:23 2001 +0000 +++ b/lisp/emacs-lisp/checkdoc.el Mon Sep 17 15:51:54 2001 +0000 @@ -1374,6 +1374,17 @@ "Second line should not have indentation" (match-beginning 1) (match-end 1))))) + ;; * Check for '(' in column 0. + (save-excursion + (when (re-search-forward "^(" e t) + (if (checkdoc-autofix-ask-replace (match-beginning 0) + (match-end 0) + "Escape this '('? " + "\\(") + nil + (checkdoc-create-error + "Open parenthesis in column 0 should be escaped" + (match-beginning 0) (match-end 0))))) ;; * Do not start or end a documentation string with whitespace. (let (start end) (if (or (if (looking-at "\"\\([ \t\n]+\\)")