mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-25 23:10:47 -08:00
* .gdbinit (xpr): Remove checks for no longer existing misc types.
(xintfwd, xboolfwd, xobjfwd, xbufobjfwd, xkbobjfwd, xbuflocal): Remove.
This commit is contained in:
parent
9cc7819c61
commit
74dd3a6bbb
2 changed files with 6 additions and 78 deletions
78
src/.gdbinit
78
src/.gdbinit
|
|
@ -703,60 +703,6 @@ Print $ as a misc free-cell pointer.
|
|||
This command assumes that $ is an Emacs Lisp Misc value.
|
||||
end
|
||||
|
||||
define xintfwd
|
||||
xgetptr $
|
||||
print (struct Lisp_Intfwd *) $ptr
|
||||
end
|
||||
document xintfwd
|
||||
Print $ as an integer forwarding pointer.
|
||||
This command assumes that $ is an Emacs Lisp Misc value.
|
||||
end
|
||||
|
||||
define xboolfwd
|
||||
xgetptr $
|
||||
print (struct Lisp_Boolfwd *) $ptr
|
||||
end
|
||||
document xboolfwd
|
||||
Print $ as a boolean forwarding pointer.
|
||||
This command assumes that $ is an Emacs Lisp Misc value.
|
||||
end
|
||||
|
||||
define xobjfwd
|
||||
xgetptr $
|
||||
print (struct Lisp_Objfwd *) $ptr
|
||||
end
|
||||
document xobjfwd
|
||||
Print $ as an object forwarding pointer.
|
||||
This command assumes that $ is an Emacs Lisp Misc value.
|
||||
end
|
||||
|
||||
define xbufobjfwd
|
||||
xgetptr $
|
||||
print (struct Lisp_Buffer_Objfwd *) $ptr
|
||||
end
|
||||
document xbufobjfwd
|
||||
Print $ as a buffer-local object forwarding pointer.
|
||||
This command assumes that $ is an Emacs Lisp Misc value.
|
||||
end
|
||||
|
||||
define xkbobjfwd
|
||||
xgetptr $
|
||||
print (struct Lisp_Kboard_Objfwd *) $ptr
|
||||
end
|
||||
document xkbobjfwd
|
||||
Print $ as a kboard-local object forwarding pointer.
|
||||
This command assumes that $ is an Emacs Lisp Misc value.
|
||||
end
|
||||
|
||||
define xbuflocal
|
||||
xgetptr $
|
||||
print (struct Lisp_Buffer_Local_Value *) $ptr
|
||||
end
|
||||
document xbuflocal
|
||||
Print $ as a buffer-local-value pointer.
|
||||
This command assumes that $ is an Emacs Lisp Misc value.
|
||||
end
|
||||
|
||||
define xsymbol
|
||||
set $sym = $
|
||||
xgetptr $sym
|
||||
|
|
@ -1030,36 +976,12 @@ define xpr
|
|||
if $misc == Lisp_Misc_Free
|
||||
xmiscfree
|
||||
end
|
||||
if $misc == Lisp_Misc_Boolfwd
|
||||
xboolfwd
|
||||
end
|
||||
if $misc == Lisp_Misc_Marker
|
||||
xmarker
|
||||
end
|
||||
if $misc == Lisp_Misc_Intfwd
|
||||
xintfwd
|
||||
end
|
||||
if $misc == Lisp_Misc_Boolfwd
|
||||
xboolfwd
|
||||
end
|
||||
if $misc == Lisp_Misc_Objfwd
|
||||
xobjfwd
|
||||
end
|
||||
if $misc == Lisp_Misc_Buffer_Objfwd
|
||||
xbufobjfwd
|
||||
end
|
||||
if $misc == Lisp_Misc_Buffer_Local_Value
|
||||
xbuflocal
|
||||
end
|
||||
# if $misc == Lisp_Misc_Some_Buffer_Local_Value
|
||||
# xvalue
|
||||
# end
|
||||
if $misc == Lisp_Misc_Overlay
|
||||
xoverlay
|
||||
end
|
||||
if $misc == Lisp_Misc_Kboard_Objfwd
|
||||
xkbobjfwd
|
||||
end
|
||||
# if $misc == Lisp_Misc_Save_Value
|
||||
# xsavevalue
|
||||
# end
|
||||
|
|
|
|||
|
|
@ -1,3 +1,9 @@
|
|||
2012-04-30 Andreas Schwab <schwab@linux-m68k.org>
|
||||
|
||||
* .gdbinit (xpr): Remove checks for no longer existing misc types.
|
||||
(xintfwd, xboolfwd, xobjfwd, xbufobjfwd, xkbobjfwd, xbuflocal):
|
||||
Remove.
|
||||
|
||||
2012-04-28 Paul Eggert <eggert@cs.ucla.edu>
|
||||
|
||||
Do not avoid creating empty evaporating overlays (Bug#9642).
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue