diff options
Diffstat (limited to 'admin/admin.el')
| -rw-r--r-- | admin/admin.el | 19 |
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)) |