[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/map-ynp.el
|
From: |
Richard M . Stallman |
|
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/map-ynp.el |
|
Date: |
Tue, 09 Aug 2005 07:36:58 -0400 |
Index: emacs/lisp/emacs-lisp/map-ynp.el
diff -c emacs/lisp/emacs-lisp/map-ynp.el:1.5
emacs/lisp/emacs-lisp/map-ynp.el:1.6
*** emacs/lisp/emacs-lisp/map-ynp.el:1.5 Sat Aug 6 17:08:59 2005
--- emacs/lisp/emacs-lisp/map-ynp.el Tue Aug 9 11:36:58 2005
***************
*** 103,117 ****
(let ((object (if help (capitalize (nth 0 help))))
(objects (if help (capitalize (nth 1 help))))
(action (if help (capitalize (nth 2 help)))))
! (setq map `(("Yes" . act) ("No" . skip) ("Quit" . exit)
! (,(if help (concat action " " object " And Quit")
! "Do it and Quit") . act-and-exit)
! (,(if help (concat action " All " objects)
! "Do All") . automatic)
,@(mapcar (lambda (elt)
! (cons (capitalize (nth 2 elt))
(vector (nth 1 elt))))
! action-alist))
use-menus t
mouse-event last-nonmenu-event))
(setq user-keys (if action-alist
--- 103,120 ----
(let ((object (if help (capitalize (nth 0 help))))
(objects (if help (capitalize (nth 1 help))))
(action (if help (capitalize (nth 2 help)))))
! (setq map `(("Yes" . act) ("No" . skip)
,@(mapcar (lambda (elt)
! (cons (with-syntax-table
! text-mode-syntax-table
! (capitalize (nth 2 elt)))
(vector (nth 1 elt))))
! action-alist)
! (,(if help (concat action " This But No More")
! "Do This But No More") . act-and-exit)
! (,(if help (concat action " All " objects)
! "Do All") . automatic)
! ("No For All" . exit))
use-menus t
mouse-event last-nonmenu-event))
(setq user-keys (if action-alist