Commit bed40c39 authored by Roland McGrath's avatar Roland McGrath
Browse files

*** empty log message ***

parent 01a45313
......@@ -120,7 +120,7 @@ Returns the number of actions taken."
(if (funcall prompter elt)
(progn
(funcall actor elt)
(setq actions (1+ actions)))))
(setq actions (1+ actions))))))
((= ?? char)
(setq unread-command-char help-char)
(setq next (` (function (lambda ()
......@@ -134,7 +134,7 @@ Returns the number of actions taken."
(sit-for 1)
(setq next (` (function (lambda ()
(setq next (, next))
t))))))))
t)))))))
(if (eval prompt)
(progn
(funcall actor (car list))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment