Show
Ignore:
Timestamp:
2005年10月02日 09時47分43秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/dired-aux.el

    r3809 r3894  
    6060                                      (dired-get-filename t t))))) 
    6161     (require 'diff) 
    62      (list (read-file-name (format "Diff %s with: %s" 
     62     (list (read-file-name (format "Diff %s with%s: " 
    6363                                   (dired-get-filename t) 
    6464                                   (if default 
    65                                        (concat "(default " default ") ") 
     65                                       (concat " (default " default ")") 
    6666                                     "")) 
    6767                           (if default 
    …… 
    846846               (setq char (set qs-var (read-char)))) 
    847847             ;; Display the question with the answer. 
    848              (message (concat (apply 'format qprompt qs-args) 
     848             (message "%s" (concat (apply 'format qprompt qs-args) 
    849849                              (char-to-string char))) 
    850850             (memq (cdr elt) '(t y yes))))))) 
    …… 
    11271127             (or (eq 'always dired-backup-overwrite) 
    11281128                 (dired-query 'overwrite-backup-query 
    1129                               (format "Make backup for existing file `%s'? " 
    1130                                      to)))) 
     1129                              "Make backup for existing file `%s'? " 
     1130                              to))) 
    11311131        (progn 
    11321132          (rename-file to backup 0)     ; confirm overwrite of old backup 
    …… 
    11481148             (eq t (car attrs)) 
    11491149             (or (eq recursive 'always) 
    1150                  (yes-or-no-p (format "Recursive copies of %s " from)))) 
     1150                 (yes-or-no-p (format "Recursive copies of %s? " from)))) 
    11511151        ;; This is a directory. 
    11521152        (let ((files (directory-files from nil dired-re-no-dot)))