Mercurial > emacs

changeset 29204:d38a98cddcec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(highlight-changes-mode): Ask about color or grayscale support, not about window-system.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 25 May 2000 16:57:28 +0000
parents 004bedde23fc
children d08b497f3ce1
files lisp/hilit-chg.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/hilit-chg.el	Thu May 25 16:56:34 2000 +0000
+++ b/lisp/hilit-chg.el	Thu May 25 16:57:28 2000 +0000
@@ -684,7 +684,8 @@
 highlight-changes-disable-hook - when turning off Highlight Changes mode.
 "
   (interactive "P")
-  (if window-system
+  (if (or (display-color-p)
+	  (and (fboundp 'x-display-grayscale-p) (x-display-grayscale-p)))
       (let ((was-on highlight-changes-mode)
 	    (new-highlight-changes-mode
 	     (cond
@@ -717,7 +718,7 @@
 	  (run-hooks 'highlight-changes-disable-hook)
 	  (hilit-chg-clear))
 	)
-    (message "Highlight Changes mode only works when using a window system"))
+    (message "Highlight Changes mode requires color or grayscale display"))
   )