[Unicode-2] C-h f doesn't work

[Katsumi Yamaoka]

Hi,

Debugger entered--Lisp error: (invalid-function ad-get-advice-info)
  ad-get-advice-info(find-file)
  describe-function-1(find-file)
  describe-function(find-file)
  call-interactively(describe-function)

Because `describe-function-1' is compiled w/o loading advice and
funcalls the macro.  Here's a workaround:

*** help-fns.el~        Mon Oct 15 07:02:46 2007
--- help-fns.el Tue Oct 16 08:53:55 2007
***************
*** 253,255 ****
  (defun describe-function-1 (function)
!   (let* ((advised (and (featurep 'advice) (ad-get-advice-info function)))
         ;; If the function is advised, get the symbol that has the
--- 253,256 ----
  (defun describe-function-1 (function)
!   (let* ((advised (and (featurep 'advice)
!                      (eval '(ad-get-advice-info function))))
         ;; If the function is advised, get the symbol that has the