aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBill Wohler2006-01-14 02:10:11 +0000
committerBill Wohler2006-01-14 02:10:11 +0000
commit4501e6fb6d77b4c56d2014c83d8ad35e5e8961ed (patch)
tree4b1c3a9c478eacbf8324e06342565c61722fb799
parent11db987fa8210ea303924adf4c362586fa6163d2 (diff)
downloademacs-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/ChangeLog5
-rw-r--r--lisp/mh-e/mh-acros.el3
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 @@
12006-01-13 Bill Wohler <wohler@newt.com> 12006-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))