From: Kim F. Storm <storm@cua.dk>
Date: Tue, 18 Jul 2006 13:26:05 +0000 (+0000)
Subject: (Fforward_char, Fdelete_char): Use xsignal0.
X-Git-Tag: emacs-pretest-22.0.90~1377
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aaf769f15ad643ec47eb2540f8f970ac1065dd78;p=emacs.git

(Fforward_char, Fdelete_char): Use xsignal0.
---

diff --git a/src/cmds.c b/src/cmds.c
index 494ef14db99..b84b9d1d85e 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -77,12 +77,12 @@ On reaching end of buffer, stop and signal error.  */)
     if (new_point < BEGV)
       {
 	SET_PT (BEGV);
-	Fsignal (Qbeginning_of_buffer, Qnil);
+	xsignal0 (Qbeginning_of_buffer);
       }
     if (new_point > ZV)
       {
 	SET_PT (ZV);
-	Fsignal (Qend_of_buffer, Qnil);
+	xsignal0 (Qend_of_buffer);
       }
 
     SET_PT (new_point);
@@ -245,14 +245,14 @@ N was explicitly specified.  */)
       if (XINT (n) < 0)
 	{
 	  if (pos < BEGV)
-	    Fsignal (Qbeginning_of_buffer, Qnil);
+	    xsignal0 (Qbeginning_of_buffer);
 	  else
 	    del_range (pos, PT);
 	}
       else
 	{
 	  if (pos > ZV)
-	    Fsignal (Qend_of_buffer, Qnil);
+	    xsignal0 (Qend_of_buffer);
 	  else
 	    del_range (PT, pos);
 	}