From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Mar 1995 00:50:20 +0000 (+0000)
Subject: (Fash, Flsh): Change arg names.
X-Git-Tag: emacs-19.34~4907
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d9652eb1520a3ad6d83fd22ef43ff4b72703265;p=emacs.git

(Fash, Flsh): Change arg names.
---

diff --git a/src/data.c b/src/data.c
index c5a546d53fe..07ffcb3aa6b 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2018,18 +2018,18 @@ DEFUN ("ash", Fash, Sash, 2, 2, 0,
   "Return VALUE with its bits shifted left by COUNT.\n\
 If COUNT is negative, shifting is actually to the right.\n\
 In this case, the sign bit is duplicated.")
-  (num1, num2)
-     register Lisp_Object num1, num2;
+  (value, num2)
+     register Lisp_Object value, num2;
 {
   register Lisp_Object val;
 
-  CHECK_NUMBER (num1, 0);
-  CHECK_NUMBER (num2, 1);
+  CHECK_NUMBER (value, 0);
+  CHECK_NUMBER (count, 1);
 
-  if (XINT (num2) > 0)
-    XSETINT (val, XINT (num1) << XFASTINT (num2));
+  if (XINT (count) > 0)
+    XSETINT (val, XINT (value) << XFASTINT (count));
   else
-    XSETINT (val, XINT (num1) >> -XINT (num2));
+    XSETINT (val, XINT (value) >> -XINT (count));
   return val;
 }
 
@@ -2037,18 +2037,18 @@ DEFUN ("lsh", Flsh, Slsh, 2, 2, 0,
   "Return VALUE with its bits shifted left by COUNT.\n\
 If COUNT is negative, shifting is actually to the right.\n\
 In this case,  zeros are shifted in on the left.")
-  (num1, num2)
-     register Lisp_Object num1, num2;
+  (value, count)
+     register Lisp_Object value, count;
 {
   register Lisp_Object val;
 
-  CHECK_NUMBER (num1, 0);
-  CHECK_NUMBER (num2, 1);
+  CHECK_NUMBER (value, 0);
+  CHECK_NUMBER (count, 1);
 
-  if (XINT (num2) > 0)
-    XSETINT (val, (EMACS_UINT) XUINT (num1) << XFASTINT (num2));
+  if (XINT (count) > 0)
+    XSETINT (val, (EMACS_UINT) XUINT (value) << XFASTINT (count));
   else
-    XSETINT (val, (EMACS_UINT) XUINT (num1) >> -XINT (num2));
+    XSETINT (val, (EMACS_UINT) XUINT (value) >> -XINT (count));
   return val;
 }