[Emacs-diffs] Changes to emacs/lisp/wid-edit.el

[Romain Francoise]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.145 emacs/lisp/wid-edit.el:1.146
*** emacs/lisp/wid-edit.el:1.145        Sun Aug  7 01:07:33 2005
--- emacs/lisp/wid-edit.el      Sat Sep 24 13:44:00 2005
***************
*** 3018,3024 ****
    (abbreviate-file-name
     (if unbound
         (read-file-name prompt)
!      (let ((prompt2 (format "%s (default %s) " prompt value))
           (dir (file-name-directory value))
           (file (file-name-nondirectory value))
           (must-match (widget-get widget :must-match)))
--- 3018,3024 ----
    (abbreviate-file-name
     (if unbound
         (read-file-name prompt)
!      (let ((prompt2 (format "%s (default %s): " prompt value))
           (dir (file-name-directory value))
           (file (file-name-nondirectory value))
           (must-match (widget-get widget :must-match)))
***************
*** 3031,3037 ****
  ;;;    (file (file-name-nondirectory value))
  ;;;    (menu-tag (widget-apply widget :menu-tag-get))
  ;;;    (must-match (widget-get widget :must-match))
! ;;;    (answer (read-file-name (concat menu-tag ": (default `" value "') ")
  ;;;                            dir nil must-match file)))
  ;;;    (widget-value-set widget (abbreviate-file-name answer))
  ;;;    (widget-setup)
--- 3031,3037 ----
  ;;;    (file (file-name-nondirectory value))
  ;;;    (menu-tag (widget-apply widget :menu-tag-get))
  ;;;    (must-match (widget-get widget :must-match))
! ;;;    (answer (read-file-name (concat menu-tag " (default " value "): ")
  ;;;                            dir nil must-match file)))
  ;;;    (widget-value-set widget (abbreviate-file-name answer))
  ;;;    (widget-setup)
***************
*** 3135,3144 ****
    "Read coding-system from minibuffer."
    (if (widget-get widget :base-only)
        (intern
!        (completing-read (format "%s (default %s) " prompt value)
                        (mapcar #'list (coding-system-list t)) nil nil nil
                        coding-system-history))
!       (read-coding-system (format "%s (default %s) " prompt value) value)))
  
  (defun widget-coding-system-action (widget &optional event)
    (let ((answer
--- 3135,3144 ----
    "Read coding-system from minibuffer."
    (if (widget-get widget :base-only)
        (intern
!        (completing-read (format "%s (default %s): " prompt value)
                        (mapcar #'list (coding-system-list t)) nil nil nil
                        coding-system-history))
!       (read-coding-system (format "%s (default %s): " prompt value) value)))
  
  (defun widget-coding-system-action (widget &optional event)
    (let ((answer