(Fbyte_code) <Bcurrent_column>: Add

BEFORE_POTENTIAL_GC and AFTER_POTENTIAL_GC.

diff --git a/src/bytecode.c b/src/bytecode.c
index 4fc722e61ccb74df0f0aa6f61311044416fd2fa1..7cd38a0fe2e64798a61b28c68c776c94d27d2f3e 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;
          }