diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-12 20:17:53 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-09-12 20:17:53 +0000 |
| commit | 25d91d947ff58fd69ee08f688d02c854ef04980b (patch) | |
| tree | 7ceeaab8da1d59f9c89b89f8d629ca354d1f2846 /lisp/emacs-lisp/checkdoc.el | |
| parent | 7c73202173898ce5928773b546cc8ecd15a25498 (diff) | |
| download | emacs-25d91d947ff58fd69ee08f688d02c854ef04980b.tar.gz emacs-25d91d947ff58fd69ee08f688d02c854ef04980b.tar.bz2 emacs-25d91d947ff58fd69ee08f688d02c854ef04980b.zip | |
(checkdoc-this-string-valid-engine):
Don't tell to use \\{...} when it's already done.
Diffstat (limited to 'lisp/emacs-lisp/checkdoc.el')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 2aba3ea254c..cc2be890657 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1561,8 +1561,9 @@ mouse-[0-3]\\)\\)\\>")) ;; 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)))) |