       (setq ret (list (read-string "Description:"))))
     ret))
 
-
 ;; new find definition which tries to find the definition in the file if no point is returned
 ;; also manages ojs files
 (defun fi::show-found-definition (thing pathname point n-more

		   (message (concat mess "No more %ss of %s")
			    (lep::meta-dot-what) thing)))
		(n-more
 		 (message (concat mess "%d more %ss of %s")
			  n-more
			  (lep::meta-dot-what)
			  (or (lep::meta-dot-from-fspec) thing))))
	  (when pop-stack (fi::pop-metadot-session))))
    (message "cannot find file for %s" thing)))

(defconst *defun-words*
  (regexp-opt

	  ;; go to the beginning of the line
	  (beginning-of-line)
	  "")
      (progn
	(message "The definition of %s is somewhere in this file!" thing)
	(goto-char (point-min))))))
      

