From: Kim F. Storm <storm@cua.dk>
Date: Mon, 4 Oct 2004 13:34:59 +0000 (+0000)
Subject: (pp): Shorthand for p ARG + pr.
X-Git-Tag: ttn-vms-21-2-B4~4740
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c5d0c5224d10720ec3039bf7b4bbe3254d7b228;p=emacs.git

(pp): Shorthand for p ARG + pr.
(ff): New command: flush frame updates (X only).
---

diff --git a/src/.gdbinit b/src/.gdbinit
index fe9ddf7dbb7..1bcb9f6789b 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -60,6 +60,16 @@ Print the emacs s-expression which is $.
 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
@@ -429,6 +439,16 @@ document xreload
 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