Function: doctor-replace

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

Signature

(doctor-replace SENT RLIST)

Documentation

Replace any element of SENT that is the car of a replacement element pair in RLIST.

Source Code

;; Defined in /usr/src/emacs/lisp/play/doctor.el.gz
(defun doctor-replace (sent rlist)
  "Replace any element of SENT that is the car of a replacement
element pair in RLIST."
  (apply 'append
	 (mapcar
	   (lambda (x)
	     (cdr (or (assq x rlist)   ; either find a replacement
		      (list x x))))    ; or fake an identity mapping
	   sent)))