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

(Info-find-node): Use a loop instead of mapcar and catch.

Browse source
This commit is contained in:
Richard M. Stallman 1994-07-28 12:53:30 +00:00
parent f8b53a822c
commit 35d4f4e8e4
1 changed files with 9 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/info.el
View file

@ -214,19 +214,15 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
(setq temp-downcase
(expand-file-name (downcase filename) (car dirs)))
;; Try several variants of specified name.
(catch 'foundit
(mapcar
(function
(lambda (x)
(if (file-exists-p (concat temp (car x)))
(progn
(setq found temp)
(throw 'foundit nil)))
(if (file-exists-p (concat temp-downcase (car x)))
(progn
(setq found temp-downcase)
(throw 'foundit nil)))))
Info-suffix-list))
(let ((suffix-list Info-suffix-list))
(while (and suffix-list (not found))
(cond ((file-exists-p
(concat temp (car (car suffix-list))))
(setq found temp))
((file-exists-p
(concat temp-downcase (car (car suffix-list))))
(setq found temp-downcase)))
(setq suffix-list (cdr suffix-list))))
(setq dirs (cdr dirs)))))
(if found
(setq filename found)