[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] dynamic-modules fa450f8 07/22: doc.c: use DOC format sanit
From: |
Teodor Zlatanov |
Subject: |
[Emacs-diffs] dynamic-modules fa450f8 07/22: doc.c: use DOC format sanity checks instead of bytecompiled checks on module doc files. |
Date: |
Thu, 27 Nov 2014 02:01:51 +0000 |
branch: dynamic-modules
commit fa450f82b985092c9b434b319e535b1e1b16a145
Author: Aurélien Aptel <address@hidden>
Date: Sun Nov 23 20:57:51 2014 +0100
doc.c: use DOC format sanity checks instead of bytecompiled checks on
module doc files.
---
src/doc.c | 11 ++++++++++-
1 files changed, 10 insertions(+), 1 deletions(-)
diff --git a/src/doc.c b/src/doc.c
index f4aa0c5..bc74553 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -56,6 +56,15 @@ read_bytecode_char (bool unreadflag)
return *read_bytecode_pointer++;
}
+/* A module doc file must have a doc extension */
+static bool
+doc_is_from_module_p (const char* path)
+{
+ int len = strlen (path);
+ return len > 4 && (strcmp (path + len - 4, ".doc") == 0
+ || (strcmp (path + len - 4, ".DOC") == 0));
+}
+
/* Extract a doc string from a file. FILEPOS says where to get it.
If it is an integer, use that position in the standard DOC file.
If it is (FILE . INTEGER), use FILE as the file name
@@ -211,7 +220,7 @@ get_doc_string (Lisp_Object filepos, bool unibyte, bool
definition)
SAFE_FREE ();
/* Sanity checking. */
- if (CONSP (filepos))
+ if (CONSP (filepos) && !doc_is_from_module_p (name))
{
int test = 1;
/* A dynamic docstring should be either at the very beginning of a "#@
- [Emacs-diffs] branch dynamic-modules created (now 9313182), Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 14ea9e0 03/22: intern literal strings as regular string., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 3f762bd 02/22: add `load-module' function to emacs lisp., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 5c710fb 01/22: add libltdl configure option/dependency., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 2010646 04/22: add sample module `fmod'., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 1be03fd 08/22: doc.c: don't prefix doc path by ../etc/ for modules, Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules fa450f8 07/22: doc.c: use DOC format sanity checks instead of bytecompiled checks on module doc files.,
Teodor Zlatanov <=
- [Emacs-diffs] dynamic-modules d2271bc 06/22: alloc.c: protect doc field from GC., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules cc5fe95 09/22: move fmod module in modules/fmod/., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules c0eb5a6 05/22: change Subr doc field from char* to Lisp_Object., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules e374b97 11/22: opaque: add comments., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 1be7b68 10/22: new module: opaque, Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules db69d49 12/22: new module: elisp, Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 106c15b 14/22: curl: use url arg., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 334564f 15/22: fix docstring., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules ada5c5e 13/22: new module: curl. basic URL fetcher working., Teodor Zlatanov, 2014/11/26
- [Emacs-diffs] dynamic-modules 399d8ec 16/22: make `load' look for and handle dynamic modules., Teodor Zlatanov, 2014/11/26