projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(MAKE_CHAR): Allow nested decoding-table.
[chise/xemacs-chise.git]
/
src
/
doc.c
diff --git
a/src/doc.c
b/src/doc.c
index
bfa9b12
..
8174a02
100644
(file)
--- a/
src/doc.c
+++ b/
src/doc.c
@@
-284,10
+284,10
@@
string is passed through `substitute-command-keys'.
else if (COMPILED_FUNCTIONP (fun))
{
Lisp_Object tem;
else if (COMPILED_FUNCTIONP (fun))
{
Lisp_Object tem;
- struct Lisp_Compiled_Function *b = XCOMPILED_FUNCTION (fun);
- if (! (b->flags.documentationp))
+ struct Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun);
+ if (! (f->flags.documentationp))
return Qnil;
return Qnil;
- tem = compiled_function_documentation (b);
+ tem = compiled_function_documentation (f);
if (STRINGP (tem))
doc = tem;
else if (NATNUMP (tem) || CONSP (tem))
if (STRINGP (tem))
doc = tem;
else if (NATNUMP (tem) || CONSP (tem))
@@
-338,7
+338,7
@@
string is passed through `substitute-command-keys'.
#ifdef I18N3
Lisp_Object domain = Qnil;
if (COMPILED_FUNCTIONP (fun))
#ifdef I18N3
Lisp_Object domain = Qnil;
if (COMPILED_FUNCTIONP (fun))
- domain = Fcompiled_function_domain (fun);
+ domain = compiled_function_domain (XCOMPILED_FUNCTION (fun));
if (NILP (domain))
doc = Fgettext (doc);
else
if (NILP (domain))
doc = Fgettext (doc);
else
@@
-550,7
+550,7
@@
when doc strings are referred to in the dumped Emacs.
{
weird_doc (sym, GETTEXT ("!CONSP(tem)"),
GETTEXT ("function"), pos);
{
weird_doc (sym, GETTEXT ("!CONSP(tem)"),
GETTEXT ("function"), pos);
- goto cont;
+ goto cont;
}
else
{
}
else
{
@@
-573,7
+573,7
@@
when doc strings are referred to in the dumped Emacs.
{
/* Compiled-Function objects sometimes have
slots for it. */
{
/* Compiled-Function objects sometimes have
slots for it. */
- struct Lisp_Compiled_Function *b =
+ struct Lisp_Compiled_Function *f =
XCOMPILED_FUNCTION (fun);
/* This compiled-function object must have a
XCOMPILED_FUNCTION (fun);
/* This compiled-function object must have a
@@
-583,7
+583,7
@@
when doc strings are referred to in the dumped Emacs.
have any doc, which is a legal if slightly
bogus situation, so don't blow up. */
have any doc, which is a legal if slightly
bogus situation, so don't blow up. */
- if (! (b->flags.documentationp))
+ if (! (f->flags.documentationp))
{
weird_doc (sym, GETTEXT ("no doc slot"),
GETTEXT ("bytecode"), pos);
{
weird_doc (sym, GETTEXT ("no doc slot"),
GETTEXT ("bytecode"), pos);
@@
-592,7
+592,7
@@
when doc strings are referred to in the dumped Emacs.
else
{
Lisp_Object old =
else
{
Lisp_Object old =
- compiled_function_documentation (b);
+ compiled_function_documentation (f);
if (!ZEROP (old))
{
weird_doc (sym, GETTEXT ("duplicate"),
if (!ZEROP (old))
{
weird_doc (sym, GETTEXT ("duplicate"),
@@
-603,7
+603,7
@@
when doc strings are referred to in the dumped Emacs.
if (!INTP (old))
goto weird;
}
if (!INTP (old))
goto weird;
}
- set_compiled_function_documentation (b, offset);
+ set_compiled_function_documentation (f, offset);
}
}
else
}
}
else
@@
-684,12
+684,12
@@
verify_doc_mapper (Lisp_Object sym, void *arg)
}
else if (COMPILED_FUNCTIONP (fun))
{
}
else if (COMPILED_FUNCTIONP (fun))
{
- struct Lisp_Compiled_Function *b = XCOMPILED_FUNCTION (fun);
- if (! (b->flags.documentationp))
+ struct Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun);
+ if (! (f->flags.documentationp))
doc = -1;
else
{
doc = -1;
else
{
- Lisp_Object tem = compiled_function_documentation (b);
+ Lisp_Object tem = compiled_function_documentation (f);
if (INTP (tem))
doc = XINT (tem);
}
if (INTP (tem))
doc = XINT (tem);
}