Function: doctor-defq

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

Signature

(doctor-defq SENT)

Documentation

Set global var DOCTOR-FOUND to first keyword found in sentence SENT.

Source Code

;; Defined in /usr/src/emacs/lisp/play/doctor.el.gz
(defun doctor-defq (sent)
  "Set global var DOCTOR-FOUND to first keyword found in sentence SENT."
  (setq doctor-found nil)
  (let ((temp '(means applies mean refers refer related
		      similar defined associated linked like same)))
    (while temp
	   (if (memq (car temp) sent)
	       (setq doctor-found (car temp)
		     temp nil)
	       (setq temp (cdr temp)))))
  doctor-found)