procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2011-01-15 18:01:34 -08:00
parent 444ee8dd97
commit a767645f0d
2 changed files with 17 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

25
lisp/info-xref.el
View file

@ -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)))