diff options
| author | Chong Yidong | 2006-11-28 19:22:31 +0000 |
|---|---|---|
| committer | Chong Yidong | 2006-11-28 19:22:31 +0000 |
| commit | 9e288f75215f25c18c1db4eb620f59ac3e5edf62 (patch) | |
| tree | 60e585db096fd39e8adb8674e850b437f4a24b85 | |
| parent | 3b46a8f760724b7a6c11cfcf76b1485ec81bed43 (diff) | |
| download | emacs-9e288f75215f25c18c1db4eb620f59ac3e5edf62.tar.gz emacs-9e288f75215f25c18c1db4eb620f59ac3e5edf62.zip | |
(easy-mmode-define-navigation): Fix interactive spec of the functions
getting defined to make them work as documented.
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index b22e49dac34..de8f0a91af4 100644 --- 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." | |||
| 500 | ,(concat "^No \\(previous\\|next\\) " (regexp-quote name))) | 500 | ,(concat "^No \\(previous\\|next\\) " (regexp-quote name))) |
| 501 | (defun ,next-sym (&optional count) | 501 | (defun ,next-sym (&optional count) |
| 502 | ,(format "Go to the next COUNT'th %s." name) | 502 | ,(format "Go to the next COUNT'th %s." name) |
| 503 | (interactive) | 503 | (interactive "p") |
| 504 | (unless count (setq count 1)) | 504 | (unless count (setq count 1)) |
| 505 | (if (< count 0) (,prev-sym (- count)) | 505 | (if (< count 0) (,prev-sym (- count)) |
| 506 | (if (looking-at ,re) (setq count (1+ count))) | 506 | (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." | |||
| 523 | (put ',next-sym 'definition-name ',base) | 523 | (put ',next-sym 'definition-name ',base) |
| 524 | (defun ,prev-sym (&optional count) | 524 | (defun ,prev-sym (&optional count) |
| 525 | ,(format "Go to the previous COUNT'th %s" (or name base-name)) | 525 | ,(format "Go to the previous COUNT'th %s" (or name base-name)) |
| 526 | (interactive) | 526 | (interactive "p") |
| 527 | (unless count (setq count 1)) | 527 | (unless count (setq count 1)) |
| 528 | (if (< count 0) (,next-sym (- count)) | 528 | (if (< count 0) (,next-sym (- count)) |
| 529 | (let (was-narrowed) | 529 | (let (was-narrowed) |