Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!rutgers!rochester!PT!andrew.cmu.edu!lord+
From: lord+@andrew.cmu.edu (Tom Lord)
Newsgroups: comp.emacs
Subject: sorry world
Message-ID: <oVNcx4y00UjHzVk0Qn@andrew.cmu.edu>
Date: Sun, 4-Oct-87 14:11:16 EDT
Article-I.D.: andrew.oVNcx4y00UjHzVk0Qn
Posted: Sun Oct  4 14:11:16 1987
Date-Received: Wed, 7-Oct-87 06:32:13 EDT
Organization: Carnegie Mellon University
Lines: 26


Sorry i didn't catch this earlier.  The following is the correct definition
for the function monkey-next-directory.


(defun monkey-next-directory (&optional count)
  "Move forward to the next directory."
  (interactive "p")
  (let ((count (abs (or count 1)))
	(direction (signum (or count 1))))
    (goto-char
     (save-excursion
       (while (> count 0)
	 (catch 'found
	   (while (not (eobp))
	     (forward-line direction)
	     (and (monkey-expanded-p)
		  (throw 'found nil)))
	   (error "No more directories."))
	 (setq count (1- count)))
       (point))))
  (nice-monkey))



-tom