(Fdocumentation, Fdocumentation_property, Fsubstitute_command_keys):

[gnu-emacs] / src / bytecode.c

diff --git a/src/bytecode.c b/src/bytecode.c
index ac2e3ab182466b3bedf2e6b97fb5ed57a6d9fc21..422855f4ed1b77ba31d1f11c2e61c159fb5e0b45 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -251,8 +251,9 @@ Lisp_Object Qbytecode;
 
 DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0,
   "Function used internally in byte-compiled code.\n\
-The first argument is a string of byte code; the second, a vector of constants;\n\
-the third, the maximum stack depth used in this function.\n\
+The first argument, BYTESTR, is a string of byte code;\n\
+the second, VECTOR, a vector of constants;\n\
+the third, MAXDEPTH, the maximum stack depth used in this function.\n\
 If the third argument is incorrect, Emacs may crash.")
   (bytestr, vector, maxdepth)
      Lisp_Object bytestr, vector, maxdepth;
@@ -759,7 +760,7 @@ If the third argument is incorrect, Emacs may crash.")
          CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0);
          CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0);
 #ifdef LISP_FLOAT_TYPE
-         if (FLOATP (num1) || FLOATP (num2))
+         if (FLOATP (v1) || FLOATP (v2))
            {
              double f1, f2;
 
@@ -769,7 +770,7 @@ If the third argument is incorrect, Emacs may crash.")
            }
          else
 #endif
-           TOP = (XINT (num1) == XINT (num2) ? Qt : Qnil);
+           TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil);
          break;
 
        case Bgtr: