From: Juri Linkov <juri@jurta.org>
Date: Sun, 4 Dec 2005 02:34:33 +0000 (+0000)
Subject: (easy-mmode-define-navigation): Put `definition-name' properties on the
X-Git-Tag: emacs-pretest-22.0.90~5525
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5ba8197bb42f638ea34be66954002b1623cb46b;p=emacs.git

(easy-mmode-define-navigation): Put `definition-name' properties on the
constructed function names next-sym and prev-sym.
---

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 710c26e0c6c..9d118cd5351 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -515,6 +515,7 @@ found, do widen first and then call NARROWFUN with no args after moving."
                    (unless (pos-visible-in-window-p endpt nil t)
                      (recenter '(0))))))
              ,re-narrow-maybe)))
+       (put ',next-sym 'definition-name ',base)
        (defun ,prev-sym (&optional count)
 	 ,(format "Go to the previous COUNT'th %s" (or name base-name))
 	 (interactive)
@@ -524,7 +525,8 @@ found, do widen first and then call NARROWFUN with no args after moving."
              ,check-narrow-maybe
              (unless (re-search-backward ,re nil t count)
                (error "No previous %s" ,name))
-             ,re-narrow-maybe))))))
+             ,re-narrow-maybe)))
+       (put ',prev-sym 'definition-name ',base))))
 
 
 (provide 'easy-mmode)