[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
How to dump disptable? (Was: char-table-extra-slot display bug)
From: |
Daniel Pfeiffer |
Subject: |
How to dump disptable? (Was: char-table-extra-slot display bug) |
Date: |
Sat, 27 Nov 2004 13:58:14 +0100 |
Saluton,
address@hidden (Kim F. Storm) skribis:
> address@hidden (Daniel Pfeiffer) writes:
>
> > I can't see that anything changed. Load a binary file, put the cursor on
> > the first screen column where there is such a glyph, and which is not at
> > BOL and do C-0 C-l: The whole window gets the face, not just the special
> > glyphs.
> >
> > Interestingly, while it is in this bug, if I position the cursor anywhere
> > with mouse-1, and as long as I press, the wrong display only occurs upto
> > the new point.
>
> I undid most of the previous changes and installed another more
> generic change which seems to fix all the reported problems.
Perfect! :-) Since the feature now works, I tried adding the the following
to faces.el:
(defface glyph
'((t
:inherit secondary-selection))
"Basic face for displaying \\ and ^ in multichar glyphs.
It is also used for ... in ellipses."
:group 'basic-faces)
(setq standard-display-table
(let* ((face (lsh (face-id 'glyph) 19))
(backslash (+ face ?\\))
(dot (+ face ?.)))
(eval-when-compile (require 'disp-table))
(set-char-table-extra-slot standard-display-table 2 backslash)
(aset standard-display-table 2208 (vector backslash ?\ ))
(aset standard-display-table 2221 (vector backslash ?-))
(set-char-table-extra-slot standard-display-table 3 (+ face ?^))
(set-char-table-extra-slot standard-display-table 4 (vector dot dot
dot)))
(purecopy standard-display-table))
I don't have a clue, if I need purecopy... But anyways this fails due to the
require, which seems to be a forbidden function while dumping temacs. Also,
I'd rather not dump all the unneeded disp-table stuff, but only the actual
table. Autoload doesn't seem to have an eval feature. Any ideas anyone?
coralament / best Grötens / liebe Grüße / best regards / elkorajn salutojn
Daniel Pfeiffer
--
lerne / learn / apprends / lär dig / ucz się Esperanto:
http://lernu.net/