diff options
| author | Kenichi Handa | 2003-12-29 07:50:17 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-12-29 07:50:17 +0000 |
| commit | 137c0a677396644f54be99049289f26fcd18604f (patch) | |
| tree | 7338ed1876c553eb12245aadd038be45f488831e | |
| parent | 7453364c3a40c3d7e4989fb4a349fedf721c06c6 (diff) | |
| download | emacs-137c0a677396644f54be99049289f26fcd18604f.tar.gz emacs-137c0a677396644f54be99049289f26fcd18604f.zip | |
(read-face-font): Include fontsets in the completion list.
| -rw-r--r-- | lisp/faces.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index d5a7aa6b4b5..9a4aa7c83a6 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -1071,7 +1071,8 @@ of a global face. Value is the new attribute value." | |||
| 1071 | If optional argument FRAME Is nil or omitted, use the selected frame." | 1071 | If optional argument FRAME Is nil or omitted, use the selected frame." |
| 1072 | (let ((completion-ignore-case t)) | 1072 | (let ((completion-ignore-case t)) |
| 1073 | (completing-read (format "Set font attributes of face `%s' from font: " face) | 1073 | (completing-read (format "Set font attributes of face `%s' from font: " face) |
| 1074 | (mapcar 'list (x-list-fonts "*" nil frame))))) | 1074 | (mapcar 'list (append (fontset-list) |
| 1075 | (x-list-fonts "*" nil frame)))))) | ||
| 1075 | 1076 | ||
| 1076 | 1077 | ||
| 1077 | (defun read-all-face-attributes (face &optional frame) | 1078 | (defun read-all-face-attributes (face &optional frame) |