(make-local-variable 'feelings-about)
(setq feelings-about
'((feelings about)
- (aprehensions toward)
+ (apprehensions toward)
(thoughts on)
(emotions toward)))
(make-local-variable 'random-adjective)
(memq x '(all also always amusing any anyway associated awesome
bad beautiful best better but certain clear
ever every fantastic fun funny
- good great gross growdy however if ignorant
+ good great grody gross however if ignorant
less linked losing lusing many more much
never nice obnoxious often poor pretty real related rich
similar some stupid super superb
(defun doctor-strangelove ()
(interactive)
- (insert "Mein fuhrer!!\n")
+ (insert "Mein fuehrer!!\n")
(doctor-read-print))
;;; doctor.el ends here