[comp.emacs] bug fix for monkey.el monkey-next-directory infinite loop bug

jason@violet.berkeley.edu (Jason Venner) (11/03/87)

If you hit M-p in monkey mode with no previous directorys opened,
monkey mode goes into a loop as it does not test for bobp in the
movement routine.

*** monkey.el	Tue Nov  3 10:18:05 1987
--- monkey.el.~1~	Thu Oct 22 10:50:02 1987
***************
*** 855,861 ****
       (save-excursion
         (while (> count 0)
  	 (catch 'found
! 	   (while (not (or (eobp) (bobp)))
  	     (forward-line direction)
  	     (and (monkey-expanded-p)
  		  (throw 'found nil)))
--- 855,861 ----
       (save-excursion
         (while (> count 0)
  	 (catch 'found
! 	   (while (not (eobp))
  	     (forward-line direction)
  	     (and (monkey-expanded-p)
  		  (throw 'found nil)))
Jason Venner
UUCP		{tektronix,dual,sun,ihnp4,decvax}!ucbvax!jade!jason
New style	jason@jade.berkeley.edu	
ARPA | CSNET	jason%jade@Berkeley.ARPA
BITNET		jason@ucbjade.BITNET