/[emacs]/emacs/lisp/wid-edit.el
ViewVC logotype

Diff of /emacs/lisp/wid-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.145 by teirllm, Sun Aug 7 01:07:33 2005 UTC revision 1.146 by rfrancoise, Sat Sep 24 13:44:00 2005 UTC
# Line 3018  It will read a file name from the minibu Line 3018  It will read a file name from the minibu
3018    (abbreviate-file-name    (abbreviate-file-name
3019     (if unbound     (if unbound
3020         (read-file-name prompt)         (read-file-name prompt)
3021       (let ((prompt2 (format "%s (default %s) " prompt value))       (let ((prompt2 (format "%s (default %s): " prompt value))
3022             (dir (file-name-directory value))             (dir (file-name-directory value))
3023             (file (file-name-nondirectory value))             (file (file-name-nondirectory value))
3024             (must-match (widget-get widget :must-match)))             (must-match (widget-get widget :must-match)))
# Line 3031  It will read a file name from the minibu Line 3031  It will read a file name from the minibu
3031  ;;;      (file (file-name-nondirectory value))  ;;;      (file (file-name-nondirectory value))
3032  ;;;      (menu-tag (widget-apply widget :menu-tag-get))  ;;;      (menu-tag (widget-apply widget :menu-tag-get))
3033  ;;;      (must-match (widget-get widget :must-match))  ;;;      (must-match (widget-get widget :must-match))
3034  ;;;      (answer (read-file-name (concat menu-tag ": (default `" value "') ")  ;;;      (answer (read-file-name (concat menu-tag " (default " value "): ")
3035  ;;;                              dir nil must-match file)))  ;;;                              dir nil must-match file)))
3036  ;;;    (widget-value-set widget (abbreviate-file-name answer))  ;;;    (widget-value-set widget (abbreviate-file-name answer))
3037  ;;;    (widget-setup)  ;;;    (widget-setup)
# Line 3135  It will read a directory name from the m Line 3135  It will read a directory name from the m
3135    "Read coding-system from minibuffer."    "Read coding-system from minibuffer."
3136    (if (widget-get widget :base-only)    (if (widget-get widget :base-only)
3137        (intern        (intern
3138         (completing-read (format "%s (default %s) " prompt value)         (completing-read (format "%s (default %s): " prompt value)
3139                          (mapcar #'list (coding-system-list t)) nil nil nil                          (mapcar #'list (coding-system-list t)) nil nil nil
3140                          coding-system-history))                          coding-system-history))
3141        (read-coding-system (format "%s (default %s) " prompt value) value)))        (read-coding-system (format "%s (default %s): " prompt value) value)))
3142    
3143  (defun widget-coding-system-action (widget &optional event)  (defun widget-coding-system-action (widget &optional event)
3144    (let ((answer    (let ((answer

Legend:
Removed from v.1.145  
changed lines
  Added in v.1.146

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26