Mercurial > emacs

comparison lisp/dired-aux.el @ 917:d09aafad0e95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Mon, 03 Aug 1992 21:49:55 +0000
parents 4fba6d4b6a28
children f165d900e06e
comparison
equal deleted inserted replaced
916:938f166a0874 917:d09aafad0e95
537 537
538 (defun dired-query (qs-var qs-prompt &rest qs-args) 538 (defun dired-query (qs-var qs-prompt &rest qs-args)
539 ;; Query user and return nil or t. 539 ;; Query user and return nil or t.
540 ;; Store answer in symbol VAR (which must initially be bound to nil). 540 ;; Store answer in symbol VAR (which must initially be bound to nil).
541 ;; Format PROMPT with ARGS. 541 ;; Format PROMPT with ARGS.
542 ;; Binding variable help-form will help the user who types C-h. 542 ;; Binding variable help-form will help the user who types the help key.
543 (let* ((char (symbol-value qs-var)) 543 (let* ((char (symbol-value qs-var))
544 (action (cdr (assoc char dired-query-alist)))) 544 (action (cdr (assoc char dired-query-alist))))
545 (cond ((eq 'yes action) 545 (cond ((eq 'yes action)
546 t) ; accept, and don't ask again 546 t) ; accept, and don't ask again
547 ((eq 'no action) 547 ((eq 'no action)