diff src/bytecode.c @ 223:2c611d1463a6 r20-4b10

Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents e45d5e7c476e
children 084402c475ba
line wrap: on
line diff
--- a/src/bytecode.c	Mon Aug 13 10:10:03 2007 +0200
+++ b/src/bytecode.c	Mon Aug 13 10:10:54 2007 +0200
@@ -870,7 +870,7 @@
 	  break;
 
 	case Bgoto_char:
-	  TOP = Fgoto_char (TOP, Fcurrent_buffer ());
+	  TOP = Fgoto_char (TOP, Qnil);
 	  break;
 
 	case Binsert:
@@ -894,16 +894,16 @@
 	  break;
 
 	case Bchar_after:
-	  TOP = Fchar_after (TOP, Fcurrent_buffer ());
+	  TOP = Fchar_after (TOP, Qnil);
 	  break;
 
 	case Bfollowing_char:
-	  v1 = Ffollowing_char (Fcurrent_buffer ());
+	  v1 = Ffollowing_char (Qnil);
 	  PUSH (v1);
 	  break;
 
 	case Bpreceding_char:
-	  v1 = Fpreceding_char (Fcurrent_buffer ());
+	  v1 = Fpreceding_char (Qnil);
 	  PUSH (v1);
 	  break;
 
@@ -913,23 +913,23 @@
 	  break;
 
 	case Bindent_to:
-	  TOP = Findent_to (TOP, Qnil, Fcurrent_buffer ());
+	  TOP = Findent_to (TOP, Qnil, Qnil);
 	  break;
 
 	case Beolp:
-	  PUSH (Feolp (Fcurrent_buffer ()));
+	  PUSH (Feolp (Qnil));
 	  break;
 
 	case Beobp:
-	  PUSH (Feobp (Fcurrent_buffer ()));
+	  PUSH (Feobp (Qnil));
 	  break;
 
 	case Bbolp:
-	  PUSH (Fbolp (Fcurrent_buffer ()));
+	  PUSH (Fbolp (Qnil));
 	  break;
 
 	case Bbobp:
-	  PUSH (Fbobp (Fcurrent_buffer ()));
+	  PUSH (Fbobp (Qnil));
 	  break;
 
 	case Bcurrent_buffer:
@@ -950,25 +950,25 @@
 	  break;
 
 	case Bforward_char:
-	  TOP = Fforward_char (TOP, Fcurrent_buffer ());
+	  TOP = Fforward_char (TOP, Qnil);
 	  break;
 
 	case Bforward_word:
-	  TOP = Fforward_word (TOP, Fcurrent_buffer ());
+	  TOP = Fforward_word (TOP, Qnil);
 	  break;
 
 	case Bskip_chars_forward:
 	  v1 = POP;
-	  TOP = Fskip_chars_forward (TOP, v1, Fcurrent_buffer ());
+	  TOP = Fskip_chars_forward (TOP, v1, Qnil);
 	  break;
 
 	case Bskip_chars_backward:
 	  v1 = POP;
-	  TOP = Fskip_chars_backward (TOP, v1, Fcurrent_buffer ());
+	  TOP = Fskip_chars_backward (TOP, v1, Qnil);
 	  break;
 
 	case Bforward_line:
-	  TOP = Fforward_line (TOP, Fcurrent_buffer ());
+	  TOP = Fforward_line (TOP, Qnil);
 	  break;
 
 	case Bchar_syntax:
@@ -986,25 +986,25 @@
 
 	case Bbuffer_substring:
 	  v1 = POP;
-	  TOP = Fbuffer_substring (TOP, v1, Fcurrent_buffer ());
+	  TOP = Fbuffer_substring (TOP, v1, Qnil);
 	  break;
 
 	case Bdelete_region:
 	  v1 = POP;
-	  TOP = Fdelete_region (TOP, v1, Fcurrent_buffer ());
+	  TOP = Fdelete_region (TOP, v1, Qnil);
 	  break;
 
 	case Bnarrow_to_region:
 	  v1 = POP;
-	  TOP = Fnarrow_to_region (TOP, v1, Fcurrent_buffer ());
+	  TOP = Fnarrow_to_region (TOP, v1, Qnil);
 	  break;
 
 	case Bwiden:
-	  PUSH (Fwiden (Fcurrent_buffer ()));
+	  PUSH (Fwiden (Qnil));
 	  break;
 
 	case Bend_of_line:
-	  TOP = Fend_of_line (TOP, Fcurrent_buffer ());
+	  TOP = Fend_of_line (TOP, Qnil);
 	  break;
 
 	case Bset_marker:
@@ -1022,11 +1022,11 @@
 	  break;
 
 	case Bupcase:
-	  TOP = Fupcase (TOP, Fcurrent_buffer ());
+	  TOP = Fupcase (TOP, Qnil);
 	  break;
 
 	case Bdowncase:
-	  TOP = Fdowncase (TOP, Fcurrent_buffer ());
+	  TOP = Fdowncase (TOP, Qnil);
 	break;
 
 	case Bstringeqlsign: