diff options
| author | Eli Zaretskii | 2005-02-19 13:27:09 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2005-02-19 13:27:09 +0000 |
| commit | 0e0d5683812fe9d4b77355291e9efd8ed8873d64 (patch) | |
| tree | a58b2ddac1c30f3ce9dd03c536e116ad7d00c2ac | |
| parent | 270a576a4222c76b9483a322769fc4d3d2e29a82 (diff) | |
| download | emacs-0e0d5683812fe9d4b77355291e9efd8ed8873d64.tar.gz emacs-0e0d5683812fe9d4b77355291e9efd8ed8873d64.zip | |
(escape-glyph, minibuffer-prompt, button): Add commentary for
the reasons we use "type pc" in these faces.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/button.el | 1 | ||||
| -rw-r--r-- | lisp/faces.el | 5 |
3 files changed, 13 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ea146cd6c6..8a535f6e32c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2005-02-19 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * faces.el (escape-glyph, minibuffer-prompt): Add commentary for | ||
| 4 | the reasons we use "type pc" in these faces. | ||
| 5 | |||
| 6 | * button.el (button): Ditto. | ||
| 7 | |||
| 1 | 2005-02-19 Michael Mauger <mmaug@yahoo.com> | 8 | 2005-02-19 Michael Mauger <mmaug@yahoo.com> |
| 2 | 9 | ||
| 3 | * replace.el (query-replace-read-from): Set the value of | 10 | * replace.el (query-replace-read-from): Set the value of |
diff --git a/lisp/button.el b/lisp/button.el index dcd26846d10..5f9b5094e6c 100644 --- a/lisp/button.el +++ b/lisp/button.el | |||
| @@ -50,6 +50,7 @@ | |||
| 50 | 50 | ||
| 51 | ;; Globals | 51 | ;; Globals |
| 52 | 52 | ||
| 53 | ;; Use color for the MS-DOS port because it doesn't support underline. | ||
| 53 | (defface button '((((type pc) (class color)) | 54 | (defface button '((((type pc) (class color)) |
| 54 | (:foreground "lightblue")) | 55 | (:foreground "lightblue")) |
| 55 | (t :underline t)) | 56 | (t :underline t)) |
diff --git a/lisp/faces.el b/lisp/faces.el index 1a868b4537c..e448ab4f13d 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -1880,6 +1880,9 @@ created." | |||
| 1880 | 1880 | ||
| 1881 | 1881 | ||
| 1882 | (defface minibuffer-prompt '((((background dark)) :foreground "cyan") | 1882 | (defface minibuffer-prompt '((((background dark)) :foreground "cyan") |
| 1883 | ;; Don't use blue because many users of | ||
| 1884 | ;; the MS-DOS port customize their | ||
| 1885 | ;; foreground color to be blue. | ||
| 1883 | (((type pc)) :foreground "magenta") | 1886 | (((type pc)) :foreground "magenta") |
| 1884 | (t :foreground "dark blue")) | 1887 | (t :foreground "dark blue")) |
| 1885 | "Face for minibuffer prompts." | 1888 | "Face for minibuffer prompts." |
| @@ -2047,6 +2050,8 @@ Note: Other faces cannot inherit from the cursor face." | |||
| 2047 | :group 'basic-faces) | 2050 | :group 'basic-faces) |
| 2048 | 2051 | ||
| 2049 | (defface escape-glyph '((((background dark)) :foreground "cyan") | 2052 | (defface escape-glyph '((((background dark)) :foreground "cyan") |
| 2053 | ;; See the comment in minibuffer-prompt for | ||
| 2054 | ;; the reason not to use blue on MS-DOS. | ||
| 2050 | (((type pc)) :foreground "magenta") | 2055 | (((type pc)) :foreground "magenta") |
| 2051 | (t :foreground "blue")) | 2056 | (t :foreground "blue")) |
| 2052 | "Face for characters displayed as ^-sequences or \-sequences." | 2057 | "Face for characters displayed as ^-sequences or \-sequences." |