mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

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

Browse Source 
systems without test-completion.
* mh-alias.el (mh-alias-letter-expand-alias): Use it
This commit is contained in:
Bill Wohler 2011-07-03 15:27:19 -07:00
parent 0a9f5305f1
commit 9c1c3a42e3
3 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/mh-e/ChangeLog
View File

@ -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.

3
lisp/mh-e/mh-alias.el
View File

@ -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)))))))))
;;; Alias File Updating

6
lisp/mh-e/mh-compat.el
View File

@ -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