/[emacs]/emacs/src/.gdbinit
ViewVC logotype

Diff of /emacs/src/.gdbinit

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51.4.6 by miles, Mon Oct 25 04:19:36 2004 UTC revision 1.51.4.7 by miles, Thu Nov 4 13:12:29 2004 UTC
# Line 70  Print the argument as an emacs s-express Line 70  Print the argument as an emacs s-express
70  Works only when an inferior emacs is executing.  Works only when an inferior emacs is executing.
71  end  end
72    
73    # Print out current buffer point and boundaries
74    define ppt
75      set $b = current_buffer
76      set $t = $b->text
77      printf "BUF PT: %d", $b->pt
78      if ($b->pt != $b->pt_byte)
79        printf "[%d]", $b->pt_byte
80      end
81      printf " of 1..%d", $t->z
82      if ($t->z != $t->z_byte)
83        printf "[%d]", $t->z_byte
84      end
85      if ($b->begv != 1 || $b->zv != $t->z)
86        printf " NARROW=%d..%d", $b->begv, $b->zv
87        if ($b->begv != $b->begv_byte || $b->zv != $b->zv_byte)
88          printf " [%d..%d]", $b->begv_byte, $b->zv_byte
89        end
90      end
91      printf " GAP: %d", $t->gpt
92      if ($t->gpt != $t->gpt_byte)
93        printf "[%d]", $t->gpt_byte
94      end
95      printf " SZ=%d\n", $t->gap_size
96    end
97    document ppt
98    Print point, beg, end, narrow, and gap for current buffer.
99    end
100    
101  define xtype  define xtype
102    xgettype $    xgettype $
103    output $type    output $type

Legend:
Removed from v.1.51.4.6  
changed lines
  Added in v.1.51.4.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26