Mercurial > emacs
comparison lisp/wid-edit.el @ 67727:c0dbbeb95cd3
(file, directory): Doc fixes for the `define-widget's.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Thu, 22 Dec 2005 01:46:34 +0000 |
parents | 5b2b1ad90419 |
children | 3d987bde3a79 |
comparison
equal
deleted
inserted
replaced
67726:d7d3dd935c86 | 67727:c0dbbeb95cd3 |
---|---|
2986 (error (widget-put widget :error (error-message-string data)) | 2986 (error (widget-put widget :error (error-message-string data)) |
2987 widget))) | 2987 widget))) |
2988 | 2988 |
2989 (define-widget 'file 'string | 2989 (define-widget 'file 'string |
2990 "A file widget. | 2990 "A file widget. |
2991 It will read a file name from the minibuffer when invoked." | 2991 It reads a file name from an editable text field." |
2992 :complete-function 'widget-file-complete | 2992 :complete-function 'widget-file-complete |
2993 :prompt-value 'widget-file-prompt-value | 2993 :prompt-value 'widget-file-prompt-value |
2994 :format "%{%t%}: %v" | 2994 :format "%{%t%}: %v" |
2995 ;; Doesn't work well with terminating newline. | 2995 ;; Doesn't work well with terminating newline. |
2996 ;; :value-face 'widget-single-line-field | 2996 ;; :value-face 'widget-single-line-field |
3048 ;;; (widget-apply widget :notify widget event))) | 3048 ;;; (widget-apply widget :notify widget event))) |
3049 | 3049 |
3050 ;; Fixme: use file-name-as-directory. | 3050 ;; Fixme: use file-name-as-directory. |
3051 (define-widget 'directory 'file | 3051 (define-widget 'directory 'file |
3052 "A directory widget. | 3052 "A directory widget. |
3053 It will read a directory name from the minibuffer when invoked." | 3053 It reads a directory name from an editable text field." |
3054 :tag "Directory") | 3054 :tag "Directory") |
3055 | 3055 |
3056 (defvar widget-symbol-prompt-value-history nil | 3056 (defvar widget-symbol-prompt-value-history nil |
3057 "History of input to `widget-symbol-prompt-value'.") | 3057 "History of input to `widget-symbol-prompt-value'.") |
3058 | 3058 |