Mercurial > emacs
comparison lisp/wid-edit.el @ 65680:ed770a0a7846
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
* woman.el (woman-file-name):
* wid-edit.el (widget-file-prompt-value)
(widget-coding-system-prompt-value):
* w32-fns.el (set-w32-system-coding-system):
* vc.el (vc-version-diff, vc-annotate):
* textmodes/reftex-auc.el (reftex-arg-cite)
(reftex-arg-index-tag):
* textmodes/refer.el (refer-get-bib-files):
* textmodes/artist.el (artist-figlet-choose-font):
* terminal.el (terminal-emulator):
* replace.el (occur-read-primary-args):
* rect.el (string-rectangle, string-insert-rectangle):
* ps-print.el (ps-print-preprint):
* progmodes/pascal.el (pascal-goto-defun):
* progmodes/etags.el (visit-tags-table, visit-tags-table-buffer):
* progmodes/compile.el (compilation-find-file):
* printing.el (pr-interactive-n-up):
* play/animate.el (animate-birthday-present):
* net/rcompile.el (remote-compile):
* man.el (man, Man-goto-section, Man-follow-manual-reference):
* mail/rmailsum.el (rmail-summary-search-backward)
(rmail-summary-search):
* mail/rmailout.el (rmail-output-read-rmail-file-name)
(rmail-output-read-file-name):
* mail/rmail.el (rmail-search, rmail-search-backwards):
* mail/mailabbrev.el (merge-mail-abbrevs, rebuild-mail-abbrevs):
* locate.el (locate):
* international/quail.el (quail-show-keyboard-layout):
* international/mule.el (set-buffer-file-coding-system)
(revert-buffer-with-coding-system, set-file-name-coding-system)
(set-terminal-coding-system, set-keyboard-coding-system)
(set-next-selection-coding-system):
* international/mule-diag.el (describe-coding-system)
(describe-font, describe-fontset):
* international/mule-cmds.el (universal-coding-system-argument)
(search-unencodable-char, describe-input-method)
(set-language-environment, describe-language-environment):
* international/codepage.el (codepage-setup):
* international/code-pages.el (codepage-setup):
* info.el (Info-search, Info-follow-reference)
(Info-search-backward):
* emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-clear-cache, ad-activate)
(ad-deactivate, ad-update, ad-unadvise, ad-read-advice-name)
(ad-enable-advice, ad-disable-advice, ad-remove-advice)
(ad-read-regexp):
* ediff-util.el (ediff-toggle-regexp-match):
* ediff-ptch.el (ediff-prompt-for-patch-file):
* dired-aux.el (dired-diff):
* diff.el (diff):
* cus-edit.el (custom-variable-prompt):
* calendar/timeclock.el (timeclock-ask-for-project):
* calc/calcalg3.el (calc-get-fit-variables):
* calc/calc-store.el (calc-edit-variable)
(calc-permanent-variable):
* vc-mcvs.el (vc-mcvs-register):
* shadowfile.el (shadow-define-literal-group):
* woman.el (woman-file-name):
* vc.el (vc-version-diff, vc-merge):
* textmodes/reftex-index.el (reftex-index-complete-tag):
* format.el (format-decode-buffer, format-decode-region):
* emulation/viper-cmd.el (viper-read-string-with-history):
* emacs-lisp/debug.el (cancel-debug-on-entry):
* emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
* ediff.el (ediff-merge-revisions)
(ediff-merge-revisions-with-ancestor, ediff-revision):
* completion.el (interactive-completion-string-reader):
* calc/calc-prog.el (calc-user-define-formula):
Follow convention for reading with the minibuffer.
author | Romain Francoise <romain@orebokech.com> |
---|---|
date | Sat, 24 Sep 2005 13:44:02 +0000 |
parents | a0da2f13ae20 |
children | 3a0debccbfea ee12d75eb214 |
comparison
equal
deleted
inserted
replaced
65679:56406afc87de | 65680:ed770a0a7846 |
---|---|
3016 (defun widget-file-prompt-value (widget prompt value unbound) | 3016 (defun widget-file-prompt-value (widget prompt value unbound) |
3017 ;; Read file from minibuffer. | 3017 ;; Read file from minibuffer. |
3018 (abbreviate-file-name | 3018 (abbreviate-file-name |
3019 (if unbound | 3019 (if unbound |
3020 (read-file-name prompt) | 3020 (read-file-name prompt) |
3021 (let ((prompt2 (format "%s (default %s) " prompt value)) | 3021 (let ((prompt2 (format "%s (default %s): " prompt value)) |
3022 (dir (file-name-directory value)) | 3022 (dir (file-name-directory value)) |
3023 (file (file-name-nondirectory value)) | 3023 (file (file-name-nondirectory value)) |
3024 (must-match (widget-get widget :must-match))) | 3024 (must-match (widget-get widget :must-match))) |
3025 (read-file-name prompt2 dir nil must-match file))))) | 3025 (read-file-name prompt2 dir nil must-match file))))) |
3026 | 3026 |
3029 ;;; (let* ((value (widget-value widget)) | 3029 ;;; (let* ((value (widget-value widget)) |
3030 ;;; (dir (file-name-directory value)) | 3030 ;;; (dir (file-name-directory value)) |
3031 ;;; (file (file-name-nondirectory value)) | 3031 ;;; (file (file-name-nondirectory value)) |
3032 ;;; (menu-tag (widget-apply widget :menu-tag-get)) | 3032 ;;; (menu-tag (widget-apply widget :menu-tag-get)) |
3033 ;;; (must-match (widget-get widget :must-match)) | 3033 ;;; (must-match (widget-get widget :must-match)) |
3034 ;;; (answer (read-file-name (concat menu-tag ": (default `" value "') ") | 3034 ;;; (answer (read-file-name (concat menu-tag " (default " value "): ") |
3035 ;;; dir nil must-match file))) | 3035 ;;; dir nil must-match file))) |
3036 ;;; (widget-value-set widget (abbreviate-file-name answer)) | 3036 ;;; (widget-value-set widget (abbreviate-file-name answer)) |
3037 ;;; (widget-setup) | 3037 ;;; (widget-setup) |
3038 ;;; (widget-apply widget :notify widget event))) | 3038 ;;; (widget-apply widget :notify widget event))) |
3039 | 3039 |
3133 | 3133 |
3134 (defun widget-coding-system-prompt-value (widget prompt value unbound) | 3134 (defun widget-coding-system-prompt-value (widget prompt value unbound) |
3135 "Read coding-system from minibuffer." | 3135 "Read coding-system from minibuffer." |
3136 (if (widget-get widget :base-only) | 3136 (if (widget-get widget :base-only) |
3137 (intern | 3137 (intern |
3138 (completing-read (format "%s (default %s) " prompt value) | 3138 (completing-read (format "%s (default %s): " prompt value) |
3139 (mapcar #'list (coding-system-list t)) nil nil nil | 3139 (mapcar #'list (coding-system-list t)) nil nil nil |
3140 coding-system-history)) | 3140 coding-system-history)) |
3141 (read-coding-system (format "%s (default %s) " prompt value) value))) | 3141 (read-coding-system (format "%s (default %s): " prompt value) value))) |
3142 | 3142 |
3143 (defun widget-coding-system-action (widget &optional event) | 3143 (defun widget-coding-system-action (widget &optional event) |
3144 (let ((answer | 3144 (let ((answer |
3145 (widget-coding-system-prompt-value | 3145 (widget-coding-system-prompt-value |
3146 widget | 3146 widget |