[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/map-ynp.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/map-ynp.el |
Date: |
Wed, 28 May 2003 07:22:40 -0400 |
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
- [Emacs-diffs] Changes to emacs/lisp/map-ynp.el,
Richard M. Stallman <=