Function: doctor-setprep

doctor-setprep is a byte-compiled function defined in doctor.el.gz.

Signature

(doctor-setprep SENT KEY)

Source Code

;; Defined in /usr/src/emacs/lisp/play/doctor.el.gz
(defun doctor-setprep (sent key)
  (let ((val)
	(foo (memq key sent)))
    (cond ((doctor-prepp (cadr foo))
	   (setq val (doctor-getnoun (cddr foo)))
	   (cond (val val)
		 (t 'something)))
	  ((doctor-articlep (cadr foo))
	   (setq val (doctor-getnoun (cddr foo)))
	   (cond (val (doctor-build (doctor-build (cadr foo) " ") val))
		 (t 'something)))
	  (t 'something))))