diff options
| -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]\\)\\)\\>")) | |||
| 1561 | ;; to describe the most important commands in your major mode, and | 1561 | ;; to describe the most important commands in your major mode, and |
| 1562 | ;; then use `\\{...}' to display the rest of the mode's keymap. | 1562 | ;; then use `\\{...}' to display the rest of the mode's keymap. |
| 1563 | (save-excursion | 1563 | (save-excursion |
| 1564 | (if (re-search-forward "\\\\\\\\\\[\\w+" e t | 1564 | (if (and (re-search-forward "\\\\\\\\\\[\\w+" e t |
| 1565 | (1+ checkdoc-max-keyref-before-warn)) | 1565 | (1+ checkdoc-max-keyref-before-warn)) |
| 1566 | (not (re-search-forward "\\\\\\\\{\\w+}" e t))) | ||
| 1566 | (checkdoc-create-error | 1567 | (checkdoc-create-error |
| 1567 | "Too many occurrences of \\[function]. Use \\{keymap} instead" | 1568 | "Too many occurrences of \\[function]. Use \\{keymap} instead" |
| 1568 | s (marker-position e)))) | 1569 | s (marker-position e)))) |