Add arch tagline

[gnu-emacs] / etc / emacs-buffer.gdb

diff --git a/etc/emacs-buffer.gdb b/etc/emacs-buffer.gdb
index b99abe8a2285795e32998b5456120f9764629c17..c4f8eef481db5801b3f4d9c189f2c788091e8907 100644 (file)
--- a/etc/emacs-buffer.gdb
+++ b/etc/emacs-buffer.gdb
@@ -6,8 +6,6 @@
 # Status: tested with Emacs 22
 # Created: 2005-04-28
 
-# $Id$
-
 # This file is part of GNU Emacs.
 #
 # GNU Emacs is free software; you can redistribute it and/or modify
@@ -118,13 +116,13 @@ define ybuffer-list
 
       if $buf->filename != Qnil
         ygetptr $buf->filename
-        set $filename = ((struct Lisp_String *) $ptr)->data
+        printf "%2d %c  %9d %-20s %-10s %s\n", \
+               $i, $modp, ($buf->text->z_byte - 1), $name, $mode, \
+               ((struct Lisp_String *) $ptr)->data
       else
-        set $filename = ' '
+        printf "%2d %c  %9d %-20s %-10s\n", \
+               $i, $modp, ($buf->text->z_byte - 1), $name, $mode
       end
-
-      printf "%2d %c  %9d %-20s %-10s %s\n", \
-             $i, $modp, ($buf->text->z_byte - 1), $name, $mode, $filename
     end
 
     set $i++
@@ -268,3 +266,5 @@ end
 # local variables:
 # mode: gdb-script
 # end:
+
+# arch-tag: 02087f62-2663-4868-977a-1fbb2fc2e7ef