Emacs lisp code to lookup the description of a function in devhelp.

(defun devhelp (arg)
  "Lookup devhelp reference books."
 
  (interactive 
   (list (let* ((default (current-word))
		(input (read-string 
			(format "Devhelp%s: "
				(if (string= default "")
				    ""
				  (format " (default %s)" default))))))
 
	   (if (string= input "")
	       (if (string= default "")
		   (error "No devhelp args given")
		 default)
	     input))))