515 |
(unless (pos-visible-in-window-p endpt nil t) |
(unless (pos-visible-in-window-p endpt nil t) |
516 |
(recenter '(0)))))) |
(recenter '(0)))))) |
517 |
,re-narrow-maybe))) |
,re-narrow-maybe))) |
518 |
|
(put ',next-sym 'definition-name ',base) |
519 |
(defun ,prev-sym (&optional count) |
(defun ,prev-sym (&optional count) |
520 |
,(format "Go to the previous COUNT'th %s" (or name base-name)) |
,(format "Go to the previous COUNT'th %s" (or name base-name)) |
521 |
(interactive) |
(interactive) |
525 |
,check-narrow-maybe |
,check-narrow-maybe |
526 |
(unless (re-search-backward ,re nil t count) |
(unless (re-search-backward ,re nil t count) |
527 |
(error "No previous %s" ,name)) |
(error "No previous %s" ,name)) |
528 |
,re-narrow-maybe)))))) |
,re-narrow-maybe))) |
529 |
|
(put ',prev-sym 'definition-name ',base)))) |
530 |
|
|
531 |
|
|
532 |
(provide 'easy-mmode) |
(provide 'easy-mmode) |