From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 29 Jan 2001 20:44:42 +0000 (+0000)
Subject: (Fbyte_code) <Bcurrent_column>: Add
X-Git-Tag: emacs-pretest-21.0.97~26
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96111f48133b927c0ab43e8931370cc53e56c29c;p=emacs.git

(Fbyte_code) <Bcurrent_column>: Add
BEFORE_POTENTIAL_GC and AFTER_POTENTIAL_GC.
---

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;
 	  }