diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-14 17:10:09 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-14 17:23:32 +0200 |
| commit | 6a057155521229ab4621a81180fa238e498d7cf8 (patch) | |
| tree | 19e6b0175bfabb612beda8e8004d6022dfbf0516 | |
| parent | d19834dfda2804a3d0fd9a5b676aa9fff331df61 (diff) | |
| download | emacs-6a057155521229ab4621a81180fa238e498d7cf8.tar.gz | |
Update the Samaritan's contact details in M-x doctor
* lisp/play/doctor.el (doctor-death): Update the Samaritans's contact
details; anon.twwells.com is no longer valid. Add link to Wikipedia.
| -rw-r--r-- | lisp/play/doctor.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index a640f8ca66d..607b0d58372 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -1579,13 +1579,14 @@ Hack on previous word, setting global variable DOCTOR-OWNER to correct result." (equal doctor-found 'killing)) (memq 'yourself doctor-sent))) (setq doctor--suicide-flag t) - (doctor-type '(If you are really suicidal\, you might - want to contact the Samaritans via - E-mail: jo@samaritans.org or\, at your option\, - anonymous E-mail: samaritans@anon.twwells.com\ \. - or find a Befrienders crisis center at - https://www.befrienders.org/\ \. - (doc$ doctor--please) (doc$ doctor--continue) \.))) + (doctor-type '( If you are really suicidal\, you might + want to contact the Samaritans via + e-mail: jo@samaritans.org \. + or find a Befrienders crisis center at + https://www.befrienders.org/\ \. + you can also find other suicide crisis lines at + https://en.wikipedia.org/wiki/List_of_suicide_crisis_lines \. + (doc$ doctor--please) (doc$ doctor--continue) \.))) (t (doctor-type (doc$ doctor--deathlst))))) (defun doctor-foul () |