mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Remove member clone

Browse source 
* lisp/play/dunnet.el (dun-answer): Use member instead.
(dun-members): Remove.
This commit is contained in:
Mark Oteiza 2017-02-19 22:19:57 -05:00
parent 2f605c3f89
commit e7b0dac113
1 changed files with 1 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/play/dunnet.el
View file

@ -2109,7 +2109,7 @@ for a moment, then straighten yourself up.
(setq args (car args))
(if (not args)
(dun-mprincl "You must give the answer on the same line.")
(if (dun-members args dun-correct-answer)
(if (member args dun-correct-answer)
(progn
(dun-mprincl "Correct.")
(if (= dun-lastdir 0)
@ -2330,16 +2330,6 @@ for a moment, then straighten yourself up.
(append startlist
(list (substring dirstring 0 slash)))))))))
;;; Is a string a member of a string list?
(defun dun-members (string string-list)
(let (found)
(setq found nil)
(dolist (x string-list)
(if (string= x string)
(setq found t))) found))
;;; Function to put objects in the treasure room. Also prints current
;;; score to let user know he has scored.