mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(Fchar_width): Check if the current buffer has display

Browse Source 
table.
This commit is contained in:
Kenichi Handa 1997-07-02 12:53:57 +00:00
parent a5d301dfec
commit 51c4025fa5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/charset.c
View File

@ -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);