From 2663dd23eb43e9ebe20006f46feb6f410f13ac53 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Fri, 21 Jun 2013 20:37:18 -0400
Subject: [PATCH] * lisp/play/cookie1.el (cookie-apropos): Minor
 simplification.

---
 lisp/ChangeLog       |  2 ++
 lisp/play/cookie1.el | 36 +++++++++++++++---------------------
 2 files changed, 17 insertions(+), 21 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 223620b6f4..26cf627228 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-22  Glenn Morris  <rgm@fencepost.gnu.org>
 
+	* play/cookie1.el (cookie-apropos): Minor simplification.
+
 	* progmodes/gdb-mi.el (gdb-mapcar*): Remove, replace with cl-mapcar.
 
 2013-06-22  Dmitry Gutov  <dgutov@yandex.ru>
diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index 0a53d8f4e6..d6b8e48207 100644
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -194,34 +194,28 @@ If called interactively, or if DISPLAY is non-nil, display a list of matches."
 		     (if (or current-prefix-arg (not cookie-file))
 			 (read-file-name "Cookie file: " nil
 					 cookie-file t cookie-file)
-		       cookie-file)))
+		       cookie-file) t))
   (setq phrase-file (cookie-check-file phrase-file))
   ;; Make sure phrases are loaded.
   (cookie phrase-file)
   (let* ((case-fold-search t)
          (cookie-table-symbol (intern phrase-file cookie-cache))
          (string-table (symbol-value cookie-table-symbol))
-         (matches nil)
-         (len (length string-table))
-         (i 0))
-    (save-match-data
-      (while (< i len)
-        (and (string-match regexp (aref string-table i))
-             (setq matches (cons (aref string-table i) matches)))
-        (setq i (1+ i))))
-    (and matches
+         (matches nil))
+    (and (dotimes (i (length string-table) matches)
+           (and (string-match-p regexp (aref string-table i))
+                (setq matches (cons (aref string-table i) matches))))
          (setq matches (sort matches 'string-lessp)))
-    (and (or display (called-interactively-p 'interactive))
-         (cond ((null matches)
-                (message "No matches found."))
-               (t
-                (let ((l matches))
-                  (with-output-to-temp-buffer "*Cookie Apropos*"
-                    (while l
-                      (princ (car l))
-                      (setq l (cdr l))
-                      (and l (princ "\n\n")))
-		    (help-print-return-message))))))
+    (and display
+         (if matches
+             (let ((l matches))
+               (with-output-to-temp-buffer "*Cookie Apropos*"
+                 (while l
+                   (princ (car l))
+                   (setq l (cdr l))
+                   (and l (princ "\n\n")))
+                 (help-print-return-message)))
+           (message "No matches found.")))
     matches))
 
 
-- 
2.20.1