Mercurial > emacs
changeset 112282:bcf4b132f3d5
* lisp/info-xref.el (info-xref-docstrings): Replace cl function.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 15 Jan 2011 18:01:34 -0800 |
| parents | 697cfa263439 |
| children | a34cb587b28f |
| files | lisp/ChangeLog lisp/info-xref.el |
| diffstat | 2 files changed, 17 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jan 15 17:59:33 2011 -0800 +++ b/lisp/ChangeLog Sat Jan 15 18:01:34 2011 -0800 @@ -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.
--- a/lisp/info-xref.el Sat Jan 15 17:59:33 2011 -0800 +++ b/lisp/info-xref.el Sat Jan 15 18:01:34 2011 -0800 @@ -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)))