Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
69f0b7f5
Commit
69f0b7f5
authored
Jan 25, 2006
by
Noah Friedman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Replace all references to `cdr' field of conses with `u.cdr',
per change Andreas Schwab 2005-11-15 of src/lisp.h.
parent
c435ab83
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
8 deletions
+11
-8
etc/emacs-buffer.gdb
etc/emacs-buffer.gdb
+11
-8
No files found.
etc/emacs-buffer.gdb
View file @
69f0b7f5
# emacs-buffer.gdb --- gdb macros for recovering buffers from emacs coredumps
# Copyright (C) 2005 Free Software Foundation, Inc.
# Copyright (C) 2005
, 2006
Free Software Foundation, Inc.
# Maintainer: Noah Friedman <friedman@splode.com>
# Status: tested with Emacs 22
# 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.
...
...
@@ -29,8 +32,8 @@
# an Emacs coredump; they may not always be file-backed or have a recent
# autosave.
#
# The Emacs executable must have debugging symbols for this to work.
But
# you never strip Emacs, right?
Right!
# The Emacs executable must have debugging symbols for this to work.
#
But
you never strip Emacs, right?
#
# The main commands of interest are `ybuffer-list', `yfile-buffers',
# `ysave-buffer', and `ybuffer-contents'. The `y' prefix avoids any
...
...
@@ -98,11 +101,11 @@ define ybuffer-list
while $alist != Qnil
ygetptr $alist
set $this = ((struct Lisp_Cons *) $ptr)->car
set $alist = ((struct Lisp_Cons *) $ptr)->cdr
set $alist = ((struct Lisp_Cons *) $ptr)->
u.
cdr
# Vbuffer_alist elts are pairs of the form (name . buffer)
ygetptr $this
set $buf = ((struct Lisp_Cons *) $ptr)->cdr
set $buf = ((struct Lisp_Cons *) $ptr)->
u.
cdr
ygetptr $buf
set $buf = (struct buffer *) $ptr
...
...
@@ -150,7 +153,7 @@ define yset-buffer
set $alist = Vbuffer_alist
while ($alist != Qnil && $i > 0)
ygetptr $alist
set $alist = ((struct Lisp_Cons *) $ptr)->cdr
set $alist = ((struct Lisp_Cons *) $ptr)->
u.
cdr
set $i--
end
...
...
@@ -160,7 +163,7 @@ define yset-buffer
# Get the buffer object
ygetptr $this
set $this = ((struct Lisp_Cons *) $ptr)->cdr
set $this = ((struct Lisp_Cons *) $ptr)->
u.
cdr
ygetptr $this
set $ycurrent_buffer = (struct buffer *) $ptr
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment