Remove member clone

* lisp/play/dunnet.el (dun-answer): Use member instead.
(dun-members): Remove.

diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index d8e0681b7a8894c0ee417aac1a5217835182b400..bffb38a01a2ff79e1eb284855f6243422c5367f7 100644 (file)
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -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.