Mercurial > emacs
comparison lisp/mh-e/mh-alias.el @ 66357:f5ade15d46f2
* mh-identity.el (mh-assoc-ignore-case): Merge with version in
mh-alias.el and move to mh-acros.el
* mh-alias.el (mh-assoc-ignore-case): Merge with version in
mh-identity.el and move to mh-acros.el
* mh-acros.el (mh-assoc-ignore-case): Merge of function from
mh-identity.el and mh-alias.el.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Sun, 23 Oct 2005 22:47:27 +0000 |
| parents | 4520ae2624f2 |
| children | 3a8785724cca |
comparison
equal
deleted
inserted
replaced
| 66356:131366a2e19b | 66357:f5ade15d46f2 |
|---|---|
| 70 listed in your `Aliasfile:' MH profile component are automatically included. | 70 listed in your `Aliasfile:' MH profile component are automatically included. |
| 71 You can update the alias list manually using \\[mh-alias-reload].") | 71 You can update the alias list manually using \\[mh-alias-reload].") |
| 72 | 72 |
| 73 | 73 |
| 74 ;;; Alias Loading | 74 ;;; Alias Loading |
| 75 | |
| 76 (defmacro mh-assoc-ignore-case (key alist) | |
| 77 "Search for string KEY in ALIST. | |
| 78 This is a wrapper around `assoc-string' or `assoc-ignore-case'. Avoid | |
| 79 `assoc-ignore-case' which is now an obsolete function." | |
| 80 (cond ((fboundp 'assoc-string) `(assoc-string ,key ,alist t)) | |
| 81 ((fboundp 'assoc-ignore-case) `(assoc-ignore-case ,key ,alist)) | |
| 82 (t (error "The macro mh-assoc-ignore-case not implemented properly")))) | |
| 83 | 75 |
| 84 (defun mh-alias-tstamp (arg) | 76 (defun mh-alias-tstamp (arg) |
| 85 "Check whether alias files have been modified. | 77 "Check whether alias files have been modified. |
| 86 Return t if any file listed in the Aliasfile MH profile component has been | 78 Return t if any file listed in the Aliasfile MH profile component has been |
| 87 modified since the timestamp. | 79 modified since the timestamp. |