diff options
Diffstat (limited to 'admin/admin.el')
| -rw-r--r-- | admin/admin.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/admin/admin.el b/admin/admin.el index 9c0015fc413..875db2948e5 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. |