diff lisp/emacs-lisp/checkdoc.el @ 39319:bce0864bc830

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

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