23.0.50; find-func: can no longer find adviced subrs

[T. V. Raman]

Here is some additional information to help track down this
problem:

the problem appears to stem from the fact that symbol-function on
an adviced subr now returns the compiled advice form, rather than
the #<subr subrname>
-- this causes find-function-noselect to fail 

the problem also shows up when you do describe-function on an
adviced subr -- the help buffer text wrongly identifies it as an
interactive function at the top of the help text.

Other parts of emacs still know it's a subr -- the bototm of the
help text says "this subr is adviced ..."


>>>>> "tvrReply-to: address@hidden" == T V Raman <address@hidden> writes:
    tvrReply-to: address@hidden> This used to work until
    tvrReply-to: address@hidden> 23.0.
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> But now, when you do
    tvrReply-to: address@hidden> find-func on a subr that is
    tvrReply-to: address@hidden> advised, it no longer finds
    tvrReply-to: address@hidden> the C source where the subr
    tvrReply-to: address@hidden> is defined.
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> I suspect this may be
    tvrReply-to: address@hidden> related to some of the
    tvrReply-to: address@hidden> changes that went into
    tvrReply-to: address@hidden> advice.el in the last few
    tvrReply-to: address@hidden> weeks.
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> In GNU Emacs 23.0.50.9
    tvrReply-to: address@hidden> (i686-pc-linux-gnu, GTK+
    tvrReply-to: address@hidden> Version 2.8.20) of
    tvrReply-to: address@hidden> 2007-09-07 on labrador
    tvrReply-to: address@hidden> configured using `configure
    tvrReply-to: address@hidden> '--prefix=/usr/local'
    tvrReply-to: address@hidden> '--with-gtk' '--with-gpm'
    tvrReply-to: address@hidden> '--with-rsvg' '--with-png'
    tvrReply-to: address@hidden> '--with-jpeg' '--with-gif''
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> Important settings: value of
    tvrReply-to: address@hidden> $LC_ALL: nil value of
    tvrReply-to: address@hidden> $LC_COLLATE: nil value of
    tvrReply-to: address@hidden> $LC_CTYPE: nil value of
    tvrReply-to: address@hidden> $LC_MESSAGES: nil value of
    tvrReply-to: address@hidden> $LC_MONETARY: nil value of
    tvrReply-to: address@hidden> $LC_NUMERIC: nil value of
    tvrReply-to: address@hidden> $LC_TIME: nil value of
    tvrReply-to: address@hidden> $LANG: en_US.UTF-8
    tvrReply-to: address@hidden> locale-coding-system: utf-8
    tvrReply-to: address@hidden> default-enable-multibyte-characters:
    tvrReply-to: address@hidden> nil
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> Major mode: VM Presentation
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> Minor modes in effect:
    tvrReply-to: address@hidden> erc-track-minor-mode: t
    tvrReply-to: address@hidden> jabber-activity-mode: t
    tvrReply-to: address@hidden> dynamic-completion-mode: t
    tvrReply-to: address@hidden> dired-omit-mode: t
    tvrReply-to: address@hidden> shell-dirtrack-mode: t
    tvrReply-to: address@hidden> savehist-mode: t
    tvrReply-to: address@hidden> display-time-mode: t
    tvrReply-to: address@hidden> desktop-save-mode: t
    tvrReply-to: address@hidden> auto-insert-mode: t
    tvrReply-to: address@hidden> file-name-shadow-mode: t
    tvrReply-to: address@hidden> global-font-lock-mode: t
    tvrReply-to: address@hidden> unify-8859-on-encoding-mode:
    tvrReply-to: address@hidden> t utf-translate-cjk-mode: t
    tvrReply-to: address@hidden> auto-compression-mode: t
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> Recent input: SPC d o SPC m
    tvrReply-to: address@hidden> e SPC n o SPC d o ESC DEL g
    tvrReply-to: address@hidden> o o d . RET RET T h a n k s
    tvrReply-to: address@hidden> , RET RET - - R a m a n RET
    tvrReply-to: address@hidden> T e l : SPC 4 0 8 SPC 3 6 3
    tvrReply-to: address@hidden> SPC 3 5 6 5 RET E m a i l :
    tvrReply-to: address@hidden> SPC r DEL t v r a m a n @ c
    tvrReply-to: address@hidden> o m c a s t . n e t C-x @ h
    tvrReply-to: address@hidden> s c d RET g r e p SPC c o m
    tvrReply-to: address@hidden> c a s t SPC . f e t c h m a
    tvrReply-to: address@hidden> i l r c RET C-p C-p ESC > c
    tvrReply-to: address@hidden> a t SPC . f e t c h m TAB r
    tvrReply-to: address@hidden> TAB RET C-p C-p C-p C-e e
    tvrReply-to: address@hidden> ESC b ESC b ESC b C-e w ESC
    tvrReply-to: address@hidden> > ESC [ [ C ESC m C-c C-c
    tvrReply-to: address@hidden> TAB TAB TAB ESC [ C RET C-x
    tvrReply-to: address@hidden> h C-e n C-e s e C-g C-g C-e
    tvrReply-to: address@hidden> m q q q q C-t g 4 RET C-t n
    tvrReply-to: address@hidden> C-t n C-x @ h s c d RET C-e
    tvrReply-to: address@hidden> t C-e x m ESC m SPC j ' C-h
    tvrReply-to: address@hidden> f n e x t SPC ESC DEL f o r
    tvrReply-to: address@hidden> e w TAB C-g C-g C-h ESC f f
    tvrReply-to: address@hidden> o r e ESC DEL f o r w TAB l
    tvrReply-to: address@hidden> i n TAB RET C-e m ESC [ [ D
    tvrReply-to: address@hidden> C-h f C-g C-g C-h ESC f d e
    tvrReply-to: address@hidden> l e t e SPC w i n d TAB RET
    tvrReply-to: address@hidden> ESC m ESC x r e p o r t - e
    tvrReply-to: address@hidden> m ESC TAB C-g C-g ESC x r e
    tvrReply-to: address@hidden> p o r t SPC e m TAB b TAB
    tvrReply-to: address@hidden> RET
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> Recent messages: Not on a
    tvrReply-to: address@hidden> block [2 times] Quit [2
    tvrReply-to: address@hidden> times] Loading
    tvrReply-to: address@hidden> find-func...done Emacspeak
    tvrReply-to: address@hidden> pronunciation dictionaries
    tvrReply-to: address@hidden> are now active in this
    tvrReply-to: address@hidden> buffer Loading vc-cvs...done
    tvrReply-to: address@hidden> Quit [2 times] Don't know
    tvrReply-to: address@hidden> where `delete-window' is
    tvrReply-to: address@hidden> defined signal: Don't know
    tvrReply-to: address@hidden> where `delete-window' is
    tvrReply-to: address@hidden> defined widget-tabable-at:
    tvrReply-to: address@hidden> Wrong type argument: consp,
    tvrReply-to: address@hidden> t Quit Quit
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> -- Best Regards, --raman
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden>       
    tvrReply-to: address@hidden> Email: address@hidden
    tvrReply-to: address@hidden> WWW:
    tvrReply-to: address@hidden> http://emacspeak.sf.net/raman/
    tvrReply-to: address@hidden> AIM: emacspeak GTalk:
    tvrReply-to: address@hidden> address@hidden PGP:
    tvrReply-to: address@hidden> http://emacspeak.sf.net/raman/raman-almaden.asc
    tvrReply-to: address@hidden> Google: tv+raman IRC:
    tvrReply-to: address@hidden> irc://irc.freenode.net/#emacs
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> 
    tvrReply-to: address@hidden> _______________________________________________
    tvrReply-to: address@hidden> Emacs-devel mailing list
    tvrReply-to: address@hidden> address@hidden
    tvrReply-to: address@hidden> 
http://lists.gnu.org/mailman/listinfo/emacs-devel

-- 
Best Regards,
--raman

      
Email:  address@hidden
WWW:    http://emacspeak.sf.net/raman/
AIM:    emacspeak       GTalk: address@hidden
PGP:    http://emacspeak.sf.net/raman/raman-almaden.asc
Google: tv+raman 
IRC:    irc://irc.freenode.net/#emacs