aboutsummaryrefslogtreecommitdiffstats
path: root/admin/admin.el
diff options
context:
space:
mode:
Diffstat (limited to 'admin/admin.el')
-rw-r--r--admin/admin.el19
1 files changed, 10 insertions, 9 deletions
diff --git a/admin/admin.el b/admin/admin.el
index 9c0015fc413..f8ca8aec261 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -195,19 +195,21 @@ Root must be the root of an Emacs source tree."
195 195
196(defun manual-misc-manuals (root) 196(defun manual-misc-manuals (root)
197 "Return doc/misc manuals as list of strings." 197 "Return doc/misc manuals as list of strings."
198 ;; Like `make -C doc/misc echo-info', but works if unconfigured. 198 ;; Similar to `make -C doc/misc echo-info', but works if unconfigured,
199 ;; and for INFO_TARGETS rather than INFO_INSTALL.
199 (with-temp-buffer 200 (with-temp-buffer
200 (insert-file-contents (expand-file-name "doc/misc/Makefile.in" root)) 201 (insert-file-contents (expand-file-name "doc/misc/Makefile.in" root))
201 (search-forward "INFO_TARGETS = ") 202 ;; Should really use expanded value of INFO_TARGETS.
202 (let ((start (point)) 203 (search-forward "INFO_COMMON = ")
203 res) 204 (let ((start (point)))
204 (end-of-line) 205 (end-of-line)
205 (while (and (looking-back "\\\\") 206 (while (and (looking-back "\\\\")
206 (zerop (forward-line 1))) 207 (zerop (forward-line 1)))
207 (end-of-line)) 208 (end-of-line))
208 (split-string (replace-regexp-in-string 209 (append (split-string (replace-regexp-in-string
209 "\\(\\\\\\|\\.info\\)" "" 210 "\\(\\\\\\|\\.info\\)" ""
210 (buffer-substring start (point))))))) 211 (buffer-substring start (point))))
212 '("efaq-w32")))))
211 213
212(defun make-manuals (root &optional type) 214(defun make-manuals (root &optional type)
213 "Generate the web manuals for the Emacs webpage. 215 "Generate the web manuals for the Emacs webpage.
@@ -287,9 +289,8 @@ Optional argument TYPE is type of output (nil means all)."
287 289
288(defun manual-misc-html (name root html-node-dir html-mono-dir) 290(defun manual-misc-html (name root html-node-dir html-mono-dir)
289 ;; Hack to deal with the cases where .texi creates a different .info. 291 ;; Hack to deal with the cases where .texi creates a different .info.
290 ;; Blech. TODO Why not just rename the .texi files? 292 ;; Blech. TODO Why not just rename the .texi (or .info) files?
291 (let* ((texiname (cond ((equal name "ccmode") "cc-mode") 293 (let* ((texiname (cond ((equal name "ccmode") "cc-mode")
292 ((equal name "efaq") "faq")
293 (t name))) 294 (t name)))
294 (texi (expand-file-name (format "doc/misc/%s.texi" texiname) root))) 295 (texi (expand-file-name (format "doc/misc/%s.texi" texiname) root)))
295 (manual-html-node texi (expand-file-name name html-node-dir)) 296 (manual-html-node texi (expand-file-name name html-node-dir))