[comp.emacs] sorry world

lord+@andrew.cmu.edu (Tom Lord) (10/04/87)

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