Mercurial > emacs

comparison lisp/dired-aux.el @ 49783:270f35912a3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-query-alist): Fix use of character constant.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 14 Feb 2003 09:56:30 +0000
parents 99be3a1e2589
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49782:e53004435c0d 49783:270f35912a3b
675 675
676 (defvar dired-query-alist 676 (defvar dired-query-alist
677 '((?\y . y) (?\040 . y) ; `y' or SPC means accept once 677 '((?\y . y) (?\040 . y) ; `y' or SPC means accept once
678 (?n . n) (?\177 . n) ; `n' or DEL skips once 678 (?n . n) (?\177 . n) ; `n' or DEL skips once
679 (?! . yes) ; `!' accepts rest 679 (?! . yes) ; `!' accepts rest
680 (?q. no) (?\e . no) ; `q' or ESC skips rest 680 (?q . no) (?\e . no) ; `q' or ESC skips rest
681 ;; None of these keys quit - use C-g for that. 681 ;; None of these keys quit - use C-g for that.
682 )) 682 ))
683 683
684 (defun dired-query (qs-var qs-prompt &rest qs-args) 684 (defun dired-query (qs-var qs-prompt &rest qs-args)
685 ;; Query user and return nil or t. 685 ;; Query user and return nil or t.