diff options
Diffstat (limited to 'etc/emacs-buffer.gdb')
| -rw-r--r-- | etc/emacs-buffer.gdb | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/etc/emacs-buffer.gdb b/etc/emacs-buffer.gdb index e5916b3784f..efbf75dc0d6 100644 --- a/etc/emacs-buffer.gdb +++ b/etc/emacs-buffer.gdb @@ -81,7 +81,7 @@ set $yfile_buffers_only = 0 define ygetptr set $ptr = $arg0 - set $ptr = (CHECK_LISP_OBJECT_TYPE ? $ptr.i : $ptr) & VALMASK + set $ptr = (EMACS_INT) (CHECK_LISP_OBJECT_TYPE ? $ptr.i : $ptr) & VALMASK end # Get the value of Qnil for comparison. Needed when @@ -103,12 +103,12 @@ define ybuffer-list ygetptr $alist set $alist = $ptr while $alist != $qnil - set $this = ((struct Lisp_Cons *) $ptr)->car - set $alist = ((struct Lisp_Cons *) $ptr)->u.cdr + set $this = ((struct Lisp_Cons *) $ptr)->u.s.car + set $alist = ((struct Lisp_Cons *) $ptr)->u.s.u.cdr # Vbuffer_alist elts are pairs of the form (name . buffer) ygetptr $this - set $buf = ((struct Lisp_Cons *) $ptr)->u.cdr + set $buf = ((struct Lisp_Cons *) $ptr)->u.s.u.cdr ygetptr $buf set $buf = (struct buffer *) $ptr @@ -116,17 +116,17 @@ define ybuffer-list set $fname = $ptr if ! ($files_only && $fname == $qnil) ygetptr $buf->name_ - set $name = ((struct Lisp_String *) $ptr)->data + set $name = ((struct Lisp_String *) $ptr)->u.s.data set $modp = ($buf->text->modiff > $buf->text->save_modiff) ? '*' : ' ' ygetptr $buf->mode_name_ - set $mode = ((struct Lisp_String *) $ptr)->data + set $mode = ((struct Lisp_String *) $ptr)->u.s.data if $fname != $qnil ygetptr $buf->filename_ printf "%2d %c %9d %-20s %-10s %s\n", \ $i, $modp, ($buf->text->z_byte - 1), $name, $mode, \ - ((struct Lisp_String *) $fname)->data + ((struct Lisp_String *) $fname)->u.s.data else printf "%2d %c %9d %-20s %-10s\n", \ $i, $modp, ($buf->text->z_byte - 1), $name, $mode @@ -161,18 +161,18 @@ define yset-buffer ygetptr $alist set $alist = $ptr while ($alist != $qnil && $i > 0) - set $alist = ((struct Lisp_Cons *) $ptr)->u.cdr + set $alist = ((struct Lisp_Cons *) $ptr)->u.s.u.cdr ygetptr $alist set $alist = $ptr set $i-- end # Get car of alist; this is a pair (name . buffer) - set $this = ((struct Lisp_Cons *) $alist)->car + set $this = ((struct Lisp_Cons *) $alist)->u.s.car # Get the buffer object ygetptr $this - set $this = ((struct Lisp_Cons *) $ptr)->u.cdr + set $this = ((struct Lisp_Cons *) $ptr)->u.s.u.cdr ygetptr $this set $ycurrent_buffer = (struct buffer *) $ptr @@ -206,7 +206,7 @@ end define yget-current-buffer-name set $this = $ycurrent_buffer->name_ ygetptr $this - set $ycurrent_buffer_name = ((struct Lisp_String *) $ptr)->data + set $ycurrent_buffer_name = ((struct Lisp_String *) $ptr)->u.s.data end document yget-current-buffer-name Set $ycurrent_buffer_name to the name of the currently selected buffer. |