Function: doctor-possess

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

Signature

(doctor-possess SENT KEY)

Documentation

Set possessive in SENT for keyword KEY.

Hack on previous word, setting global variable DOCTOR-OWNER to correct result.

Source Code

;; Defined in /usr/src/emacs/lisp/play/doctor.el.gz
(defun doctor-possess (sent key)
  "Set possessive in SENT for keyword KEY.
Hack on previous word, setting global variable DOCTOR-OWNER to correct result."
  (let* ((i (- (length sent) (length (memq key sent)) 1))
	 (prev (if (< i 0) 'your
		 (nth i sent))))
    (setq doctor-owner
	  (if (or (doctor-possessivepronounp prev)
		  (string-equal "s"
				(substring (doctor-make-string prev)
					   -1)))
	      prev
	    'your))))