]> git.eshelyaron.com Git - emacs.git/commitdiff
Improve doc strings generated by 'easy-mmode-define-navigation'
authorEli Zaretskii <eliz@gnu.org>
Fri, 9 Nov 2018 09:22:46 +0000 (11:22 +0200)
committerEli Zaretskii <eliz@gnu.org>
Fri, 9 Nov 2018 09:22:46 +0000 (11:22 +0200)
* lisp/emacs-lisp/easy-mmode.el
(easy-mmode-define-navigation): Include the documentation of
prefix argument in the generated doc string.

lisp/emacs-lisp/easy-mmode.el

index d74c3ddb97b3d439b34cc3b8f885f6ff16e29f40..035c65b1c0a3a7f2f40e1c9aeb5ecb43c2cb393c 100644 (file)
@@ -632,7 +632,8 @@ BODY is executed after moving to the destination location."
     (unless name (setq name base-name))
     `(progn
        (defun ,next-sym (&optional count)
-        ,(format "Go to the next COUNT'th %s." name)
+        ,(format "Go to the next COUNT'th %s.
+Interactively, COUNT is the prefix numeric argument, and defaults to 1." name)
         (interactive "p")
         (unless count (setq count 1))
         (if (< count 0) (,prev-sym (- count))
@@ -654,7 +655,9 @@ BODY is executed after moving to the destination location."
            ,@body))
        (put ',next-sym 'definition-name ',base)
        (defun ,prev-sym (&optional count)
-        ,(format "Go to the previous COUNT'th %s" (or name base-name))
+        ,(format "Go to the previous COUNT'th %s.
+Interactively, COUNT is the prefix numeric argument, and defaults to 1."
+                  (or name base-name))
         (interactive "p")
         (unless count (setq count 1))
         (if (< count 0) (,next-sym (- count))