diff options
| author | Bill Wohler | 2006-01-14 02:10:11 +0000 |
|---|---|---|
| committer | Bill Wohler | 2006-01-14 02:10:11 +0000 |
| commit | 4501e6fb6d77b4c56d2014c83d8ad35e5e8961ed (patch) | |
| tree | 4b1c3a9c478eacbf8324e06342565c61722fb799 | |
| parent | 11db987fa8210ea303924adf4c362586fa6163d2 (diff) | |
| download | emacs-4501e6fb6d77b4c56d2014c83d8ad35e5e8961ed.tar.gz emacs-4501e6fb6d77b4c56d2014c83d8ad35e5e8961ed.zip | |
(require): Added Satyaki's comment regarding what needs to happen to
remove this defadvice which caused a little discussion on emacs-devel
today (see Subject: mh-e/mh-acros.el advices `require' incorrectly).
| -rw-r--r-- | lisp/mh-e/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mh-e/mh-acros.el | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index d7293a94546..74b38dac688 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog | |||
| @@ -1,5 +1,10 @@ | |||
| 1 | 2006-01-13 Bill Wohler <wohler@newt.com> | 1 | 2006-01-13 Bill Wohler <wohler@newt.com> |
| 2 | 2 | ||
| 3 | * mh-acros.el (require): Added Satyaki's comment regarding what | ||
| 4 | needs to happen to remove this defadvice which caused a little | ||
| 5 | discussion on emacs-devel today (see Subject: mh-e/mh-acros.el | ||
| 6 | advices `require' incorrectly). | ||
| 7 | |||
| 3 | * mh-search.el (mh-index-next-result-function): Add format to | 8 | * mh-search.el (mh-index-next-result-function): Add format to |
| 4 | docstring. | 9 | docstring. |
| 5 | (mh-mairix-next-result): Use nil instead of () which doesn't stand | 10 | (mh-mairix-next-result): Use nil instead of () which doesn't stand |
diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el index 7cd4ee9edb0..e37705ea54f 100644 --- a/lisp/mh-e/mh-acros.el +++ b/lisp/mh-e/mh-acros.el | |||
| @@ -150,6 +150,9 @@ more details." | |||
| 150 | (list 'nth ,x z))) | 150 | (list 'nth ,x z))) |
| 151 | (quote ,struct-name)))) | 151 | (quote ,struct-name)))) |
| 152 | 152 | ||
| 153 | ;; A better solution would be to use Stefan's change in bytecomp.el. | ||
| 154 | ;; If it were checked in, we can drop the advice to require and it | ||
| 155 | ;; will make things nicer elsewhere too. | ||
| 153 | (defadvice require (around mh-prefer-el activate) | 156 | (defadvice require (around mh-prefer-el activate) |
| 154 | "Modify `require' to load uncompiled MH-E files." | 157 | "Modify `require' to load uncompiled MH-E files." |
| 155 | (or (featurep (ad-get-arg 0)) | 158 | (or (featurep (ad-get-arg 0)) |