Mercurial > emacs
changeset 74306:e6443f563ae7
(easy-mmode-define-navigation): Fix interactive spec of the functions
getting defined to make them work as documented.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 28 Nov 2006 19:22:31 +0000 |
| parents | d59d8e8b327f |
| children | f367608cd9d6 |
| files | lisp/emacs-lisp/easy-mmode.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)