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))) |
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) |
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 |