/[emacs]/emacs/src/doc.c
ViewVC logotype

Diff of /emacs/src/doc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.97 by rms, Sun May 19 16:10:08 2002 UTC revision 1.97.2.1 by miles, Wed Jun 12 01:49:26 2002 UTC
# Line 1  Line 1 
1  /* Record indices of function doc strings stored in a file.  /* Record indices of function doc strings stored in a file.
2     Copyright (C) 1985, 86,93,94,95,97,98,99, 2000 Free Software Foundation, Inc.     Copyright (C) 1985, 86,93,94,95,97,98,99, 2000, 2001, 2002 Free Software Foundation, Inc.
3    
4  This file is part of GNU Emacs.  This file is part of GNU Emacs.
5    
# Line 50  Lisp_Object Vdoc_file_name; Line 50  Lisp_Object Vdoc_file_name;
50    
51  Lisp_Object Qfunction_documentation;  Lisp_Object Qfunction_documentation;
52    
53  extern Lisp_Object Voverriding_local_map;  extern Lisp_Object Voverriding_local_map, Qclosure;
54    
55  /* For VMS versions with limited file name syntax,  /* For VMS versions with limited file name syntax,
56     convert the name to something VMS will allow. */     convert the name to something VMS will allow. */
# Line 430  string is passed through `substitute-com Line 430  string is passed through `substitute-com
430            else            else
431              return Qnil;              return Qnil;
432          }          }
433          else if (EQ (funcar, Qclosure))
434            return Fdocumentation (Fcdr (XCDR (fun)), raw);
435        else if (EQ (funcar, Qmacro))        else if (EQ (funcar, Qmacro))
436          return Fdocumentation (Fcdr (fun), raw);          return Fdocumentation (Fcdr (fun), raw);
437        else        else
# Line 548  store_function_docstring (fun, offset) Line 550  store_function_docstring (fun, offset)
550          }          }
551        else if (EQ (tem, Qmacro))        else if (EQ (tem, Qmacro))
552          store_function_docstring (XCDR (fun), offset);          store_function_docstring (XCDR (fun), offset);
553          else if (EQ (tem, Qclosure))
554            store_function_docstring (Fcdr (XCDR (fun)), offset);
555      }      }
556    
557    /* Bytecode objects sometimes have slots for it.  */    /* Bytecode objects sometimes have slots for it.  */

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.97.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26