Commit f0f787b8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fdocumentation): Use EMACS_INT.

parent 81b328e5
......@@ -125,10 +125,10 @@ string is passed through `substitute-command-keys'.")
{
case Lisp_Subr:
if (XSUBR (fun)->doc == 0) return Qnil;
if ((int) XSUBR (fun)->doc >= 0)
if ((EMACS_INT) XSUBR (fun)->doc >= 0)
doc = build_string (XSUBR (fun)->doc);
else
doc = get_doc_string (- (int) XSUBR (fun)->doc);
doc = get_doc_string (- (EMACS_INT) XSUBR (fun)->doc);
break;
case Lisp_Compiled:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment