Re: cedet-called-interactively-p

The windows appearing are definitely related to the new defun.
 data-debug-show is called inside a (when (cedet-called-interactvely-p)
...) block.

Is the definition I used above correct?  I suspect not, as called from an
idle timer probably shouldn't count as interactive.

Below is the backtrace from the call.

Troy

  data-debug-show(...])
  semantic-calculate-scope(2942)
  semantic-analyze-current-context-default(2942)
  semantic-analyze-current-context(2942)
  byte-code("\300`!\207" [semantic-analyze-current-context] 2)
  semantic-idle-summary-current-symbol-info-context()
  semantic-idle-summary-current-symbol-info-default()
  semantic-idle-summary-current-symbol-info()
  semantic-idle-summary-idle-function()
  funcall(semantic-idle-summary-idle-function)
  byte-code("\306 \307p\307\306\310\311\312 \"\"\" \306\211 \306
;\205 \313
! ! \"\205X #?\205X $?\205X !\204?
;\203?\314
!\204L !\205X\313
\306\315#\205X %\316X\206X\317 %W)\203d \212 & '\203j\320
\202n\321\322\323\217 \306 (\211 )\203 )@ ( *\203\223\324 \204\215\325
\203\223\326 *\327\"\210r (q\210 &\f=\203\372
;\205\247\313
! ! \"\205\343 #?\205\343 $?\205\343 !\204\312
;\203\312\314
!\204\327 !\205\343\313
\306\315#\205\343 %\316X\206\343\317 %W)\203\376 '\203\362\320
\210\202\376\321\330\331\217\210\202\376p B ) )A\211 )\204y* ) +\306 ,\211
-\203c -@ ,\212 *\2032 \324 \204, \325 \2032 \326 *\332\"\210 .\203=
\333\334 ,\"\210 '\203I , \210\202N \321\335\336\217\210 .\203Y \333\337
,\"\210) -A\211 -\204 *\212 \306 (\211 /\203\343 /@ ( *\203\211 \324
\204\203 \325 \203\211 \326 *\340\"\210r (q\210
;\205\226 \313
! ! \"\205\322 #?\205\322 $?\205\322 !\204\271
;\203\271 \314
!\204\306 !\205\322 \313
\306\315#\205\322 %\316X\206\322 \317 %W)\203\331 \320 \210) /A\211 /\204o
. \306\207" [inhibit-quit buffers safe others mode buffer-file-name nil
delq mapcar #[(b) "\301 !\205 \207" [b buffer-file-name] 2] buffer-list
file-remote-p file-exists-p t 0 buffer-size
semantic-idle-scheduler-refresh-tags err
(semantic-idle-scheduler-refresh-tags) ((error ...)) input-pending-p
accept-process-output throw parsing-mode-buffers
(semantic-idle-scheduler-refresh-tags) ((error ...)) idle-queue
working-temp-message "IDLE: execute service %s..." (funcall service)
((error ...)) "IDLE: execute service %s...done" parsing-other-buffers
remote-file\? semantic-idle-scheduler-mode semantic-debug-enabled
semantic-lex-debug semantic-idle-scheduler-max-buffer-size major-mode
debug-on-error b --cl-dolist-temp-- semantic-current-input-throw-symbol
semantic-idle-scheduler-queue service --cl-dolist-temp--
semantic-idle-scheduler-verbose-flag --cl-dolist-temp--] 8)
  semantic-idle-core-handler()
  ad-Orig-semantic-idle-scheduler-function()
  semantic-idle-scheduler-function()
  apply(semantic-idle-scheduler-function nil)
  byte-code("\301 \302H \303H\"\207" [timer apply 5 6] 4)
  timer-event-handler([nil 0 10 0 t semantic-idle-scheduler-function nil
idle])


On Wed, Sep 17, 2014 at 3:30 PM, Troy Daniels <[email protected]>
wrote:

> cedet-called-interactively-p is defined when I get the problem.  The issue
> appears to be that it is defined as a macro.  If I add this
>
>  (defun cedet-called-interactively-p (&optional arg)
>     "Revised from the built-in version to accept an optional arg."
>     (case arg
>       ('interactive (interactive-p))
>       ((any nil) '(called-interactively-p))))
>
> the error goes away.
>
> However, I am now getting two windows repeatedly appearing: *Semantic
> Context Analysis* and *#<semantic-scope-cache Cache> DDEBUG*.  They appear
> whenever I pause for a few seconds, like an idle timer is showing them.
>  Any idea how to turn them off?
>
> Troy
>
> On Fri, Sep 12, 2014 at 7:20 AM, Eric M. Ludlam <[email protected]>
> wrote:
>
>> Hi Troy,
>>
>> cedet-called-interactively-p is in cedet-compat.   If you loaded the
>> CEDET that is part of that older Emacs, and then tried to overlay CEDET 1.1
>> on top of it, you may have a mix of files where cedet-compat wasn't loaded.
>>
>> Make sure if you load cedet 1.1 on top of Emacs, it is one of the first
>> things in your .emacs file.  If you are already doing that, perhaps your
>> Emacs install has some pre-loaded configuration that is pulling parts of
>> CEDET in.
>>
>> Eric
>>
>> On 09/11/2014 06:41 PM, Troy Daniels wrote:
>>
>>> I recently started using emacs on a different computer, and I am having
>>> problems with cedet-called-interactively-p.  There is a macro defined by
>>> that name, but find-file is repeatedly complaining that there is no
>>> function by that name when trying to load a file the first time.  The
>>> file actually loads, so a second attempt is successful, but the first
>>> try does produce an error.
>>>
>>> This works with emacs 23.4.1.  It fails with emacs 23.1.1
>>>   (x86_64-redhat-linux-gnu, GTK+ Version 2.18.9) of 2012-03-01 on
>>> c6b18n3.bsys.dev.centos.org <http://c6b18n3.bsys.dev.centos.org>.  I am
>>>
>>> running the two versions on different machines, but there is a shared
>>> home directory, so my .emacs is identical between them.
>>>
>>> Any idea what the problem is, and how to avoid/fix it?
>>>
>>> Troy
>>>
>>> Much debugging info follows:
>>>
>>> I am using cedet from bzr.  The version info is
>>>
>>> CEDET Version: 1.1
>>> Requested File Loaded
>>>    Package Version Version Version
>>>    ----------------------------------------------------------
>>>    cedet: 1.1 ok ok
>>>    eieio: 1.4 ok ok
>>>    semantic: 2.1 ok ok
>>>    srecode: 1.1 ok ok
>>>    ede: 1.1 ok ok
>>>    speedbar: 1.0.4 ok ok
>>>    cogre: 1.1 ok Not Loaded
>>>    cedet-contrib: 1.1 ok Not Loaded
>>>
>>> The following is sufficient to cause the problem:
>>>
>>> emacs -Q .emacs
>>>
>>> (defun safe-load (file)
>>> "Load FILE if it exists.  If it doesn't, just print a message.  Don't
>>> give an error"
>>>    (if (file-exists-p file)
>>>   (load file)
>>> (message "Unable to find %s" file)))
>>>
>>> ;; Find cedet.  Place this early in the file so we don't accidentally
>>> load the version that comes with emacs.
>>> (if (featurep 'cedet)
>>> (if (not (string= cedet-version "1.1"))
>>> (error "Wrong version of cedet has already been loaded"))
>>>    (safe-load "~/downloads/cedet-1.1/common/cedet.el"))
>>> (message "Using cedet version %s" cedet-version)
>>> (when (featurep 'semantic-load)
>>>    (if nil
>>>        (progn
>>> (semantic-load-enable-code-helpers)
>>> (global-semantic-decoration-mode 1)
>>> (require 'semantic-decorate-include)
>>> (when (boundp 'header-line-format)
>>>   (global-semantic-stickyfunc-mode 1))
>>> (global-semantic-highlight-func-mode 1)
>>> (if (fboundp 'global-semantic-idle-tag-highlight-mode)
>>> (global-semantic-idle-tag-highlight-mode 1)))
>>>      (progn
>>>        (semantic-load-enable-gaudy-code-helpers)
>>>        (global-semantic-highlight-func-mode 1)
>>>        (if (fboundp 'global-semantic-idle-tag-highlight-mode)
>>>   (global-semantic-idle-tag-highlight-mode 1))
>>>        (global-semantic-tag-folding-mode 1)
>>>        ;; To use additional features for names completion, and
>>> displaying of information for tags & classes
>>>        (require 'semantic-ia)
>>>        ;;(semantic-idle-breadcrumbs-mode t)
>>> )))
>>>
>>> (find-file "~/foo.el")
>>>
>>> The stack trace is:
>>>
>>> Debugger entered--Lisp error: (invalid-function
>>> cedet-called-interactively-p)
>>>    cedet-called-interactively-p(interactive)
>>>    semantic-decoration-mode(1)
>>>    semantic-tag-folding-mode-setup()
>>>    semantic-tag-folding-mode()
>>>    run-hooks(semantic-init-hook)
>>>    semantic-new-buffer-fcn()
>>>    run-hooks(mode-local-init-hook)
>>>    #[nil "À ÁÂ!" [activate-mode-local-bindings run-hooks
>>> mode-local-init-hook] 2]()
>>>    mode-local-map-file-buffers(#[nil "À ÁÂ!"
>>> [activate-mode-local-bindings run-hooks mode-local-init-hook] 2] #[nil "
>>> =?" [mode-local--init-mode major-mode] 2] (#<buffer foo.el>))
>>>    mode-local-post-major-mode-change()
>>>    run-hooks(find-file-hook)
>>>    after-find-file(t t)
>>>    find-file-noselect-1(#<buffer foo.el> "~/foo.el" nil nil "~/foo.el"
>>> nil)
>>>    find-file-noselect("~/foo.el" nil nil t)
>>>    find-file("~/foo.el" t)
>>>    call-interactively(find-file nil nil)
>>>
>>>
>>>
>>>
>>> ------------------------------------------------------------
>>> ------------------
>>> Want excitement?
>>> Manually upgrade your production database.
>>> When you want reliability, choose Perforce
>>> Perforce version control. Predictably reliable.
>>> http://pubads.g.doubleclick.net/gampad/clk?id=157508191&
>>> iu=/4140/ostg.clktrk
>>>
>>>
>>>
>>> _______________________________________________
>>> cedet-semantic mailing list
>>> [email protected]
>>> https://lists.sourceforge.net/lists/listinfo/cedet-semantic
>>>
>>
>

------------------------------------------------------------------------------
Want excitement?
Manually upgrade your production database.
When you want reliability, choose Perforce
Perforce version control. Predictably reliable.
http://pubads.g.doubleclick.net/gampad/clk?id=157508191&iu=/4140/ostg.clktrk

_______________________________________________
cedet-semantic mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/cedet-semantic