From 9c07782ebd426503c0fc6f3de825b27d144ecfac Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 17 Sep 2001 15:51:54 +0000
Subject: [PATCH] (checkdoc-this-string-valid-engine): Check for '(' in column
 0 of doc string.

---
 lisp/emacs-lisp/checkdoc.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

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