mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(easy-mmode-define-navigation): Put `definition-name' properties on the

Browse source 
constructed function names next-sym and prev-sym.
This commit is contained in:
Juri Linkov 2005-12-04 02:34:33 +00:00
parent cc793355dc
commit d5ba8197bb
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/easy-mmode.el
View file

@ -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)