[Emacs-diffs] Changes to emacs/lisp/map-ynp.el

[Richard M. Stallman]

Index: emacs/lisp/map-ynp.el
diff -c emacs/lisp/map-ynp.el:1.48 emacs/lisp/map-ynp.el:1.49
*** emacs/lisp/map-ynp.el:1.48  Tue Apr  8 21:33:27 2003
--- emacs/lisp/map-ynp.el       Wed May 28 07:22:39 2003
***************
*** 175,181 ****
                          (funcall actor elt)
                          (setq actions (1+ actions)
                                next (function (lambda () nil))))
!                        ((or (eq def 'quit) (eq def 'exit-prefix))
                          (setq quit-flag t)
                          (setq next `(lambda ()
                                        (setq next ',next)
--- 175,181 ----
                          (funcall actor elt)
                          (setq actions (1+ actions)
                                next (function (lambda () nil))))
!                        ((eq def 'quit)
                          (setq quit-flag t)
                          (setq next `(lambda ()
                                        (setq next ',next)
***************
*** 201,208 ****
                                (format "Type SPC or `y' to %s the current %s;
  DEL or `n' to skip the current %s;
  RET or `q' to exit (skip all remaining %s);
! ! to %s all remaining %s;
! ESC or `q' to exit;\n"
                                        action object object objects action
                                        objects)
                                (mapconcat (function
--- 201,208 ----
                                (format "Type SPC or `y' to %s the current %s;
  DEL or `n' to skip the current %s;
  RET or `q' to exit (skip all remaining %s);
! C-g to quit (cancel the operation);
! ! to %s all remaining %s;\n"
                                        action object object objects action
                                        objects)
                                (mapconcat (function