Commit a767645f authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent 444ee8dd
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.
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment