From 35d4f4e8e421a952e8e774efe2729b9978792f56 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 28 Jul 1994 12:53:30 +0000 Subject: [PATCH] (Info-find-node): Use a loop instead of mapcar and catch. --- lisp/info.el | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index a86d718bd22..e58e099ef32 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -214,19 +214,15 @@ In standalone mode, \\\\[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) -- 2.39.5