diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-11 19:53:31 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-11 19:53:31 +0000 |
| commit | 38218bacfddbb32ee96c850b9a7d7477ff088e87 (patch) | |
| tree | e8fa9bd75235fd55b27e7756719512de9f7bc952 /chess-ply.el | |
| parent | 7e2df426c16e6b928cc3730f569e9d3e2cd02e2a (diff) | |
*** no comment ***
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/chess-ply.el b/chess-ply.el index 391264b..9db4ab7 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -63,11 +63,10 @@ (setcdr ply changes)) (defun chess-ply-has-keyword (ply &rest keywords) - (let (found) + (catch 'found (dolist (keyword keywords) (if (memq keyword (chess-ply-changes ply)) - (setq found t))) - found)) + (throw found keyword))))) (defsubst chess-ply-source (ply) (car (chess-ply-changes ply))) |