# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1164741751 0
# Node ID e6443f563ae7a2efa59ffadaf316edcaa2cf6582
# Parent  d59d8e8b327f82bb9c51e9cf0408801511893529
(easy-mmode-define-navigation): Fix interactive spec of the functions
getting defined to make them work as documented.

diff -r d59d8e8b327f -r e6443f563ae7 lisp/emacs-lisp/easy-mmode.el
--- a/lisp/emacs-lisp/easy-mmode.el	Tue Nov 28 19:22:02 2006 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Tue Nov 28 19:22:31 2006 +0000
@@ -500,7 +500,7 @@
 		    ,(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 @@
        (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)