From: Glenn Morris <rgm@gnu.org>
Date: Thu, 1 Mar 2018 18:10:37 +0000 (-0500)
Subject: Quieten mh-compat compilation
X-Git-Tag: emacs-27.0.90~5584
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=321e1a61e12bfb24554e0795a57fe77b49706635;p=emacs.git

Quieten mh-compat compilation

* lisp/mh-e/mh-compat.el (mh-assoc-string)
(mh-replace-regexp-in-string): Silence compiler warnings.
---

diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index 23078127368..ffeb6937f72 100644
--- a/lisp/mh-e/mh-compat.el
+++ b/lisp/mh-e/mh-compat.el
@@ -65,7 +65,8 @@ Simulate NOERROR argument in XEmacs which lacks it."
 Case is ignored if CASE-FOLD is non-nil.
 This function is used by Emacs versions that lack `assoc-string',
 introduced in Emacs 22."
-  (if case-fold
+  ;; Test for fboundp is solely to silence compiler for Emacs >= 22.1.
+  (if (and case-fold (fboundp 'assoc-ignore-case))
       (assoc-ignore-case key list)
     (assoc key list)))
 
@@ -307,7 +308,8 @@ This function is used by XEmacs that lacks `replace-regexp-in-string'.
 The function `replace-in-string' is used instead.
 The arguments FIXEDCASE, SUBEXP, and START, used by
 `replace-in-string' are ignored."
-  (replace-in-string string regexp rep literal))
+  (if (featurep 'xemacs)                ; silence Emacs compiler
+      (replace-in-string string regexp rep literal)))
 
 (defun-mh mh-test-completion
   test-completion (string collection &optional predicate)