* lisp/info-xref.el (info-xref-docstrings): Replace cl function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e23e8df69934c24256b219ddef694e665e91cf46..45096e52ec01cce9284d0eee9be46ff76948d97a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-16  Glenn Morris  <rgm@gnu.org>
+
+       * info-xref.el (info-xref-docstrings): Replace cl function.
+
 2011-01-16  Kevin Ryde  <user42@zip.com.au>
 
        * info-xref.el: Version 3.

diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index a92d9d89da62c8fb395271e59c4d6e717863059e..cdeba932eda7b2d1681700cfc1772a48e0f83ce9 100644 (file)
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -479,20 +479,21 @@ in the files, the Lisp code checked doesn't have to be loaded,
 and links can be in the file commentary or elsewhere too.  Even
 .elc files can usually be checked successfully if you don't have
 the sources handy."
-
   (interactive
-   (let* ((default       (and buffer-file-name
+   (let* ((default (and buffer-file-name
                               (file-relative-name buffer-file-name)))
-          (prompt        (if default
-                             (format "Filename with wildcards (%s): "
-                                     default)
-                           "Filename with wildcards: "))
-          (pattern       (read-file-name prompt nil default))
-          (filename-list (file-expand-wildcards pattern
-                                                t))) ;; absolute filenames
-     (eval-and-compile
-       (require 'cl)) ;; for `remove-if'
-     (setq filename-list (remove-if 'info-xref-lock-file-p filename-list))
+          (prompt (if default
+                      (format "Filename with wildcards (%s): "
+                              default)
+                    "Filename with wildcards: "))
+          (pattern (read-file-name prompt nil default))
+          ;; absolute filenames
+          (filename-list (file-expand-wildcards pattern t))
+          newlist)
+     (setq filename-list
+           (dolist (file filename-list (nreverse newlist))
+             (or (info-xref-lock-file-p file)
+                 (push file newlist))))
      (unless filename-list
        (error "No files: %S" pattern))
      (list filename-list)))