-# Copyright (C) 1992-1998, 2000-2014 Free Software Foundation, Inc.
+# Copyright (C) 1992-1998, 2000-2015 Free Software Foundation, Inc.
#
# This file is part of GNU Emacs.
#
end
# GLYPHLESS_GLYPH
if ($g.type == 2)
- printf "GLYPHLESS["
+ printf "G-LESS["
if ($g.u.glyphless.method == 0)
- printf "THIN]"
+ printf "THIN;0x%x]", $g.u.glyphless.ch
end
if ($g.u.glyphless.method == 1)
- printf "EMPTY]"
+ printf "EMPTY;0x%x]", $g.u.glyphless.ch
end
if ($g.u.glyphless.method == 2)
- printf "ACRO]"
+ printf "ACRO;0x%x]", $g.u.glyphless.ch
end
if ($g.u.glyphless.method == 3)
- printf "HEX]"
+ printf "HEX;0x%x]", $g.u.glyphless.ch
end
end
# IMAGE_GLYPH
printf " pos=%d", $g.charpos
end
# For characters, print their resolved level and bidi type
- if ($g.type == 0)
+ if ($g.type == 0 || $g.type == 2)
printf " blev=%d,btyp=", $g.resolved_level
pbiditype $g.bidi_type
end
xgetptr $
print (struct window *) $ptr
set $window = (struct window *) $ptr
- xgetint $window->total_cols
- set $width=$int
- xgetint $window->total_lines
- set $height=$int
- xgetint $window->left_col
- set $left=$int
- xgetint $window->top_line
- set $top=$int
- printf "%dx%d+%d+%d\n", $width, $height, $left, $top
+ printf "%dx%d+%d+%d\n", $window->total_cols, $window->total_lines, $window->left_col, $window->top_line
end
document xwindow
Print $ as a window pointer, assuming it is an Emacs Lisp window value.
define xsubchartable
xgetptr $
print (struct Lisp_Sub_Char_Table *) $ptr
- xgetint $->depth
- set $depth = $int
- xgetint $->min_char
- printf "Depth: %d, Min char: %d (0x%x)\n", $depth, $int, $int
+ set $subchartab = (struct Lisp_Sub_Char_Table *) $ptr
+ printf "Depth: %d, Min char: %d (0x%x)\n", $subchartab->depth, $subchartab->min_char, $subchartab->min_char
end
document xsubchartable
Print the address of the sub-char-table $, its depth and min-char.