diff options
author | Glenn Morris <[email protected]> | 2011-01-15 18:01:34 -0800 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2011-01-15 18:01:34 -0800 |
commit | a767645f0df5f03d1f2c528077260f0916a1b781 (patch) | |
tree | 24e0118b57cf9efcd76dce9aff0b50dcc9df1b55 | |
parent | 444ee8dd97820bdb29f0a4d363f8028d01fdfffe (diff) |
* lisp/info-xref.el (info-xref-docstrings): Replace cl function.
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/info-xref.el | 25 |
2 files changed, 17 insertions, 12 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e23e8df699..45096e52ec 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-01-16 Glenn Morris <[email protected]> + + * info-xref.el (info-xref-docstrings): Replace cl function. + 2011-01-16 Kevin Ryde <[email protected]> * info-xref.el: Version 3. diff --git a/lisp/info-xref.el b/lisp/info-xref.el index a92d9d89da..cdeba932ed 100644 --- 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))) |