scratch/igc 03a45aa931b: Add a comment to PVEC_FONT

[Gerd Moellmann]

branch: scratch/igc
commit 03a45aa931bc1fa822513b9e08c0984a0ea50994
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Add a comment to PVEC_FONT
---
 src/.lldbinit | 11 ++++++++---
 src/igc.c     |  4 +++-
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/.lldbinit b/src/.lldbinit
index 3934a54e296..243191ab1b3 100644
--- a/src/.lldbinit
+++ b/src/.lldbinit
@@ -69,9 +69,14 @@ b die
 #settings set -- target.run-args --batch  -l loadup --temacs=pbootstrap 
--bin-dest  --eln-dest
 #command alias go process launch --working-dir .
 
+#target create emacs
+#env EMACS_TEST_DIRECTORY=/Users/gerd/emacs/github/igc/test
+#command alias go process launch --working-dir ../test
+#settings set -- target.run-args --module-assertions --no-init-file 
--no-site-file --no-site-lisp -L ":." -l ert --eval "(setq 
treesit-extra-load-path '(\"/Users/gerd/.emacs.d/tree-sitter\"))" -l 
lisp/emacs-lisp/package-tests --batch --eval '(ert-run-tests-batch-and-exit 
(quote (not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))))'
+
+# Von Helmut:
 target create emacs
-env EMACS_TEST_DIRECTORY=/Users/gerd/emacs/github/igc/test
-command alias go process launch --working-dir ../test
-settings set -- target.run-args --module-assertions --no-init-file 
--no-site-file --no-site-lisp -L ":." -l ert --eval "(setq 
treesit-extra-load-path '(\"/Users/gerd/.emacs.d/tree-sitter\"))" -l 
lisp/emacs-lisp/package-tests --batch --eval '(ert-run-tests-batch-and-exit 
(quote (not (or (tag :expensive-test) (tag :unstable) (tag :nativecomp)))))'
+command alias go process launch --tty --working-dir .
+settings set -- target.run-args -Q --eval '(progn (view-hello-file) 
(redisplay) (igc--collect) (forward-line))'
 
 # end.
diff --git a/src/igc.c b/src/igc.c
index 0e00d5dd35e..d6b4d8595e8 100644
--- a/src/igc.c
+++ b/src/igc.c
@@ -1723,6 +1723,9 @@ fix_vector (mps_ss_t ss, struct Lisp_Vector *v)
 #endif
        break;
 
+       /* NB: PVEC_FONT objects come in different varieties having different
+          sizes. The only part they have in common are the Lisp_Object 
members. */
+      case PVEC_FONT:
       case PVEC_NORMAL_VECTOR:
       case PVEC_SYMBOL_WITH_POS:
       case PVEC_PROCESS:
@@ -1737,7 +1740,6 @@ fix_vector (mps_ss_t ss, struct Lisp_Vector *v)
       case PVEC_SQLITE:
       case PVEC_COMPILED:
       case PVEC_RECORD:
-      case PVEC_FONT:
       case PVEC_OTHER:
 #ifdef IN_MY_FORK
       case PVEC_PACKAGE: