Re: ECB & Fresh CEDET

you've used master, while changes were made in cedet-new branch

On Thu, Jun 7, 2012 at 8:45 PM, Steve Molitor <[email protected]> wrot=
e:
> This sounds great. =A0However it didn't work for me on Aquamacs 24.0.92.3=
 on
> OS X Lion). =A0To install I did:
>
> # in my shell:
> cd ~/elisp
> git clone=A0https://github.com/alexott/ecb.git
>
> ;; added to my empty .emacs:
> (add-to-list 'load-path "~/elisp/ecb")
> (require 'ecb)
>
> Running ecb-activate gives me this stack race:
>
> Debugger entered--Lisp error: (void-variable stack-trace-on-error)
> =A0 apply(debug error (void-variable stack-trace-on-error))
> =A0 edebug(error (void-variable stack-trace-on-error))
> =A0 signal(void-variable (stack-trace-on-error))
> =A0 edebug-signal(void-variable (stack-trace-on-error))
> =A0 (let ((stack-trace-on-error stack-trace-on-error)) (when
> (run-hook-with-args-until-failure (quote ecb-before-activate-hook)) (when=
 (<
> max-specpdl-size 3000) (ecb-modify-emacs-variable (quote max-specpdl-size)
> (quote store) 3000)) (when (< max-lisp-eval-depth 1000)
> (ecb-modify-emacs-variable (quote max-lisp-eval-depth) (quote store) 1000=
))
> (when (and ecb-running-xemacs (boundp (quote
> progress-feedback-use-echo-area))) (ecb-modify-emacs-variable (quote
> progress-feedback-use-echo-area) (quote store) t)) (ecb-check-cedet-load)
> (ecb-check-semantic-load) (ecb-check-requirements) (condition-case err-obj
> (progn (ecb-nav-initialize) (ecb-enable-advices (quote
> ecb-methods-browser-advices)) (when (and ecb-auto-compatibility-check (not
> ecb-upgrade-check-done)) (ecb-check-not-compatible-options)
> (ecb-upgrade-not-compatible-options) (ecb-upgrade-renamed-options) (setq
> ecb-upgrade-check-done t)) (ecb-initialize-layout)
> (ecb-initialize-all-internals (not ecb-clear-caches-before-activate))
> (ecb-enable-advices (quote ecb-permanent-adviced-layout-functions))
> (ecb-enable-advices (quote ecb-winman-not-supported-function-advices))
> (ecb-enable-advices (quote ecb-compatibility-advices)) (let ((old-ecb-fra=
me
> ecb-frame)) (if ecb-new-ecb-frame (progn (run-hooks ...) (setq ecb-frame
> ...) (put ... ... t)) (setq ecb-frame (selected-frame)) (put (quote
> ecb-frame) (quote ecb-new-frame-created) nil)) (if (not (equal ecb-frame
> old-ecb-frame)) (ecb-edit-area-creators-init))) (raise-frame ecb-frame)
> (select-frame ecb-frame) (ecb-enable-own-temp-buffer-show-function t)
> (ecb-tree-buffer-creators-run) (ecb-eshell-activate-integration) (add-hook
> (ecb--semantic-after-partial-cache-change-hook) (quote
> ecb-update-after-partial-reparse) t) (add-hook
> (ecb--semantic-after-toplevel-cache-change-hook) (quote
> ecb-rebuild-methods-buffer-with-tagcache) t)
> (ecb-activate-ecb-autocontrol-function ecb-highlight-tag-with-point-delay
> (quote ecb-tag-sync)) (ecb-activate-ecb-autocontrol-function
> ecb-basic-buffer-sync-delay (quote ecb-basic-buffer-sync))
> (ecb-activate-ecb-autocontrol-function ecb-compilation-update-idle-time
> (quote ecb-compilation-buffer-list-changed-p))
> (ecb-activate-ecb-autocontrol-function (quote post) (quote
> ecb-layout-post-command-hook)) (ecb-activate-ecb-autocontrol-function (qu=
ote
> pre) (quote ecb-layout-pre-command-hook))
> (ecb-activate-ecb-autocontrol-function 0.5 (quote
> ecb-repair-only-ecb-window-layout)) (ecb-activate-ecb-autocontrol-function
> (quote post) (quote ecb-handle-major-mode-visibilty)) (add-hook (quote
> after-save-hook) (quote ecb-update-methods-after-saving)) (add-hook (quote
> kill-buffer-hook) (quote ecb-kill-buffer-hook)) (add-hook (quote
> find-file-hooks) (quote ecb-find-file-hook))
> (ecb-activate-ecb-autocontrol-function 1 (quote
> ecb-monitor-autocontrol-functions)) (ecb-stealthy-function-state-init)
> (ecb-activate-ecb-autocontrol-function ecb-stealthy-tasks-delay (quote
> ecb-stealthy-updates)) (ecb-compilation-buffer-list-init)
> (ecb-activate-ediff-compatibility) (ecb-vc-enable-internals 1) (when
> ecb-running-xemacs (let ((dummy-buf-name " *dummytogetglobalmap*"))
> (with-current-buffer (get-buffer-create dummy-buf-name) (add-submenu nil
> ecb-minor-menu) (kill-buffer dummy-buf-name))) (save-excursion (dolist (b=
uf
> ...) (set-buffer buf) (if ... ...)))) (add-hook (if ecb-running-xemacs
> (quote activate-menubar-hook) (quote menu-bar-update-hook)) (quote
> ecb-compilation-update-menu))) (error (ecb-clean-up-after-activation-fail=
ure
> "Errors during the basic setup of ECB." err-obj))) (condition-case err-obj
> (run-hooks (quote ecb-activate-before-layout-draw-hook)) (error
> (ecb-clean-up-after-activation-failure "Errors during the hooks of
> ecb-activate-before-layout-draw-hook." err-obj))) (setq ecb-minor-mode t)
> (condition-case err-obj (let ((ecb-redraw-layout-quickly nil)
> (use-last-win-conf (and ecb-last-window-config-before-deactivation (equal
> ecb-split-edit-window-after-start ...) (not ...))))
> (ecb-enable-temp-buffer-shrink-to-fit ecb-compile-window-height) (if
> use-last-win-conf (setq ecb-edit-area-creators (nth 4
> ecb-last-window-config-before-deactivation))) (ecb-redraw-layout-full (qu=
ote
> no-buffer-sync) nil (and use-last-win-conf (nth 6
> ecb-last-window-config-before-deactivation)) (and use-last-win-conf (nth 5
> ecb-last-window-config-before-deactivation))) (if (and use-last-win-conf
> (null (nth 2 ecb-last-window-config-before-deactivation)))
> (ecb-toggle-compile-window -1)) (when (member
> ecb-split-edit-window-after-start (quote (vertical horizontal nil)))
> (delete-other-windows) (case ecb-split-edit-window-after-start (horizontal
> (split-window-horizontally)) (vertical (split-window-vertically))))
> (ecb-window-sync) (ecb-mode-line-format)) (error
> (ecb-clean-up-after-activation-failure "Errors during the layout setup of
> ECB." err-obj))) (condition-case err-obj (let ((edit-window (car
> (ecb-canonical-edit-windows-list)))) (when (and
> ecb-display-default-dir-after-start (null (ecb-buffer-file-name ...)))
> (ecb-set-selected-directory (ecb-fix-filename (with-current-buffer ...
> default-directory))))) (error (ecb-clean-up-after-activation-failure "Err=
ors
> during setting the default directory." err-obj))) (condition-case err-obj
> (run-hooks (quote ecb-activate-hook)) (error
> (ecb-clean-up-after-activation-failure "Errors during the hooks of
> ecb-activate-hook." err-obj))) (condition-case err-obj (if
> (ecb-show-any-node-info-by-mouse-moving-p)
> (tree-buffer-activate-follow-mouse)) (error
> (ecb-clean-up-after-activation-failure "Errors during the mouse-tracking
> activation." err-obj))) (setq ecb-minor-mode t) (message "The ECB is now
> activated.") (condition-case err-obj (if (and ecb-auto-compatibility-check
> (or (ecb-not-compatible-or-renamed-options-detected) (not
> (ecb-options-version=3Decb-version-p)))) (ecb-run-with-idle-timer 0.25 nil
> (quote ecb-display-upgraded-options)) (ecb-display-news-for-upgrade)) (er=
ror
> (ecb-clean-up-after-activation-failure "Error during the compatibility-ch=
eck
> of ECB." err-obj))) (ignore-errors (when (null ecb-source-path) (let
> ((ecb-show-help-format (quote info))) (ecb-show-help) (Info-goto-node "Fi=
rst
> steps")))) (ignore-errors (ecb-show-tip-of-the-day)) (ecb-enable-advices
> (quote ecb-layout-basic-adviced-functions)) (condition-case err-obj (setq
> ecb-activated-window-configuration (ecb-current-window-configuration))
> (error (ecb-clean-up-after-activation-failure "Errors during the snapshot=
 of
> the windows-configuration." err-obj)))))
> =A0 (if ecb-minor-mode (when (and (not (equal (selected-frame) ecb-frame)=
) (or
> (equal ecb-activation-selects-ecb-frame-if-already-active t) (and (equal
> ecb-activation-selects-ecb-frame-if-already-active (quote ask)) (y-or-n-p
> "ECB is already active in another frame. Select it? "))))
> (ecb-select-ecb-frame) (ecb-update-directories-buffer)) (let
> ((stack-trace-on-error stack-trace-on-error)) (when
> (run-hook-with-args-until-failure (quote ecb-before-activate-hook)) (when=
 (<
> max-specpdl-size 3000) (ecb-modify-emacs-variable (quote max-specpdl-size)
> (quote store) 3000)) (when (< max-lisp-eval-depth 1000)
> (ecb-modify-emacs-variable (quote max-lisp-eval-depth) (quote store) 1000=
))
> (when (and ecb-running-xemacs (boundp (quote
> progress-feedback-use-echo-area))) (ecb-modify-emacs-variable (quote
> progress-feedback-use-echo-area) (quote store) t)) (ecb-check-cedet-load)
> (ecb-check-semantic-load) (ecb-check-requirements) (condition-case err-obj
> (progn (ecb-nav-initialize) (ecb-enable-advices (quote
> ecb-methods-browser-advices)) (when (and ecb-auto-compatibility-check (not
> ecb-upgrade-check-done)) (ecb-check-not-compatible-options)
> (ecb-upgrade-not-compatible-options) (ecb-upgrade-renamed-options) (setq
> ecb-upgrade-check-done t)) (ecb-initialize-layout)
> (ecb-initialize-all-internals (not ecb-clear-caches-before-activate))
> (ecb-enable-advices (quote ecb-permanent-adviced-layout-functions))
> (ecb-enable-advices (quote ecb-winman-not-supported-function-advices))
> (ecb-enable-advices (quote ecb-compatibility-advices)) (let ((old-ecb-fra=
me
> ecb-frame)) (if ecb-new-ecb-frame (progn ... ... ...) (setq ecb-frame ...)
> (put ... ... nil)) (if (not ...) (ecb-edit-area-creators-init)))
> (raise-frame ecb-frame) (select-frame ecb-frame)
> (ecb-enable-own-temp-buffer-show-function t) (ecb-tree-buffer-creators-ru=
n)
> (ecb-eshell-activate-integration) (add-hook
> (ecb--semantic-after-partial-cache-change-hook) (quote
> ecb-update-after-partial-reparse) t) (add-hook
> (ecb--semantic-after-toplevel-cache-change-hook) (quote
> ecb-rebuild-methods-buffer-with-tagcache) t)
> (ecb-activate-ecb-autocontrol-function ecb-highlight-tag-with-point-delay
> (quote ecb-tag-sync)) (ecb-activate-ecb-autocontrol-function
> ecb-basic-buffer-sync-delay (quote ecb-basic-buffer-sync))
> (ecb-activate-ecb-autocontrol-function ecb-compilation-update-idle-time
> (quote ecb-compilation-buffer-list-changed-p))
> (ecb-activate-ecb-autocontrol-function (quote post) (quote
> ecb-layout-post-command-hook)) (ecb-activate-ecb-autocontrol-function (qu=
ote
> pre) (quote ecb-layout-pre-command-hook))
> (ecb-activate-ecb-autocontrol-function 0.5 (quote
> ecb-repair-only-ecb-window-layout)) (ecb-activate-ecb-autocontrol-function
> (quote post) (quote ecb-handle-major-mode-visibilty)) (add-hook (quote
> after-save-hook) (quote ecb-update-methods-after-saving)) (add-hook (quote
> kill-buffer-hook) (quote ecb-kill-buffer-hook)) (add-hook (quote
> find-file-hooks) (quote ecb-find-file-hook))
> (ecb-activate-ecb-autocontrol-function 1 (quote
> ecb-monitor-autocontrol-functions)) (ecb-stealthy-function-state-init)
> (ecb-activate-ecb-autocontrol-function ecb-stealthy-tasks-delay (quote
> ecb-stealthy-updates)) (ecb-compilation-buffer-list-init)
> (ecb-activate-ediff-compatibility) (ecb-vc-enable-internals 1) (when
> ecb-running-xemacs (let (...) (with-current-buffer ... ... ...))
> (save-excursion (dolist ... ... ...))) (add-hook (if ecb-running-xemacs
> (quote activate-menubar-hook) (quote menu-bar-update-hook)) (quote
> ecb-compilation-update-menu))) (error (ecb-clean-up-after-activation-fail=
ure
> "Errors during the basic setup of ECB." err-obj))) (condition-case err-obj
> (run-hooks (quote ecb-activate-before-layout-draw-hook)) (error
> (ecb-clean-up-after-activation-failure "Errors during the hooks of
> ecb-activate-before-layout-draw-hook." err-obj))) (setq ecb-minor-mode t)
> (condition-case err-obj (let ((ecb-redraw-layout-quickly nil)
> (use-last-win-conf (and ecb-last-window-config-before-deactivation ...
> ...))) (ecb-enable-temp-buffer-shrink-to-fit ecb-compile-window-height) (=
if
> use-last-win-conf (setq ecb-edit-area-creators (nth 4
> ecb-last-window-config-before-deactivation))) (ecb-redraw-layout-full (qu=
ote
> no-buffer-sync) nil (and use-last-win-conf (nth 6
> ecb-last-window-config-before-deactivation)) (and use-last-win-conf (nth 5
> ecb-last-window-config-before-deactivation))) (if (and use-last-win-conf
> (null ...)) (ecb-toggle-compile-window -1)) (when (member
> ecb-split-edit-window-after-start (quote ...)) (delete-other-windows) (ca=
se
> ecb-split-edit-window-after-start (horizontal ...) (vertical ...)))
> (ecb-window-sync) (ecb-mode-line-format)) (error
> (ecb-clean-up-after-activation-failure "Errors during the layout setup of
> ECB." err-obj))) (condition-case err-obj (let ((edit-window (car ...)))
> (when (and ecb-display-default-dir-after-start (null ...))
> (ecb-set-selected-directory (ecb-fix-filename ...)))) (error
> (ecb-clean-up-after-activation-failure "Errors during setting the default
> directory." err-obj))) (condition-case err-obj (run-hooks (quote
> ecb-activate-hook)) (error (ecb-clean-up-after-activation-failure "Errors
> during the hooks of ecb-activate-hook." err-obj))) (condition-case err-obj
> (if (ecb-show-any-node-info-by-mouse-moving-p)
> (tree-buffer-activate-follow-mouse)) (error
> (ecb-clean-up-after-activation-failure "Errors during the mouse-tracking
> activation." err-obj))) (setq ecb-minor-mode t) (message "The ECB is now
> activated.") (condition-case err-obj (if (and ecb-auto-compatibility-check
> (or (ecb-not-compatible-or-renamed-options-detected) (not ...)))
> (ecb-run-with-idle-timer 0.25 nil (quote ecb-display-upgraded-options))
> (ecb-display-news-for-upgrade)) (error
> (ecb-clean-up-after-activation-failure "Error during the compatibility-ch=
eck
> of ECB." err-obj))) (ignore-errors (when (null ecb-source-path) (let
> ((ecb-show-help-format ...)) (ecb-show-help) (Info-goto-node "First
> steps")))) (ignore-errors (ecb-show-tip-of-the-day)) (ecb-enable-advices
> (quote ecb-layout-basic-adviced-functions)) (condition-case err-obj (setq
> ecb-activated-window-configuration (ecb-current-window-configuration))
> (error (ecb-clean-up-after-activation-failure "Errors during the snapshot=
 of
> the windows-configuration." err-obj))))))
> =A0 ecb-activate--impl()
> =A0 (if ecb-use-recursive-edit (if ecb-minor-mode (progn (message "ECB al=
ready
> activated. Drawing layout.") (ecb-redraw-layout)) (catch (quote exit) (pr=
ogn
> (ecb-activate--impl) (recursive-edit)) (ecb-deactivate-internal)))
> (ecb-activate--impl))
> =A0 ecb-activate-internal()
> =A0 (if new-state (ecb-activate-internal) (ecb-deactivate-internal))
> =A0 (let ((new-state (if (null arg) (not ecb-minor-mode) (>
> (prefix-numeric-value arg) 0)))) (if new-state (ecb-activate-internal)
> (ecb-deactivate-internal)))
> =A0 ecb-minor-mode(1)
> =A0 (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1))
> =A0 (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))()
> =A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-befor=
e 0)
> 1 (ecb-minor-mode 1))))
> =A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-befor=
e 0)
> 1 (ecb-minor-mode 1))))
> =A0 ecb-activate()
> =A0 call-interactively(ecb-activate t nil)
> =A0 execute-extended-command(nil)
> =A0 call-interactively(execute-extended-command nil nil)
> =A0 recursive-edit()
> =A0 edebug-recursive-edit()
> =A0 edebug-display()
> =A0 edebug-debugger(0 before nil)
> =A0 edebug-before(0)
> =A0 (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1))
> =A0 (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))()
> =A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-befor=
e 0)
> 1 (ecb-minor-mode 1))))
> =A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-befor=
e 0)
> 1 (ecb-minor-mode 1))))
> =A0 ecb-activate()
> =A0 call-interactively(ecb-activate t nil)
> =A0 execute-extended-command(nil)
> =A0 call-interactively(execute-extended-command nil nil)
>
>
> On Thu, Jun 7, 2012 at 12:35 PM, Alex Ott <[email protected]> wrote:
>>
>> Hi all
>>
>> I did some changes in ECB to make it working with fresh Emacs & CEDET.
>> =A0Changed version is available at
>> https://github.com/alexott/ecb/tree/new-cedet - I tested it with GNU
>> Emacs from trunk (Emacs 24.1) and CEDET both from bzr repository
>> (CEDET from Emacs gives strange error "Attempt to modify read-only
>> object" - I need time to investigate this)...
>>
>> If you're interested in testing, please run this version on your
>> machines & send me feedback
>>
>> P.S. Next steps that I want to make is to do more code cleanup...
>>
>> --
>> With best wishes,=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 Alex Ott
>> http://alexott.net/
>> Tiwtter: alexott_en (English), alexott (Russian)
>> Skype: alex.ott
>>
>>
>> ------------------------------------------------------------------------=
------
>> Live Security Virtual Conference
>> Exclusive live event will cover all the ways today's security and
>> threat landscape has changed and how IT managers can respond. Discussions
>> will include endpoint security, mobile security and the latest in malware
>> threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
>> _______________________________________________
>> Ecb-list mailing list
>> [email protected]
>> https://lists.sourceforge.net/lists/listinfo/ecb-list
>
>



-- =

With best wishes,=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 Alex Ott
http://alexott.net/
Tiwtter: alexott_en (English), alexott (Russian)
Skype: alex.ott

---------------------------------------------------------------------------=
---
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and =

threat landscape has changed and how IT managers can respond. Discussions =

will include endpoint security, mobile security and the latest in malware =

threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/