diff options
| author | Bill Wohler <wohler@newt.com> | 2011-07-03 15:27:19 -0700 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2011-07-03 15:27:19 -0700 |
| commit | 9c1c3a42e359243bfa182fe582cbe838a74b90d9 (patch) | |
| tree | 4560702097060e764760b74b04520f9b8770ab53 /lisp/mh-e/mh-compat.el | |
| parent | 0a9f5305f194209798485909eb021d9b94ecf1cc (diff) | |
| download | emacs-9c1c3a42e359243bfa182fe582cbe838a74b90d9.tar.gz | |
* mh-compat.el (mh-test-completion): Add compatibility function for
systems without test-completion.
* mh-alias.el (mh-alias-letter-expand-alias): Use it
Diffstat (limited to 'lisp/mh-e/mh-compat.el')
| -rw-r--r-- | lisp/mh-e/mh-compat.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el index 01a0f26b9e8..ff30c15fec4 100644 --- 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 |