* mh-compat.el (mh-test-completion): Add compatibility function for

systems without test-completion.
* mh-alias.el (mh-alias-letter-expand-alias): Use it

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index baba9c80ab954f056fe8613da3516d24827e2b6e..8d1ec19415afafb7d5cc180e1bec2cf03f094a8f 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,9 @@
 2011-07-03  Bill Wohler  <wohler@newt.com>
 
+       * mh-compat.el (mh-test-completion): Add compatibility function
+       for systems without test-completion.
+       * mh-alias.el (mh-alias-letter-expand-alias): Use it
+
        * mh-utils.el:
        * mh-mime.el: Shush XEmacs compiler in mh-do-in-xemacs block.
 

diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el
index 2df6025bf0971b630ccbc21f801296f620d9485a..d1b3ccebf46415a1a8ee1bad5db45046ca58f4b9 100644 (file)
--- a/lisp/mh-e/mh-alias.el
+++ b/lisp/mh-e/mh-alias.el
@@ -316,8 +316,7 @@ Blind aliases or users from /etc/passwd are not expanded."
                         res)
                   res)))
              ((t) (all-completions string mh-alias-alist pred))
-             ((lambda) (if (fboundp 'test-completion)
-                      (test-completion string mh-alias-alist pred))))))))))
+             ((lambda) (mh-test-completion string mh-alias-alist pred)))))))))
 \f
 
 ;;; Alias File Updating

diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index 01a0f26b9e871fd84a9138098c3a79d7030690ab..ff30c15fec4213342bf122ffb3b10e7a41efeead 100644 (file)
--- a/lisp/mh-e/mh-compat.el
+++ b/lisp/mh-e/mh-compat.el
@@ -260,6 +260,12 @@ The arguments FIXEDCASE, SUBEXP, and START, used by
 `replace-in-string' are ignored."
   (replace-in-string string regexp rep literal))
 
+(defun-mh mh-test-completion
+  test-completion (string collection &optional predicate)
+  "XEmacs does not have `test-completion'.
+This function returns nil on that system."
+  nil)
+
 ;; Copy of constant from url-util.el in Emacs 22; needed by Emacs 21.
 (if (not (boundp 'url-unreserved-chars))
     (defconst mh-url-unreserved-chars