[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/doc/maint docstring.el
From: |
Thien-Thi Nguyen |
Subject: |
guile/guile-core/doc/maint docstring.el |
Date: |
Mon, 12 Nov 2001 03:09:46 -0500 |
CVSROOT: /cvs
Module name: guile
Changes by: Thien-Thi Nguyen <address@hidden> 01/11/12 03:09:46
Modified files:
guile-core/doc/maint: docstring.el
Log message:
(guile-core-dir): New var.
(docstring-manual-directory, docstring-tracking-root,
docstring-snarfed-roots): Rework to construct using new var.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/doc/maint/docstring.el.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
Patches:
Index: guile/guile-core/doc/maint/docstring.el
diff -u guile/guile-core/doc/maint/docstring.el:1.2
guile/guile-core/doc/maint/docstring.el:1.3
--- guile/guile-core/doc/maint/docstring.el:1.2 Sun Nov 11 10:01:51 2001
+++ guile/guile-core/doc/maint/docstring.el Mon Nov 12 03:09:46 2001
@@ -57,17 +57,21 @@
;;; Code:
-(defvar docstring-manual-directory (expand-file-name
"~/Guile/cvs/guile-core/doc/ref")
+(defvar guile-core-dir (or (getenv "GUILE_MAINTAINER_GUILE_CORE_DIR")
+ "~/Guile/cvs/guile-core"))
+
+(defvar docstring-manual-directory (expand-file-name "doc/ref" guile-core-dir)
"*The directory containing the Texinfo source for the Guile reference
manual.")
-(defvar docstring-tracking-root (expand-file-name
"~/Guile/cvs/guile-core/doc/maint")
+(defvar docstring-tracking-root (expand-file-name "doc/maint" guile-core-dir)
"*Root directory for docstring tracking files. The tracking file
for module (a b c) is expected to be in the file
<docstring-tracking-root>/a/b/c.texi.")
-(defvar docstring-snarfed-roots (list (expand-file-name
"~/Guile/cvs/guile-core/libguile")
- (expand-file-name
"~/Guile/cvs/guile-core/ice-9")
- (expand-file-name
"~/Guile/cvs/guile-core/oop"))
+(defvar docstring-snarfed-roots (mapcar
+ #'(lambda (frag)
+ (expand-file-name frag guile-core-dir))
+ '("libguile" "ice-9" "oop"))
"*List of possible root directories for snarfed docstring files.
For each entry in this list, the snarfed docstring file for module (a
b c) is looked for in the file <entry>/a/b/c.texi.")
@@ -255,7 +259,7 @@
(setq action nil
issue (if manual-location
'consider-removal
- nil)))
+ nil)))
((null manual-location)
(setq action 'add-to-manual issue nil))
@@ -493,7 +497,7 @@
(docstring-narrow-to-location manual-location)
(add-hook 'ediff-quit-hook 'docstring-widen-ediff-buffers)
-
+
(ediff-buffers3 (nth 0 docstring-ediff-buffers)
(nth 1 docstring-ediff-buffers)
(nth 2 docstring-ediff-buffers)))))
@@ -532,3 +536,5 @@
;(find-snarfed-docstring '(guile) "primitive sloppy-assq")
(provide 'docstring)
+
+;;; docstring.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/doc/maint docstring.el,
Thien-Thi Nguyen <=