[Emacs-diffs] trunk r113295: * admin/admin.el (make-manuals): Avoid hard-coding list of misc manuals.

[Glenn Morris]

------------------------------------------------------------
revno: 113295
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-07-05 19:32:13 -0700
message:
  * admin/admin.el (make-manuals): Avoid hard-coding list of misc manuals.
  (manual-misc-manuals): New function.
modified:
  admin/ChangeLog                changelog-20091113204419-o5vbwnq5f7feedwu-2226
  admin/admin.el                 admin.el-20091113204419-o5vbwnq5f7feedwu-2254

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2013-07-05 16:10:47 +0000
+++ b/admin/ChangeLog   2013-07-06 02:32:13 +0000
@@ -1,3 +1,8 @@
+2013-07-06  Glenn Morris  <address@hidden>
+
+       * admin.el (manual-misc-manuals): New function.
+       (make-manuals): Avoid hard-coding list of misc manuals.
+
 2013-07-05  Glenn Morris  <address@hidden>
 
        * admin.el (make-manuals): Use a standard location for lispintro.

=== modified file 'admin/admin.el'
--- a/admin/admin.el    2013-07-05 16:10:47 +0000
+++ b/admin/admin.el    2013-07-06 02:32:13 +0000
@@ -193,6 +193,22 @@
 
 ;;; Various bits of magic for generating the web manuals
 
+(defun manual-misc-manuals (root)
+  "Return doc/misc manuals as list of strings."
+  ;; Like `make -C doc/misc echo-info', but works if unconfigured.
+  (with-temp-buffer
+    (insert-file-contents (expand-file-name "doc/misc/Makefile.in" root))
+    (search-forward "INFO_TARGETS = ")
+    (let ((start (point))
+         res)
+      (end-of-line)
+      (while (and (looking-back "\\\\")
+                 (zerop (forward-line 1)))
+       (end-of-line))
+      (split-string (replace-regexp-in-string
+                    "\\(\\\\\\|\\.info\\)" ""
+                    (buffer-substring start (point)))))))
+
 (defun make-manuals (root)
   "Generate the web manuals for the Emacs webpage."
   (interactive "DEmacs root directory: ")
@@ -229,18 +245,8 @@
       (manual-pdf texi (expand-file-name "eintr.pdf" pdf-dir))
       (manual-ps texi (expand-file-name "eintr.ps" ps-dir)))
     ;; Misc manuals
-    (let ((manuals '("ada-mode" "auth" "autotype" "bovine" "calc" "cc-mode"
-                    "cl" "dbus" "dired-x" "ebrowse" "ede" "ediff"
-                    "edt" "eieio" "emacs-gnutls" "emacs-mime" "epa" "erc" "ert"
-                    "eshell" "eudc" "faq" "flymake" "forms"
-                    "gnus" "htmlfontify" "idlwave" "info"
-                    "mairix-el" "message" "mh-e" "newsticker"
-                    "nxml-mode" "org" "pcl-cvs" "pgg" "rcirc"
-                    "reftex" "remember" "sasl" "sc" "semantic"
-                    "ses" "sieve" "smtpmail" "speedbar" "srecode" "tramp"
-                    "url" "vip" "viper" "widget" "wisent" "woman")))
-      (dolist (manual manuals)
-       (manual-misc-html manual root html-node-dir html-mono-dir)))
+    (dolist (manual (manual-misc-manuals root))
+      (manual-misc-html manual root html-node-dir html-mono-dir))
     (message "Manuals created in %s" dest)))
 
 (defconst manual-doctype-string