From c243bc792c65a94733ecdbfa2aa7f5a38a76885e Mon Sep 17 00:00:00 2001 From: Noah Friedman Date: Fri, 22 Apr 2011 16:29:02 -0700 Subject: [PATCH] Add trailing underscores to appropriate member names, per change 2011-02-14T15:39:19Z!tromey@redhat.com of src/lisp.h. --- etc/ChangeLog | 6 ++++++ etc/emacs-buffer.gdb | 23 +++++++++++------------ 2 files changed, 17 insertions(+), 12 deletions(-) diff --git a/etc/ChangeLog b/etc/ChangeLog index 002dfaf7fd5..24f44b9d0e8 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,9 @@ +2011-04-22 Noah Friedman + + * emacs-buffer.gdb: Add trailing underscores to appropriate member + names, per change tromey@redhat.com-20110214153919-bxkckrdmmg4qhyyj + of src/lisp.h. + 2011-04-08 Christoph Scholtes * NEWS: Document new function `vc-ediff'. diff --git a/etc/emacs-buffer.gdb b/etc/emacs-buffer.gdb index 14a7615801c..1378e5b81fc 100644 --- a/etc/emacs-buffer.gdb +++ b/etc/emacs-buffer.gdb @@ -1,12 +1,8 @@ # emacs-buffer.gdb --- gdb macros for recovering buffers from emacs coredumps -# Copyright (C) 2005-2011 Free Software Foundation, Inc. +# Copyright (C) 2005, 06, 2011 Free Software Foundation, Inc. # Maintainer: Noah Friedman -# Status: Works with Emacs 22.0.51.1 (prerelease) as of 2006-01-12. -# Older cvs snapshots, and released versions, will not work due to -# changes in lisp data structures. But there are older versions of -# this gdb script which work with those versions. # Created: 2005-04-28 # This file is part of GNU Emacs. @@ -37,6 +33,10 @@ # `ysave-buffer', and `ybuffer-contents'. The `y' prefix avoids any # namespace collisions with emacs/src/.gdbinit. +# Since the internal data structures in Emacs occasionally from time to +# time, you should use the version of this file that came with your +# particular Emacs version; older versions might not work anymore. + # Example usage: # # $ gdb /export/src/emacs/2005-05-02--03-17/src/emacs core.emacs.6.9845 @@ -107,16 +107,16 @@ define ybuffer-list ygetptr $buf set $buf = (struct buffer *) $ptr - if ! ($files_only && $buf->filename == Qnil) - ygetptr $buf->name + if ! ($files_only && $buf->filename_ == Qnil) + ygetptr $buf->name_ set $name = ((struct Lisp_String *) $ptr)->data set $modp = ($buf->text->modiff > $buf->text->save_modiff) ? '*' : ' ' - ygetptr $buf->mode_name + ygetptr $buf->mode_name_ set $mode = ((struct Lisp_String *) $ptr)->data - if $buf->filename != Qnil - ygetptr $buf->filename + if $buf->filename_ != Qnil + ygetptr $buf->filename_ printf "%2d %c %9d %-20s %-10s %s\n", \ $i, $modp, ($buf->text->z_byte - 1), $name, $mode, \ ((struct Lisp_String *) $ptr)->data @@ -193,7 +193,7 @@ document yget-buffer-pointers end define yget-current-buffer-name - set $this = $ycurrent_buffer->name + set $this = $ycurrent_buffer->name_ ygetptr $this set $ycurrent_buffer_name = ((struct Lisp_String *) $ptr)->data end @@ -267,4 +267,3 @@ end # local variables: # mode: gdb-script # end: - -- 2.39.2