summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1997-07-02 12:53:57 +0000
committerKenichi Handa <handa@m17n.org>1997-07-02 12:53:57 +0000
commitc42819d2a56f6b234d944431844ecaeb3fdb72b6 (patch)
tree6a271d37440755cabbdf235520296aec68060779 /src
parentadfbcf147ad71ffcc01c38d4f9dabaa3e42569cc (diff)
downloademacs-c42819d2a56f6b234d944431844ecaeb3fdb72b6.tar.gz
(Fchar_width): Check if the current buffer has display
table.
Diffstat (limited to 'src')
-rw-r--r--src/charset.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/charset.c b/src/charset.c
index 9ba1143baf9..2e30fcc67a6 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -747,13 +747,14 @@ The width is measured by how many columns it occupies on the screen.")
{
Lisp_Object val, disp;
int c;
+ struct Lisp_Char_Table *dp = buffer_display_table ();
CHECK_NUMBER (ch, 0);
c = XINT (ch);
/* Get the way the display table would display it. */
- disp = DISP_CHAR_VECTOR (buffer_display_table (current_buffer), (c));
+ disp = dp ? DISP_CHAR_VECTOR (dp, c) : Qnil;
if (VECTORP (disp))
XSETINT (val, XVECTOR (disp)->size);