guile/guile-core/doc/maint docstring.el

[Thien-Thi Nguyen]

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