Mercurial > emacs
comparison lisp/faces.el @ 66959:35ab5e34fdf5
(face-read-string): Set the default value arg of completing-read.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 17 Nov 2005 07:20:51 +0000 |
| parents | 5271a20d9255 |
| children | 68a08be78536 |
comparison
equal
deleted
inserted
replaced
| 66958:b42f333ee0f4 | 66959:35ab5e34fdf5 |
|---|---|
| 1017 (value (completing-read | 1017 (value (completing-read |
| 1018 (if default | 1018 (if default |
| 1019 (format "%s for face `%s' (default %s): " | 1019 (format "%s for face `%s' (default %s): " |
| 1020 name face default) | 1020 name face default) |
| 1021 (format "%s for face `%s': " name face)) | 1021 (format "%s for face `%s': " name face)) |
| 1022 completion-alist))) | 1022 completion-alist nil nil nil nil default))) |
| 1023 (if (equal value "") default value))) | 1023 (if (equal value "") default value))) |
| 1024 | 1024 |
| 1025 | 1025 |
| 1026 (defun face-read-integer (face default name) | 1026 (defun face-read-integer (face default name) |
| 1027 "Interactively read an integer face attribute value. | 1027 "Interactively read an integer face attribute value. |