bug#13237: 24.3.50; cedet-called-interactively-p hangs on emacs 24.3.50.1

bug#13237: 24.3.50; cedet-called-interactively-p hangs on emacs 24.3.50.1

[Lluís]

System hangs when latest development CEDET invokes
`cedet-called-interactively-p'.

In this case it is defined as an alias to `called-interactively-p' [1].

Here's the backtrace when started as "emacs -Q":

#v+
Debugger entered--Lisp error: (quit)
  #[nil "\b.\304\305.\306\n!A@\307=\204.
  cedet-called-interactively-p(interactive)
  cedet-gnu-global-version-check(nil)
  semanticdb-enable-gnu-global-databases(c-mode)
  (progn (toggle-debug-on-error t) (toggle-debug-on-quit t) (load (expand-file-name ".emacs.d/el-get/cedet/cedet-devel-load.el")) (semanticdb-enable-gnu-global-databases (quote c-mode)))
  eval((progn (toggle-debug-on-error t) (toggle-debug-on-quit t) (load (expand-file-name ".emacs.d/el-get/cedet/cedet-devel-load.el")) (semanticdb-enable-gnu-global-databases (quote c-mode))))
  command-line-1(("--eval" "(progn (toggle-debug-on-error t) (toggle-debug-on-quit t) (load (expand-file-name \".emacs.d/el-get/cedet/cedet-devel-load.el\")) (semanticdb-enable-gnu-global-databases 'c-mode))"))
  command-line()
  normal-top-level()
#v-

According to others same CEDET version works with Emacs 24.2.1.

[1] http://cedet.bzr.sourceforge.net/bzr/cedet/code/trunk/annotate/head%3A/lisp/cedet/cedet-compat.el#L181


Thanks,
  Lluis


In GNU Emacs 24.3.50.1 (x86_64-pc-linux-gnu, GTK+ Version 3.4.2)
 of 2012-12-17 on dex, modified by Debian
 (emacs-snapshot package, version 2:20121217-1)
Windowing system distributor `The X.Org Foundation', version 11.0.11204000
System Description:	Debian GNU/Linux testing (wheezy)

Configured using:
 `configure '--build' 'x86_64-linux-gnu' '--host' 'x86_64-linux-gnu'
 '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib'
 '--localstatedir=/var' '--infodir=/usr/share/info'
 '--mandir=/usr/share/man' '--with-pop=yes'
 '--enable-locallisppath=/etc/emacs-snapshot:/etc/emacs:/usr/local/share/emacs/24.3.50/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/24.3.50/site-lisp:/usr/share/emacs/site-lisp'
 '--without-compress-info' '--with-crt-dir=/usr/lib/x86_64-linux-gnu/'
 '--with-x=yes' '--with-x-toolkit=gtk3' '--with-imagemagick=yes'
 'build_alias=x86_64-linux-gnu' 'host_alias=x86_64-linux-gnu'
 'CFLAGS=-DDEBIAN -DSITELOAD_PURESIZE_EXTRA=5000 -g -O2' 'LDFLAGS=-g
 -Wl,--as-needed -znocombreloc' 'CPPFLAGS=-D_FORTIFY_SOURCE=2''

Important settings:
  value of $LANG: ca_ES.utf8
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Debugger

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
M-x r e p o r t - e <tab> <return>

Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Debug on Error enabled globally
Debug on Quit enabled globally
Loading /home/lluis/.emacs.d/el-get/cedet/cedet-devel-load.el (source)...
Loading /home/lluis/.emacs.d/el-get/cedet/cedet-remove-builtin.el (source)...done
Loading autoloads from CEDET development.
Loading /home/lluis/.emacs.d/el-get/cedet/cedet-devel-load.el (source)...done
Entering debugger...

Load-path shadows:
/home/lluis/.emacs.d/el-get/cedet/lisp/speedbar/loaddefs hides /home/lluis/.emacs.d/el-get/cedet/lisp/eieio/loaddefs
/home/lluis/.emacs.d/el-get/cedet/lisp/speedbar/loaddefs hides /home/lluis/.emacs.d/el-get/cedet/lisp/cedet/loaddefs
/home/lluis/.emacs.d/el-get/cedet/lisp/speedbar/loaddefs hides /usr/share/emacs/24.3.50/lisp/loaddefs
/home/lluis/.emacs.d/el-get/cedet/lisp/eieio/eieio-speedbar hides /usr/share/emacs/24.3.50/lisp/emacs-lisp/eieio-speedbar
/home/lluis/.emacs.d/el-get/cedet/lisp/eieio/eieio-custom hides /usr/share/emacs/24.3.50/lisp/emacs-lisp/eieio-custom
/home/lluis/.emacs.d/el-get/cedet/lisp/eieio/eieio-base hides /usr/share/emacs/24.3.50/lisp/emacs-lisp/eieio-base
/home/lluis/.emacs.d/el-get/cedet/lisp/eieio/chart hides /usr/share/emacs/24.3.50/lisp/emacs-lisp/chart
/home/lluis/.emacs.d/el-get/cedet/lisp/eieio/eieio-opt hides /usr/share/emacs/24.3.50/lisp/emacs-lisp/eieio-opt
/home/lluis/.emacs.d/el-get/cedet/lisp/eieio/eieio-datadebug hides /usr/share/emacs/24.3.50/lisp/emacs-lisp/eieio-datadebug
/home/lluis/.emacs.d/el-get/cedet/lisp/eieio/eieio hides /usr/share/emacs/24.3.50/lisp/emacs-lisp/eieio

Features:
(shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml
mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util
mail-prsvr mail-utils cedet-edebug debug semantic/db-global
semantic/symref/global semantic/symref semantic/db-find semantic/db-ref
cedet-global cedet-devel-load warnings nadvice eieio-opt help-mode
find-func srecode/map srecode semantic/canned-configs semantic/ia-sb
semantic/analyze semantic/sort semantic/scope semantic/analyze/fcn
semantic/db semantic/ctxt semantic/format semantic/tag-ls semantic/find
semantic/util-modes semantic/util semantic semantic/tag semantic/lex
semantic/fw mode-local advice help-fns cedet-compat inversion
ede/speedbar ede/files ede ede/base gv ede/auto ede/source eieio-base
eieio-speedbar speedbar sb-image ezimage dframe easymenu eieio-custom
wid-edit cedet eieio byte-opt bytecomp byte-compile cconv
cedet-remove-builtin cus-start cus-load time-date tooltip ediff-hook
vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image
regexp-opt fringe tabulated-list newcomment lisp-mode register page
menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock
syntax facemenu font-core frame cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process dbusbind inotify dynamic-setting
system-font-setting font-render-setting move-toolbar gtk x-toolkit x
multi-tty emacs)

-- 
 "And it's much the same thing with knowledge, for whenever you learn
 something new, the whole world becomes that much richer."
 -- The Princess of Pure Reason, as told by Norton Juster in The Phantom
 Tollbooth

bug#13237: 24.3.50; cedet-called-interactively-p hangs on emacs 24.3.50.1

[Glenn Morris]

Minimum example:

(defalias 'foo 'called-interactively-p)

(defun bar ()
  (foo))

(bar)  ; -> infloop

bug#13237: 24.3.50; cedet-called-interactively-p hangs on emacs 24.3.50.1

[Chong Yidong]

Glenn Morris <rgm@gnu.org> writes:

> (defalias 'foo 'called-interactively-p)
>
> (defun bar ()
>   (foo))
>
> (bar)  ; -> infloop

Looks like it's due to Stefan's 2012-11-20 change to trunk, which
reimplements called-interactively-p and friends in Lisp.  It doesn't
occur on the emacs-24 branch.

bug#13237: 24.3.50; cedet-called-interactively-p hangs on emacs 24.3.50.1

[Stefan Monnier]

> (defalias 'foo 'called-interactively-p)
> (defun bar () (foo))
> (bar)  ; -> infloop

Should be fixed now (you may need to "rm
lisp/emacs-lisp/{edebug,nadvice}.elc" to let the fix take effect).


        Stefan