From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 17 Sep 2001 15:51:54 +0000 (+0000)
Subject: (checkdoc-this-string-valid-engine):
X-Git-Tag: emacs-pretest-21.0.106~89
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c07782ebd426503c0fc6f3de825b27d144ecfac;p=emacs.git

(checkdoc-this-string-valid-engine):
Check for '(' in column 0 of doc string.
---

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]+\\)")