[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 321e1a6 3/4: Quieten mh-compat compilation
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 321e1a6 3/4: Quieten mh-compat compilation |
Date: |
Thu, 1 Mar 2018 13:16:27 -0500 (EST) |
branch: master
commit 321e1a61e12bfb24554e0795a57fe77b49706635
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
Quieten mh-compat compilation
* lisp/mh-e/mh-compat.el (mh-assoc-string)
(mh-replace-regexp-in-string): Silence compiler warnings.
---
lisp/mh-e/mh-compat.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index 2307812..ffeb693 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)