Works only when an inferior emacs is executing.
end
+# Print out s-expressions
+define pp
+ set $tmp = $arg0
+ set debug_print ($tmp)
+end
+document pp
+Print the argument as an emacs s-expression
+Works only when an inferior emacs is executing.
+end
+
define xtype
xgettype $
output $type
end
define xsymbol
- xgetptr $
+ set $sym = $
+ xgetptr $sym
print (struct Lisp_Symbol *) $ptr
- xprintsym $
+ xprintsym $sym
echo \n
end
document xsymbol
end
xreload
+# Flush display (X only)
+define ff
+ set x_flush (0)
+end
+document ff
+Flush pending X window display updates to screen.
+Works only when an inferior emacs is executing.
+end
+
+
define hook-run
xreload
end