Mercurial > hg > xemacs-beta

comparison src/doc.c @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 85ec50267440
children e121b013d1f0
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
169 REGISTER int fd; 169 REGISTER int fd;
170 REGISTER char *name_nonreloc = 0; 170 REGISTER char *name_nonreloc = 0;
171 int minsize; 171 int minsize;
172 EMACS_INT position; 172 EMACS_INT position;
173 Lisp_Object file, tem; 173 Lisp_Object file, tem;
174 Lisp_Object name_reloc; 174 Lisp_Object name_reloc = Qnil;
175 175
176 if (INTP (filepos)) 176 if (INTP (filepos))
177 { 177 {
178 file = Vdoc_file_name; 178 file = Vdoc_file_name;
179 position = XINT (filepos); 179 position = XINT (filepos);
698 if (!NILP (Fcdr (closure))) 698 if (!NILP (Fcdr (closure)))
699 message ("\n" 699 message ("\n"
700 "This is usually because some files were preloaded by loaddefs.el or\n" 700 "This is usually because some files were preloaded by loaddefs.el or\n"
701 "site-load.el, but were not passed to make-docfile by Makefile.\n"); 701 "site-load.el, but were not passed to make-docfile by Makefile.\n");
702 UNGCPRO; 702 UNGCPRO;
703 return (NILP (Fcdr (closure)) ? Qt : Qnil); 703 return NILP (Fcdr (closure)) ? Qt : Qnil;
704 } 704 }
705 705
706 706
707 DEFUN ("substitute-command-keys", Fsubstitute_command_keys, 1, 1, 0, /* 707 DEFUN ("substitute-command-keys", Fsubstitute_command_keys, 1, 1, 0, /*
708 Substitute key descriptions for command names in STRING. 708 Substitute key descriptions for command names in STRING.
934 tem = make_string (buf, bufp - buf); 934 tem = make_string (buf, bufp - buf);
935 else 935 else
936 tem = str; 936 tem = str;
937 xfree (buf); 937 xfree (buf);
938 UNGCPRO; 938 UNGCPRO;
939 return (tem); 939 return tem;
940 } 940 }
941 941
942 942
943 /************************************************************************/ 943 /************************************************************************/
944 /* initialization */ 944 /* initialization */