[Emacs-diffs] /srv/bzr/emacs/trunk r102865: * lisp/info-xref.el (info-xref-docstrings): Replace cl function.

[Glenn Morris]

------------------------------------------------------------
revno: 102865
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-01-15 18:01:34 -0800
message:
  * lisp/info-xref.el (info-xref-docstrings): Replace cl function.
modified:
  lisp/ChangeLog
  lisp/info-xref.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-16 01:59:33 +0000
+++ b/lisp/ChangeLog    2011-01-16 02:01:34 +0000
@@ -1,3 +1,7 @@
+2011-01-16  Glenn Morris  <address@hidden>
+
+       * info-xref.el (info-xref-docstrings): Replace cl function.
+
 2011-01-16  Kevin Ryde  <address@hidden>
 
        * info-xref.el: Version 3.

=== modified file 'lisp/info-xref.el'
--- a/lisp/info-xref.el 2011-01-16 01:59:33 +0000
+++ b/lisp/info-xref.el 2011-01-16 02:01:34 +0000
@@ -479,20 +479,21 @@
 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)))