[Emacs-diffs] master e7b0dac: Remove member clone

[Mark Oteiza]

branch: master
commit e7b0dac11356f4f343f0441ce2078e994e1a7219
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    Remove member clone
    
    * lisp/play/dunnet.el (dun-answer): Use member instead.
    (dun-members): Remove.
---
 lisp/play/dunnet.el | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index d8e0681..bffb38a 100644
--- 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.