mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

(Fsnarf_documentation): Simplify.

Browse Source
This commit is contained in:
Stefan Monnier 2007-10-16 03:28:43 +00:00
parent bf825c621d
commit 11fb4bdbbd
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ChangeLog
View File

@ -1,3 +1,7 @@
2007-10-16 Stefan Monnier <monnier@iro.umontreal.ca>
* doc.c (Fsnarf_documentation): Simplify.
2007-10-14 Juanma Barranquero <lekktu@gmail.com>
* w32term.c (w32_font_is_double_byte, my_create_scrollbar): Make static.

10
src/doc.c
View File

@ -691,15 +691,17 @@ the same file name is found in the `doc-directory'. */)
if (fromfile[len-1] == 'c')
fromfile[len-1] = 'o';
if (EQ (Fmember (build_string (fromfile), Vbuild_files), Qnil))
skip_file = 1;
else
skip_file = 0;
skip_file = NILP (Fmember (build_string (fromfile),
Vbuild_files));
}
sym = oblookup (Vobarray, p + 2,
multibyte_chars_in_text (p + 2, end - p - 2),
end - p - 2);
/* Check skip_file so that when a function is defined several
times in different files (typically, once in xterm, once in
w32term, ...), we only pay attention to the one that
matters. */
if (! skip_file && SYMBOLP (sym))
{
/* Attach a docstring to a variable? */