/[emacs]/emacs/lisp/emacs-lisp/easy-mmode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/easy-mmode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.72 by teirllm, Sat Nov 5 23:03:57 2005 UTC revision 1.73 by jurta, Sun Dec 4 02:34:33 2005 UTC
# Line 515  found, do widen first and then call NARR Line 515  found, do widen first and then call NARR
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)
# Line 524  found, do widen first and then call NARR Line 525  found, do widen first and then call NARR
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)

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26