From 96111f48133b927c0ab43e8931370cc53e56c29c Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 29 Jan 2001 20:44:42 +0000
Subject: [PATCH] (Fbyte_code) <Bcurrent_column>: Add BEFORE_POTENTIAL_GC and
 AFTER_POTENTIAL_GC.

---
 src/bytecode.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/bytecode.c b/src/bytecode.c
index 4fc722e61cc..7cd38a0fe2e 100644
--- 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;
 	  }
-- 
2.39.2