Mercurial > hg > xemacs-beta

comparison src/doc.c @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 183866b06e0b
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
166 get_doc_string (Lisp_Object filepos) 166 get_doc_string (Lisp_Object filepos)
167 { 167 {
168 /* !!#### This function has not been Mule-ized */ 168 /* !!#### This function has not been Mule-ized */
169 REGISTER int fd; 169 REGISTER int fd;
170 REGISTER char *name_nonreloc = 0; 170 REGISTER char *name_nonreloc = 0;
171 int minsize;
172 EMACS_INT position; 171 EMACS_INT position;
173 Lisp_Object file, tem; 172 Lisp_Object file, tem;
174 Lisp_Object name_reloc = Qnil; 173 Lisp_Object name_reloc = Qnil;
175 174
176 if (INTP (filepos)) 175 if (INTP (filepos))
195 If it is relative, combine it with Vdoc_directory. */ 194 If it is relative, combine it with Vdoc_directory. */
196 195
197 tem = Ffile_name_absolute_p (file); 196 tem = Ffile_name_absolute_p (file);
198 if (NILP (tem)) 197 if (NILP (tem))
199 { 198 {
199 size_t minsize;
200 /* XEmacs: Move this check here. OK if called during loadup to 200 /* XEmacs: Move this check here. OK if called during loadup to
201 load byte code instructions. */ 201 load byte code instructions. */
202 if (!STRINGP (Vdoc_directory)) 202 if (!STRINGP (Vdoc_directory))
203 return Qnil; 203 return Qnil;
204 204