; Fix byte-compilation warnings in admin/*.el

diff --git a/admin/admin.el b/admin/admin.el
index 6a67f172e2c01f5864c0809b2537eb2797ec3ef6..12c9c10b1a5445f8d74c4bbc2812a23f86043deb 100644 (file)
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -843,8 +843,11 @@ $Date: %s $
       (package-install pkg)
       (require pkg nil t))))
 
+(declare-function org-html-export-as-html "ox-html.el")
 (defvar org-html-postamble)
 (defvar org-html-mathjax-template)
+(defvar htmlize-output-type)
+
 (defun make-news-html-file (root version)
   "Convert the NEWS file into an HTML file."
   (interactive (let ((root

diff --git a/admin/find-gc.el b/admin/find-gc.el
index 1c3c419c563272ce50a57860b7ecc5b074e5acde..6b0e2a3d8033fa52ffd7c1556bfb80734159fd53 100644 (file)
--- a/admin/find-gc.el
+++ b/admin/find-gc.el
@@ -100,7 +100,7 @@ Also store it in `find-gc-unsafe-list'."
 
 
 
-(defun trace-call-tree (&optional ignored)
+(defun trace-call-tree (&optional _ignored)
   (message "Setting up directories...")
   (setq find-gc-subrs-called nil)
   (let ((case-fold-search nil)

diff --git a/admin/gitmerge.el b/admin/gitmerge.el
index ddd3e1844243ad839bd9903903ba2765dda21e8c..1ff8137e15424c35828b6c01f8538329f844f9cb 100644 (file)
--- a/admin/gitmerge.el
+++ b/admin/gitmerge.el
@@ -293,7 +293,7 @@ should not be skipped."
   "Try to resolve conflicts in FILE with smerge.
 Returns non-nil if conflicts remain."
   (unless (file-exists-p file) (error "Gitmerge-resolve: Can't find %s" file))
-  (with-demoted-errors
+  (with-demoted-errors "Error: %S"
     (let ((exists (find-buffer-visiting file)))
       (with-current-buffer (let ((enable-local-variables :safe)
                                  (enable-local-eval nil))