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

Undo an earlier change:

Browse source 
(dun-piss): Renamed from dunnet-urinate.
(dun-verblist): Indecent word added back.
(dunnet): Delete "censored" message.
This commit is contained in:
Richard M. Stallman 1997-07-07 21:51:01 +00:00
parent d3d21843f0
commit cd9012b5bb
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/play/dunnet.el
View file

@ -90,8 +90,6 @@
"Switch to *dungeon* buffer and start game."
(interactive)
(switch-to-buffer "*dungeon*")
(insert "This version of Dunnet has been censored for your protection
in accord with the Communications Decency Act.\n\n")
(dun-mode)
(setq dun-dead nil)
(setq room 0)
@ -948,7 +946,7 @@ My home page is http://www.driver-aces.com/ronnie.html
(dun-put-objs-in-treas (nth urinal dun-room-objects))
(dun-replace dun-room-objects urinal nil)))
(defun dun-urinate (args)
(defun dun-piss (args)
(if (not (= dun-current-room bathroom))
(dun-mprincl "You can't do that here, don't even bother trying.")
(if (not dun-gottago)
@ -1945,7 +1943,7 @@ A hole leads north."
(type . dun-type) (insert . dun-put)
(score . dun-score) (help . dun-help) (quit . dun-quit)
(read . dun-examine) (verbose . dun-long)
(urinate . dun-urinate)
(urinate . dun-piss) (piss . dun-piss)
(flush . dun-flush) (sleep . dun-sleep) (lie . dun-sleep)
(x . dun-examine) (break . dun-break) (drive . dun-drive)
(board . dun-in) (enter . dun-in) (turn . dun-turn)