# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1095020273 0
# Node ID 9dd4195f1c060d45709687a8e70a509f3f0d198d
# Parent  974e68c1a8c5637111d400bbd811d185141b9e2e
(checkdoc-this-string-valid-engine):
Don't tell to use \\{...} when it's already done.

diff -r 974e68c1a8c5 -r 9dd4195f1c06 lisp/emacs-lisp/checkdoc.el
--- a/lisp/emacs-lisp/checkdoc.el	Sun Sep 12 19:59:48 2004 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Sun Sep 12 20:17:53 2004 +0000
@@ -1561,8 +1561,9 @@
      ;; to describe the most important commands in your major mode, and
      ;; then use `\\{...}' to display the rest of the mode's keymap.
      (save-excursion
-       (if (re-search-forward "\\\\\\\\\\[\\w+" e t
-			      (1+ checkdoc-max-keyref-before-warn))
+       (if (and (re-search-forward "\\\\\\\\\\[\\w+" e t
+				   (1+ checkdoc-max-keyref-before-warn))
+		(not (re-search-forward "\\\\\\\\{\\w+}" e t)))
 	   (checkdoc-create-error
 	    "Too many occurrences of \\[function].  Use \\{keymap} instead"
 	    s (marker-position e))))