scratch/interpreted-function d1a7805927a 4/5: * src/.gdbinit (xclosure): Rename from `xcompiled`.

[Stefan Monnier]

branch: scratch/interpreted-function
commit d1a7805927af7753c54811fc2beecfb80d520dd6
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * src/.gdbinit (xclosure): Rename from `xcompiled`.
    
    (xcompiled): New obsolete alias.
    (xpr): Adjust accordingly.  Also adjust to new PVEC_CLOSURE tag name.
---
 src/.gdbinit | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/src/.gdbinit b/src/.gdbinit
index 6c4dda67f06..7645d466a5e 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -822,15 +822,22 @@ Print $ as a frame pointer.
 This command assumes $ is an Emacs Lisp frame value.
 end
 
-define xcompiled
+define xclosure
   xgetptr $
   print (struct Lisp_Vector *) $ptr
   output ($->contents[0])@($->header.size & 0xff)
   echo \n
 end
+document xclosure
+Print $ as a function pointer.
+This command assumes that $ is an Emacs Lisp byte-code or interpreted function 
value.
+end
+
+define xcompiled
+  xclosure
+end
 document xcompiled
-Print $ as a compiled function pointer.
-This command assumes that $ is an Emacs Lisp compiled value.
+Obsolete alias for "xclosure".
 end
 
 define xwindow
@@ -1038,8 +1045,8 @@ define xpr
       if $vec == PVEC_FRAME
        xframe
       end
-      if $vec == PVEC_COMPILED
-       xcompiled
+      if $vec == PVEC_CLOSURE
+       xclosure
       end
       if $vec == PVEC_WINDOW
        xwindow