procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update the Samaritan's contact details in M-x doctor

Browse source 
* lisp/play/doctor.el (doctor-death): Update the Samaritans's contact
details; anon.twwells.com is no longer valid.  Add link to Wikipedia.
This commit is contained in:
Stefan Kangas 2022-07-14 17:10:09 +02:00
parent d19834dfda
commit 6a05715552
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/play/doctor.el
View file

@ -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 ()