Re: ECB & Fresh CEDET
Steve Molitor <[email protected]> Thu, 7 Jun 2012 13:45:16 -0500
| Newsgroups | gmane.emacs.code-browser,gmane.emacs.cedet |
|---|---|
| Message-ID | <CAJrM8VWrpTT8y8dhejWmy48SxFWyoZrj4iRprkRt9ES1DaGKDg@mail.gmail.com> |
--===============6292113021811232564== Content-Type: multipart/alternative; boundary=0015175cb67ae245f804c1e64880 --0015175cb67ae245f804c1e64880 Content-Type: text/plain; charset=ISO-8859-1 This sounds great. However it didn't work for me on Aquamacs 24.0.92.3 on OS X Lion). To install I did: # in my shell: cd ~/elisp git clone https://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) apply(debug error (void-variable stack-trace-on-error)) edebug(error (void-variable stack-trace-on-error)) signal(void-variable (stack-trace-on-error)) edebug-signal(void-variable (stack-trace-on-error)) (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-frame 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 (quote 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 (buf ...) (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-failure "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 (quote 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 "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-options-version=ecb-version-p)))) (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-check of ECB." err-obj))) (ignore-errors (when (null ecb-source-path) (let ((ecb-show-help-format (quote info))) (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))))) (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-frame 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-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 (quote 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-failure "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 (quote 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) (case 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-check 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)))))) ecb-activate--impl() (if ecb-use-recursive-edit (if ecb-minor-mode (progn (message "ECB already activated. Drawing layout.") (ecb-redraw-layout)) (catch (quote exit) (progn (ecb-activate--impl) (recursive-edit)) (ecb-deactivate-internal))) (ecb-activate--impl)) ecb-activate-internal() (if new-state (ecb-activate-internal) (ecb-deactivate-internal)) (let ((new-state (if (null arg) (not ecb-minor-mode) (> (prefix-numeric-value arg) 0)))) (if new-state (ecb-activate-internal) (ecb-deactivate-internal))) ecb-minor-mode(1) (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)) (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))() edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))) edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))) ecb-activate() call-interactively(ecb-activate t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil) recursive-edit() edebug-recursive-edit() edebug-display() edebug-debugger(0 before nil) edebug-before(0) (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)) (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))() edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))) edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))) ecb-activate() call-interactively(ecb-activate t nil) execute-extended-command(nil) 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. > Changed 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, 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 > --0015175cb67ae245f804c1e64880 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable This sounds great. =A0However it didn't work for me on Aquamacs 24.0.92= .3 on OS X Lion). =A0To install I did:<div><br></div><div># in my shell:</d= iv><div>cd ~/elisp</div><div>git clone=A0<a href=3D"https://github.com/alex= ott/ecb.git">https://github.com/alexott/ecb.git</a></div> <div><br></div><div>;; added to my empty .emacs:</div><div><div>(add-to-lis= t 'load-path "~/elisp/ecb")</div><div>(require 'ecb)</div= ></div><div><br></div><div>Running ecb-activate gives me this stack race:</= div> <div><br></div><div><div>Debugger entered--Lisp error: (void-variable stack= -trace-on-error)</div><div>=A0 apply(debug error (void-variable stack-trace= -on-error))</div><div>=A0 edebug(error (void-variable stack-trace-on-error)= )</div> <div>=A0 signal(void-variable (stack-trace-on-error))</div><div>=A0 edebug-= signal(void-variable (stack-trace-on-error))</div><div>=A0 (let ((stack-tra= ce-on-error stack-trace-on-error)) (when (run-hook-with-args-until-failure = (quote ecb-before-activate-hook)) (when (< max-specpdl-size 3000) (ecb-m= odify-emacs-variable (quote max-specpdl-size) (quote store) 3000)) (when (&= lt; max-lisp-eval-depth 1000) (ecb-modify-emacs-variable (quote max-lisp-ev= al-depth) (quote store) 1000)) (when (and ecb-running-xemacs (boundp (quote= progress-feedback-use-echo-area))) (ecb-modify-emacs-variable (quote progr= ess-feedback-use-echo-area) (quote store) t)) (ecb-check-cedet-load) (ecb-c= heck-semantic-load) (ecb-check-requirements) (condition-case err-obj (progn= (ecb-nav-initialize) (ecb-enable-advices (quote ecb-methods-browser-advice= s)) (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-ena= ble-advices (quote ecb-compatibility-advices)) (let ((old-ecb-frame ecb-fra= me)) (if ecb-new-ecb-frame (progn (run-hooks ...) (setq ecb-frame ...) (put= ... ... t)) (setq ecb-frame (selected-frame)) (put (quote ecb-frame) (quot= e ecb-new-frame-created) nil)) (if (not (equal ecb-frame old-ecb-frame)) (e= cb-edit-area-creators-init))) (raise-frame ecb-frame) (select-frame ecb-fra= me) (ecb-enable-own-temp-buffer-show-function t) (ecb-tree-buffer-creators-= run) (ecb-eshell-activate-integration) (add-hook (ecb--semantic-after-parti= al-cache-change-hook) (quote ecb-update-after-partial-reparse) t) (add-hook= (ecb--semantic-after-toplevel-cache-change-hook) (quote ecb-rebuild-method= s-buffer-with-tagcache) t) (ecb-activate-ecb-autocontrol-function ecb-highl= ight-tag-with-point-delay (quote ecb-tag-sync)) (ecb-activate-ecb-autocontr= ol-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-funct= ion (quote post) (quote ecb-layout-post-command-hook)) (ecb-activate-ecb-au= tocontrol-function (quote pre) (quote ecb-layout-pre-command-hook)) (ecb-ac= tivate-ecb-autocontrol-function 0.5 (quote ecb-repair-only-ecb-window-layou= t)) (ecb-activate-ecb-autocontrol-function (quote post) (quote ecb-handle-m= ajor-mode-visibilty)) (add-hook (quote after-save-hook) (quote ecb-update-m= ethods-after-saving)) (add-hook (quote kill-buffer-hook) (quote ecb-kill-bu= ffer-hook)) (add-hook (quote find-file-hooks) (quote ecb-find-file-hook)) (= ecb-activate-ecb-autocontrol-function 1 (quote ecb-monitor-autocontrol-func= tions)) (ecb-stealthy-function-state-init) (ecb-activate-ecb-autocontrol-fu= nction ecb-stealthy-tasks-delay (quote ecb-stealthy-updates)) (ecb-compilat= ion-buffer-list-init) (ecb-activate-ediff-compatibility) (ecb-vc-enable-int= ernals 1) (when ecb-running-xemacs (let ((dummy-buf-name " *dummytoget= globalmap*")) (with-current-buffer (get-buffer-create dummy-buf-name) = (add-submenu nil ecb-minor-menu) (kill-buffer dummy-buf-name))) (save-excur= sion (dolist (buf ...) (set-buffer buf) (if ... ...)))) (add-hook (if ecb-r= unning-xemacs (quote activate-menubar-hook) (quote menu-bar-update-hook)) (= quote ecb-compilation-update-menu))) (error (ecb-clean-up-after-activation-= failure "Errors during the basic setup of ECB." err-obj))) (condi= tion-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-sp= lit-edit-window-after-start ...) (not ...)))) (ecb-enable-temp-buffer-shrin= k-to-fit ecb-compile-window-height) (if use-last-win-conf (setq ecb-edit-ar= ea-creators (nth 4 ecb-last-window-config-before-deactivation))) (ecb-redra= w-layout-full (quote 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-wi= ndow -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-vert= ically)))) (ecb-window-sync) (ecb-mode-line-format)) (error (ecb-clean-up-a= fter-activation-failure "Errors during the layout setup of ECB." = err-obj))) (condition-case err-obj (let ((edit-window (car (ecb-canonical-e= dit-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-a= ctivation-failure "Errors during setting the default directory." = err-obj))) (condition-case err-obj (run-hooks (quote ecb-activate-hook)) (e= rror (ecb-clean-up-after-activation-failure "Errors during the hooks o= f ecb-activate-hook." err-obj))) (condition-case err-obj (if (ecb-show= -any-node-info-by-mouse-moving-p) (tree-buffer-activate-follow-mouse)) (err= or (ecb-clean-up-after-activation-failure "Errors during the mouse-tra= cking activation." err-obj))) (setq ecb-minor-mode t) (message "T= he ECB is now activated.") (condition-case err-obj (if (and ecb-auto-c= ompatibility-check (or (ecb-not-compatible-or-renamed-options-detected) (no= t (ecb-options-version=3Decb-version-p)))) (ecb-run-with-idle-timer 0.25 ni= l (quote ecb-display-upgraded-options)) (ecb-display-news-for-upgrade)) (er= ror (ecb-clean-up-after-activation-failure "Error during the compatibi= lity-check of ECB." err-obj))) (ignore-errors (when (null ecb-source-p= ath) (let ((ecb-show-help-format (quote info))) (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-c= onfiguration)) (error (ecb-clean-up-after-activation-failure "Errors d= uring the snapshot of the windows-configuration." err-obj)))))</div> <div>=A0 (if ecb-minor-mode (when (and (not (equal (selected-frame) ecb-fra= me)) (or (equal ecb-activation-selects-ecb-frame-if-already-active t) (and = (equal ecb-activation-selects-ecb-frame-if-already-active (quote ask)) (y-o= r-n-p "ECB is already active in another frame. Select it? ")))) (= ecb-select-ecb-frame) (ecb-update-directories-buffer)) (let ((stack-trace-o= n-error stack-trace-on-error)) (when (run-hook-with-args-until-failure (quo= te ecb-before-activate-hook)) (when (< max-specpdl-size 3000) (ecb-modif= y-emacs-variable (quote max-specpdl-size) (quote store) 3000)) (when (< = max-lisp-eval-depth 1000) (ecb-modify-emacs-variable (quote max-lisp-eval-d= epth) (quote store) 1000)) (when (and ecb-running-xemacs (boundp (quote pro= gress-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 (ec= b-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-upg= rade-renamed-options) (setq ecb-upgrade-check-done t)) (ecb-initialize-layo= ut) (ecb-initialize-all-internals (not ecb-clear-caches-before-activate)) (= ecb-enable-advices (quote ecb-permanent-adviced-layout-functions)) (ecb-ena= ble-advices (quote ecb-winman-not-supported-function-advices)) (ecb-enable-= advices (quote ecb-compatibility-advices)) (let ((old-ecb-frame ecb-frame))= (if ecb-new-ecb-frame (progn ... ... ...) (setq ecb-frame ...) (put ... ..= . nil)) (if (not ...) (ecb-edit-area-creators-init))) (raise-frame ecb-fram= e) (select-frame ecb-frame) (ecb-enable-own-temp-buffer-show-function t) (e= cb-tree-buffer-creators-run) (ecb-eshell-activate-integration) (add-hook (e= cb--semantic-after-partial-cache-change-hook) (quote ecb-update-after-parti= al-reparse) t) (add-hook (ecb--semantic-after-toplevel-cache-change-hook) (= quote ecb-rebuild-methods-buffer-with-tagcache) t) (ecb-activate-ecb-autoco= ntrol-function ecb-highlight-tag-with-point-delay (quote ecb-tag-sync)) (ec= b-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-activa= te-ecb-autocontrol-function (quote post) (quote ecb-layout-post-command-hoo= k)) (ecb-activate-ecb-autocontrol-function (quote pre) (quote ecb-layout-pr= e-command-hook)) (ecb-activate-ecb-autocontrol-function 0.5 (quote ecb-repa= ir-only-ecb-window-layout)) (ecb-activate-ecb-autocontrol-function (quote p= ost) (quote ecb-handle-major-mode-visibilty)) (add-hook (quote after-save-h= ook) (quote ecb-update-methods-after-saving)) (add-hook (quote kill-buffer-= hook) (quote ecb-kill-buffer-hook)) (add-hook (quote find-file-hooks) (quot= e ecb-find-file-hook)) (ecb-activate-ecb-autocontrol-function 1 (quote ecb-= monitor-autocontrol-functions)) (ecb-stealthy-function-state-init) (ecb-act= ivate-ecb-autocontrol-function ecb-stealthy-tasks-delay (quote ecb-stealthy= -updates)) (ecb-compilation-buffer-list-init) (ecb-activate-ediff-compatibi= lity) (ecb-vc-enable-internals 1) (when ecb-running-xemacs (let (...) (with= -current-buffer ... ... ...)) (save-excursion (dolist ... ... ...))) (add-h= ook (if ecb-running-xemacs (quote activate-menubar-hook) (quote menu-bar-up= date-hook)) (quote ecb-compilation-update-menu))) (error (ecb-clean-up-afte= r-activation-failure "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 dur= ing the hooks of ecb-activate-before-layout-draw-hook." err-obj))) (se= tq ecb-minor-mode t) (condition-case err-obj (let ((ecb-redraw-layout-quick= ly 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 (quote no-buffer-sync= ) nil (and use-last-win-conf (nth 6 ecb-last-window-config-before-deactivat= ion)) (and use-last-win-conf (nth 5 ecb-last-window-config-before-deactivat= ion))) (if (and use-last-win-conf (null ...)) (ecb-toggle-compile-window -1= )) (when (member ecb-split-edit-window-after-start (quote ...)) (delete-oth= er-windows) (case ecb-split-edit-window-after-start (horizontal ...) (verti= cal ...))) (ecb-window-sync) (ecb-mode-line-format)) (error (ecb-clean-up-a= fter-activation-failure "Errors during the layout setup of ECB." = err-obj))) (condition-case err-obj (let ((edit-window (car ...))) (when (an= d ecb-display-default-dir-after-start (null ...)) (ecb-set-selected-directo= ry (ecb-fix-filename ...)))) (error (ecb-clean-up-after-activation-failure = "Errors during setting the default directory." err-obj))) (condit= ion-case err-obj (run-hooks (quote ecb-activate-hook)) (error (ecb-clean-up= -after-activation-failure "Errors during the hooks of ecb-activate-hoo= k." 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-a= fter-activation-failure "Errors during the mouse-tracking activation.&= quot; err-obj))) (setq ecb-minor-mode t) (message "The ECB is now acti= vated.") (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 "Err= or during the compatibility-check of ECB." err-obj))) (ignore-errors (= when (null ecb-source-path) (let ((ecb-show-help-format ...)) (ecb-show-hel= p) (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-cu= rrent-window-configuration)) (error (ecb-clean-up-after-activation-failure = "Errors during the snapshot of the windows-configuration." err-ob= j))))))</div> <div>=A0 ecb-activate--impl()</div><div>=A0 (if ecb-use-recursive-edit (if = ecb-minor-mode (progn (message "ECB already activated. Drawing layout.= ") (ecb-redraw-layout)) (catch (quote exit) (progn (ecb-activate--impl= ) (recursive-edit)) (ecb-deactivate-internal))) (ecb-activate--impl))</div> <div>=A0 ecb-activate-internal()</div><div>=A0 (if new-state (ecb-activate-= internal) (ecb-deactivate-internal))</div><div>=A0 (let ((new-state (if (nu= ll arg) (not ecb-minor-mode) (> (prefix-numeric-value arg) 0)))) (if new= -state (ecb-activate-internal) (ecb-deactivate-internal)))</div> <div>=A0 ecb-minor-mode(1)</div><div>=A0 (edebug-after (edebug-before 0) 1 = (ecb-minor-mode 1))</div><div>=A0 (lambda nil (edebug-after (edebug-before = 0) 1 (ecb-minor-mode 1)))()</div><div>=A0 edebug-enter(ecb-activate nil (la= mbda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1))))</div> <div>=A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-be= fore 0) 1 (ecb-minor-mode 1))))</div><div>=A0 ecb-activate()</div><div>=A0 = call-interactively(ecb-activate t nil)</div><div>=A0 execute-extended-comma= nd(nil)</div> <div>=A0 call-interactively(execute-extended-command nil nil)</div><div>=A0= recursive-edit()</div><div>=A0 edebug-recursive-edit()</div><div>=A0 edebu= g-display()</div><div>=A0 edebug-debugger(0 before nil)</div><div>=A0 edebu= g-before(0)</div> <div>=A0 (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1))</div><div>= =A0 (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))()</d= iv><div>=A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug= -before 0) 1 (ecb-minor-mode 1))))</div> <div>=A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-be= fore 0) 1 (ecb-minor-mode 1))))</div><div>=A0 ecb-activate()</div><div>=A0 = call-interactively(ecb-activate t nil)</div><div>=A0 execute-extended-comma= nd(nil)</div> <div>=A0 call-interactively(execute-extended-command nil nil)</div><div><br= ></div><br><div class=3D"gmail_quote">On Thu, Jun 7, 2012 at 12:35 PM, Alex= Ott <span dir=3D"ltr"><<a href=3D"mailto:[email protected]" target=3D"_= blank">[email protected]</a>></span> wrote:<br> <blockquote class=3D"gmail_quote" style=3D"margin:0 0 0 .8ex;border-left:1p= x #ccc solid;padding-left:1ex">Hi all<br> <br> I did some changes in ECB to make it working with fresh Emacs & CEDET.<= br> =A0Changed version is available at<br> <a href=3D"https://github.com/alexott/ecb/tree/new-cedet" target=3D"_blank"= >https://github.com/alexott/ecb/tree/new-cedet</a> - I tested it with GNU<b= r> Emacs from trunk (Emacs 24.1) and CEDET both from bzr repository<br> (CEDET from Emacs gives strange error "Attempt to modify read-only<br> object" - I need time to investigate this)...<br> <br> If you're interested in testing, please run this version on your<br> machines & send me feedback<br> <br> P.S. Next steps that I want to make is to do more code cleanup...<br> <br> --<br> With best wishes,=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 Alex Ott<br> <a href=3D"http://alexott.net/" target=3D"_blank">http://alexott.net/</a><b= r> Tiwtter: alexott_en (English), alexott (Russian)<br> Skype: alex.ott<br> <br> ---------------------------------------------------------------------------= ---<br> Live Security Virtual Conference<br> Exclusive live event will cover all the ways today's security and<br> threat landscape has changed and how IT managers can respond. Discussions<b= r> will include endpoint security, mobile security and the latest in malware<b= r> threats. <a href=3D"http://www.accelacomm.com/jaw/sfrnl04242012/114/5012226= 3/" target=3D"_blank">http://www.accelacomm.com/jaw/sfrnl04242012/114/50122= 263/</a><br> _______________________________________________<br> Ecb-list mailing list<br> <a href=3D"mailto:[email protected]">[email protected]= e.net</a><br> <a href=3D"https://lists.sourceforge.net/lists/listinfo/ecb-list" target=3D= "_blank">https://lists.sourceforge.net/lists/listinfo/ecb-list</a><br> </blockquote></div><br></div> --0015175cb67ae245f804c1e64880-- --===============6292113021811232564== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline ------------------------------------------------------------------------------ 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/ --===============6292113021811232564== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Ecb-list mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/ecb-list --===============6292113021811232564==--