(Fbyte_code) <Bcurrent_column>: Add

BEFORE_POTENTIAL_GC and AFTER_POTENTIAL_GC.

diff --git a/src/bytecode.c b/src/bytecode.c
index 4fc722e..7cd38a0 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1341,7 +1341,9 @@ If the third argument is incorrect, Emacs may crash.")
        case Bcurrent_column:
          {
            Lisp_Object v1;
+           BEFORE_POTENTIAL_GC ();
            XSETFASTINT (v1, current_column ());
+           AFTER_POTENTIAL_GC ();
            PUSH (v1);
            break;
          }