summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2000-05-25 16:54:17 +0000
committerEli Zaretskii <eliz@gnu.org>2000-05-25 16:54:17 +0000
commit744bcf112775b9870982eb964091bff49531b505 (patch)
tree78f0f8564cdbf8de2616d17a374048b19b3a54eb
parent95d059bd0e4943c573739f2b014a14dcccd86c04 (diff)
downloademacs-744bcf112775b9870982eb964091bff49531b505.tar.gz
(standard-display-g1, standard-display-graphic):
Only refuse to use string glyphs on X and MS-Windows.
-rw-r--r--lisp/disp-table.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 7732956be91..b90f3277027 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -139,7 +139,7 @@ Valid symbols are `truncation', `wrap', `escape', `control',
"Display character C as character SC in the g1 character set.
This function assumes that your terminal uses the SO/SI characters;
it is meaningless for an X frame."
- (if window-system
+ (if (memq window-system '(x w32))
(error "Cannot use string glyphs in a windowing system"))
(aset standard-display-table c
(vector (create-glyph (concat "\016" (char-to-string sc) "\017")))))
@@ -149,7 +149,7 @@ it is meaningless for an X frame."
"Display character C as character GC in graphics character set.
This function assumes VT100-compatible escapes; it is meaningless for an
X frame."
- (if window-system
+ (if (memq window-system '(x w32))
(error "Cannot use string glyphs in a windowing system"))
(aset standard-display-table c
(vector (create-glyph (concat "\e(0" (char-to-string gc) "\e(B")))))