Allow glyphless-char-display to distinguish between X and text terminals.

Use this for Tabulated List mode.

* lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Use a custom
glyphless-char-display table.
(tabulated-list-glyphless-char-display): New var.

* src/term.c (produce_glyphless_glyph): Handle cons cell entry in
glyphless-char-display.

* src/xdisp.c (lookup_glyphless_char_display)
(produce_glyphless_glyph): Handle cons cell entry in
glyphless-char-display.
(Vglyphless_char_display): Document it.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/term.c b/src/term.c
index df13d7c0db2..cae83f4d269 100644
--- a/src/term.c
+++ b/src/term.c
@@ -1936,6 +1936,8 @@ produce_glyphless_glyph (struct it *it, int for_no_font, Lisp_Object acronym)
         {
           if (! STRINGP (acronym) && CHAR_TABLE_P (Vglyphless_char_display))
             acronym = CHAR_TABLE_REF (Vglyphless_char_display, it->c);
+          if (CONSP (acronym))
+            acronym = XCDR (acronym);
           buf[0] = '[';
           str = STRINGP (acronym) ? SSDATA (acronym) : "";
           for (len = 0; len < 6 && str[len] && ASCII_BYTE_P (str[len]); len++)