Mercurial > emacs

comparison lisp/play/doctor.el @ 32659:8f47d09a2be7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(doctor-death): Update the Samaritans' anonymous address, and add a website for Befrienders International.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 19 Oct 2000 13:28:54 +0000
parents c4366892a814
children 253f761ad37b
comparison
equal deleted inserted replaced
32658:62b30be1a019 32659:8f47d09a2be7
1 ;;; doctor.el --- psychological help for frustrated users. 1 ;;; doctor.el --- psychological help for frustrated users.
2 2
3 ;; Copyright (C) 1985, 1987, 1994, 1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1987, 1994, 1996, 2000 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: FSF 5 ;; Maintainer: FSF
6 ;; Keywords: games 6 ;; Keywords: games
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
1593 (memq 'yourself sent))) 1593 (memq 'yourself sent)))
1594 (setq suicide-flag t) 1594 (setq suicide-flag t)
1595 (doctor-type '(If you are really suicidal, you might 1595 (doctor-type '(If you are really suicidal, you might
1596 want to contact the Samaritans via 1596 want to contact the Samaritans via
1597 E-mail: jo@samaritans.org or, at your option, 1597 E-mail: jo@samaritans.org or, at your option,
1598 anonymous E-mail: samaritans@anon.penet.fi\ \. 1598 anonymous E-mail: samaritans@anon.twwells.com\ \.
1599 or find a Befrienders crisis center at
1600 http://www.befrienders.org/\ \.
1599 ($ please) ($ continue) \.))) 1601 ($ please) ($ continue) \.)))
1600 (t (doctor-type ($ deathlst))))) 1602 (t (doctor-type ($ deathlst)))))
1601 1603
1602 (defun doctor-foul () 1604 (defun doctor-foul ()
1603 (doctor-type ($ foullst))) 1605 (doctor-type ($ foullst)))