From: Dave Love <fx@gnu.org>
Date: Thu, 4 Sep 2003 16:23:25 +0000 (+0000)
Subject: (ruler-mode-fill-column-char)
X-Git-Tag: ttn-vms-21-2-B4~8903
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c82d88fa2302f1579512f72645f069a28c2c4066;p=emacs.git

(ruler-mode-fill-column-char)
(ruler-mode-current-column-char): Use char-displayable-p, not
window-system.
---

diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index 31b7162a6cf..7673802fdfa 100644
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -135,7 +135,7 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
                     (format "Invalid character value: %S" value))
         widget))))
 
-(defcustom ruler-mode-fill-column-char (if window-system
+(defcustom ruler-mode-fill-column-char (if (char-displayable-p ?¶)
                                            ?\¶
                                          ?\|)
   "*Character used at the `fill-column' location."
@@ -161,7 +161,7 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
           (integer :tag "Integer char value"
                    :validate ruler-mode-character-validate)))
 
-(defcustom ruler-mode-current-column-char (if window-system
+(defcustom ruler-mode-current-column-char (if (char-displayable-p ?¦)
                                               ?\¦
                                             ?\@)
   "*Character used at the `current-column' location."