1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00

Tweak some build messages.

* lisp/Makefile.in ($(lisp)/loaddefs.el):
* lisp/cus-dep.el (custom-make-dependencies):
* lisp/finder.el (finder-compile-keywords): Say what we are doing.
* lisp/international/titdic-cnv.el (batch-titdic-convert):
Don't say how to compile.
This commit is contained in:
Glenn Morris 2015-06-05 16:10:18 -04:00
parent 34ad02767b
commit 1805ce763e
4 changed files with 4 additions and 6 deletions

View File

@ -175,7 +175,7 @@ $(lisp)/finder-inf.el:
# and make this depend on leim. # and make this depend on leim.
autoloads .PHONY: $(lisp)/loaddefs.el autoloads .PHONY: $(lisp)/loaddefs.el
$(lisp)/loaddefs.el: $(LOADDEFS) $(lisp)/loaddefs.el: $(LOADDEFS)
@echo Directories: ${SUBDIRS_ALMOST} @echo Directories for loaddefs: ${SUBDIRS_ALMOST}
$(AM_V_GEN)$(emacs) -l autoload \ $(AM_V_GEN)$(emacs) -l autoload \
--eval '(setq autoload-ensure-writable t)' \ --eval '(setq autoload-ensure-writable t)' \
--eval '(setq autoload-builtin-package-versions t)' \ --eval '(setq autoload-builtin-package-versions t)' \

View File

@ -60,7 +60,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
;; Use up command-line-args-left else Emacs can try to open ;; Use up command-line-args-left else Emacs can try to open
;; the args as directories after we are done. ;; the args as directories after we are done.
(while (setq subdir (pop command-line-args-left)) (while (setq subdir (pop command-line-args-left))
(message "Directory %s" subdir) (message "Scanning %s for custom" subdir)
(let ((files (directory-files subdir nil "\\`[^=.].*\\.el\\'")) (let ((files (directory-files subdir nil "\\`[^=.].*\\.el\\'"))
(default-directory (default-directory
(file-name-as-directory (expand-file-name subdir))) (file-name-as-directory (expand-file-name subdir)))

View File

@ -193,7 +193,7 @@ from; the default is `load-path'."
summary keywords package version entry desc) summary keywords package version entry desc)
(dolist (d (or dirs load-path)) (dolist (d (or dirs load-path))
(when (file-exists-p (directory-file-name d)) (when (file-exists-p (directory-file-name d))
(message "Directory %s" d) (message "Scanning %s for finder" d)
(setq package-override (setq package-override
(intern-soft (intern-soft
(cdr-safe (cdr-safe

View File

@ -562,9 +562,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"."
(message "Converting %s to quail-package..." file) (message "Converting %s to quail-package..." file)
(titdic-convert file targetdir)) (titdic-convert file targetdir))
(setq files (cdr files))) (setq files (cdr files)))
(setq command-line-args-left (cdr command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)))))
(message "Byte-compile the created files by:")
(message " %% emacs -batch -f batch-byte-compile XXX.el")))
(kill-emacs 0)) (kill-emacs 0))