diff options
| author | Eli Zaretskii | 2000-05-25 16:59:22 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2000-05-25 16:59:22 +0000 |
| commit | e7a903e81f21db5fc041c9f10bf7821aeb3bcd3f (patch) | |
| tree | 4bc468ec30956acf1ed2cb5ebdd8107284ae032c | |
| parent | 3351481016877a05a9db156d4dde17f6b5c82063 (diff) | |
| download | emacs-e7a903e81f21db5fc041c9f10bf7821aeb3bcd3f.tar.gz emacs-e7a903e81f21db5fc041c9f10bf7821aeb3bcd3f.zip | |
(highlight-changes-mode): Ask about color or
grayscale support, not about window-system.
| -rw-r--r-- | lisp/ChangeLog | 21 | ||||
| -rw-r--r-- | lisp/hilit-chg.el | 5 |
2 files changed, 24 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 36a82f0268e..d2bc3c44f8f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,26 @@ | |||
| 1 | 2000-05-25 Eli Zaretskii <eliz@is.elta.co.il> | 1 | 2000-05-25 Eli Zaretskii <eliz@is.elta.co.il> |
| 2 | 2 | ||
| 3 | * hilit-chg.el (highlight-changes-mode): Ask about color or | ||
| 4 | grayscale support, not about window-system. | ||
| 5 | |||
| 6 | * ffap.el (ffap-menu-text-plist): Use display-mouse-p, not | ||
| 7 | window-system. | ||
| 8 | (ffap-highlight): Always default to t. | ||
| 9 | |||
| 10 | * emacs-lisp/edebug.el (edebug-emacs-19-specific): Call | ||
| 11 | display-popup-menus-p instead of looking at window-system. | ||
| 12 | |||
| 13 | * disp-table.el (standard-display-g1, standard-display-graphic): | ||
| 14 | Only refuse to use string glyphs on X and MS-Windows. | ||
| 15 | |||
| 16 | * avoid.el: Remove window-system from commentary, suggest to use | ||
| 17 | display-*-p instead. | ||
| 18 | |||
| 19 | * apropos.el (apropos-print): Use display-mouse-p instead of | ||
| 20 | window-system. | ||
| 21 | |||
| 22 | 2000-05-25 Eli Zaretskii <eliz@is.elta.co.il> | ||
| 23 | |||
| 3 | * international/codepage.el (cp-decoding-vector-for-codepage): | 24 | * international/codepage.el (cp-decoding-vector-for-codepage): |
| 4 | Fill up unsupported characters with their own codes. From Kenichi | 25 | Fill up unsupported characters with their own codes. From Kenichi |
| 5 | Handa. | 26 | Handa. |
diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index c7a0586aa44..d254cb8de6c 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el | |||
| @@ -684,7 +684,8 @@ highlight-changes-toggle-hook - when entering active or passive state | |||
| 684 | highlight-changes-disable-hook - when turning off Highlight Changes mode. | 684 | highlight-changes-disable-hook - when turning off Highlight Changes mode. |
| 685 | " | 685 | " |
| 686 | (interactive "P") | 686 | (interactive "P") |
| 687 | (if window-system | 687 | (if (or (display-color-p) |
| 688 | (and (fboundp 'x-display-grayscale-p) (x-display-grayscale-p))) | ||
| 688 | (let ((was-on highlight-changes-mode) | 689 | (let ((was-on highlight-changes-mode) |
| 689 | (new-highlight-changes-mode | 690 | (new-highlight-changes-mode |
| 690 | (cond | 691 | (cond |
| @@ -717,7 +718,7 @@ highlight-changes-disable-hook - when turning off Highlight Changes mode. | |||
| 717 | (run-hooks 'highlight-changes-disable-hook) | 718 | (run-hooks 'highlight-changes-disable-hook) |
| 718 | (hilit-chg-clear)) | 719 | (hilit-chg-clear)) |
| 719 | ) | 720 | ) |
| 720 | (message "Highlight Changes mode only works when using a window system")) | 721 | (message "Highlight Changes mode requires color or grayscale display")) |
| 721 | ) | 722 | ) |
| 722 | 723 | ||
| 723 | 724 | ||