(easy-mmode-define-navigation): Fix interactive spec of the functions

getting defined to make them work as documented.

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index b22e49dac34f8c0a39ea7e440d7416c44f895a76..de8f0a91af4b9a07ebc2bb433fef62c384ec6f74 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -500,7 +500,7 @@ found, do widen first and then call NARROWFUN with no args after moving."
                    ,(concat "^No \\(previous\\|next\\) " (regexp-quote name)))
        (defun ,next-sym (&optional count)
         ,(format "Go to the next COUNT'th %s." name)
-        (interactive)
+        (interactive "p")
         (unless count (setq count 1))
         (if (< count 0) (,prev-sym (- count))
           (if (looking-at ,re) (setq count (1+ count)))
@@ -523,7 +523,7 @@ found, do widen first and then call NARROWFUN with no args after moving."
        (put ',next-sym 'definition-name ',base)
        (defun ,prev-sym (&optional count)
         ,(format "Go to the previous COUNT'th %s" (or name base-name))
-        (interactive)
+        (interactive "p")
         (unless count (setq count 1))
         (if (< count 0) (,next-sym (- count))
            (let (was-narrowed)