diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-09-17 15:51:54 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-09-17 15:51:54 +0000 |
| commit | 9c07782ebd426503c0fc6f3de825b27d144ecfac (patch) | |
| tree | c481c0ef9dd1cead82e49aa306496b0aa7338a10 /lisp/emacs-lisp | |
| parent | 990e1190eb0e91927268ea826ff0eb6d0a87347b (diff) | |
| download | emacs-9c07782ebd426503c0fc6f3de825b27d144ecfac.tar.gz emacs-9c07782ebd426503c0fc6f3de825b27d144ecfac.tar.bz2 emacs-9c07782ebd426503c0fc6f3de825b27d144ecfac.zip | |
(checkdoc-this-string-valid-engine):
Check for '(' in column 0 of doc string.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 947fcb3ab9c..fe075baf536 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1374,6 +1374,17 @@ regexp short cuts work. FP is the function defun information." "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]+\\)") |