mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 21:52:04 -08:00
Code Issues Projects Releases Wiki Activity

(tree-widget-lookup-image): Let-bind `file'.

Browse source
This commit is contained in:
Glenn Morris 2008-02-23 20:17:44 +00:00
parent d2c98acc72
commit f3468eacb7
2 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -3,6 +3,8 @@
* menu-bar.el (menu-bar-games-menu): Add Bubbles and Pong.
Add :help for Solitaire and Tetris.
* tree-widget.el (tree-widget-lookup-image): Let-bind `file'.
* mail/smtpmail.el: Remove leading `*' from defcustom doc-strings.
(smtpmail-code-conv-from): Doc fix. Fix custom type.
(smtpmail-queue-index-file): Make it a defcustom.

27
lisp/tree-widget.el
View file

@ -403,19 +403,20 @@ Search first in current theme, then in parent themes (see also the
function `tree-widget-set-parent-theme').
Return the first image found having a supported format, or nil if not
found."
(catch 'found
(dolist (default-directory (tree-widget-themes-path))
(dolist (dir (aref tree-widget--theme 0))
(dolist (fmt (tree-widget-image-formats))
(dolist (ext (cdr fmt))
(setq file (expand-file-name (concat name ext) dir))
(and (file-readable-p file)
(file-regular-p file)
(throw 'found
(tree-widget-create-image
(car fmt) file
(tree-widget-image-properties name))))))))
nil))
(let (file)
(catch 'found
(dolist (default-directory (tree-widget-themes-path))
(dolist (dir (aref tree-widget--theme 0))
(dolist (fmt (tree-widget-image-formats))
(dolist (ext (cdr fmt))
(setq file (expand-file-name (concat name ext) dir))
(and (file-readable-p file)
(file-regular-p file)
(throw 'found
(tree-widget-create-image
(car fmt) file
(tree-widget-image-properties name))))))))
nil)))
(defun tree-widget-find-image (name)
"Find the image with NAME in current theme.