Mercurial > emacs

changeset 67293:32fa638322e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-mmode-define-navigation): Put `definition-name' properties on the constructed function names next-sym and prev-sym.
author Juri Linkov <juri@jurta.org>
date Sun, 04 Dec 2005 02:34:33 +0000
parents ada17aff9ef8
children 36d05049ff37
files lisp/emacs-lisp/easy-mmode.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/easy-mmode.el	Sun Dec 04 02:33:41 2005 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Sun Dec 04 02:34:33 2005 +0000
@@ -515,6 +515,7 @@
                    (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 @@
              ,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)