Re: ECB & Fresh CEDET
Steve Molitor <[email protected]> Thu, 7 Jun 2012 14:05:54 -0500
| Newsgroups | gmane.emacs.code-browser,gmane.emacs.cedet |
|---|---|
| Message-ID | <CAJrM8VX1Ai9kszGQ7VpTaPnG=BKeFb8=xS0X4WWF1HMyEyBZpw@mail.gmail.com> |
--===============5257483686114254957== Content-Type: multipart/alternative; boundary=0015175924e2abd5d504c1e6921b --0015175924e2abd5d504c1e6921b Content-Type: text/plain; charset=ISO-8859-1 Doh! Got the correct branch, working great so far! Thanks On Thu, Jun 7, 2012 at 1:51 PM, Alex Ott <[email protected]> wrote: > 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]> > wrote: > > 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 > > > > > > > > -- > With best wishes, Alex Ott > http://alexott.net/ > Tiwtter: alexott_en (English), alexott (Russian) > Skype: alex.ott > --0015175924e2abd5d504c1e6921b Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Doh! =A0Got the correct branch, working great so far!<div><br></div><div>Th= anks<br><br><div class=3D"gmail_quote">On Thu, Jun 7, 2012 at 1:51 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">you've used master, while changes were m= ade in cedet-new branch<br> <div class=3D"HOEnZb"><div class=3D"h5"><br> On Thu, Jun 7, 2012 at 8:45 PM, Steve Molitor <<a href=3D"mailto:stevemo= [email protected]">[email protected]</a>> wrote:<br> > This sounds great. =A0However it didn't work for me on Aquamacs 24= .0.92.3 on<br> > OS X Lion). =A0To install I did:<br> ><br> > # in my shell:<br> > cd ~/elisp<br> > git clone=A0<a href=3D"https://github.com/alexott/ecb.git" target=3D"_= blank">https://github.com/alexott/ecb.git</a><br> ><br> > ;; added to my empty .emacs:<br> > (add-to-list 'load-path "~/elisp/ecb")<br> > (require 'ecb)<br> ><br> > Running ecb-activate gives me this stack race:<br> ><br> > Debugger entered--Lisp error: (void-variable stack-trace-on-error)<br> > =A0 apply(debug error (void-variable stack-trace-on-error))<br> > =A0 edebug(error (void-variable stack-trace-on-error))<br> > =A0 signal(void-variable (stack-trace-on-error))<br> > =A0 edebug-signal(void-variable (stack-trace-on-error))<br> > =A0 (let ((stack-trace-on-error stack-trace-on-error)) (when<br> > (run-hook-with-args-until-failure (quote ecb-before-activate-hook)) (w= hen (<<br> > max-specpdl-size 3000) (ecb-modify-emacs-variable (quote max-specpdl-s= ize)<br> > (quote store) 3000)) (when (< max-lisp-eval-depth 1000)<br> > (ecb-modify-emacs-variable (quote max-lisp-eval-depth) (quote store) 1= 000))<br> > (when (and ecb-running-xemacs (boundp (quote<br> > progress-feedback-use-echo-area))) (ecb-modify-emacs-variable (quote<b= r> > progress-feedback-use-echo-area) (quote store) t)) (ecb-check-cedet-lo= ad)<br> > (ecb-check-semantic-load) (ecb-check-requirements) (condition-case err= -obj<br> > (progn (ecb-nav-initialize) (ecb-enable-advices (quote<br> > ecb-methods-browser-advices)) (when (and ecb-auto-compatibility-check = (not<br> > ecb-upgrade-check-done)) (ecb-check-not-compatible-options)<br> > (ecb-upgrade-not-compatible-options) (ecb-upgrade-renamed-options) (se= tq<br> > ecb-upgrade-check-done t)) (ecb-initialize-layout)<br> > (ecb-initialize-all-internals (not ecb-clear-caches-before-activate))<= br> > (ecb-enable-advices (quote ecb-permanent-adviced-layout-functions))<br= > > (ecb-enable-advices (quote ecb-winman-not-supported-function-advices))= <br> > (ecb-enable-advices (quote ecb-compatibility-advices)) (let ((old-ecb-= frame<br> > ecb-frame)) (if ecb-new-ecb-frame (progn (run-hooks ...) (setq ecb-fra= me<br> > ...) (put ... ... t)) (setq ecb-frame (selected-frame)) (put (quote<br= > > ecb-frame) (quote ecb-new-frame-created) nil)) (if (not (equal ecb-fra= me<br> > old-ecb-frame)) (ecb-edit-area-creators-init))) (raise-frame ecb-frame= )<br> > (select-frame ecb-frame) (ecb-enable-own-temp-buffer-show-function t)<= br> > (ecb-tree-buffer-creators-run) (ecb-eshell-activate-integration) (add-= hook<br> > (ecb--semantic-after-partial-cache-change-hook) (quote<br> > ecb-update-after-partial-reparse) t) (add-hook<br> > (ecb--semantic-after-toplevel-cache-change-hook) (quote<br> > ecb-rebuild-methods-buffer-with-tagcache) t)<br> > (ecb-activate-ecb-autocontrol-function ecb-highlight-tag-with-point-de= lay<br> > (quote ecb-tag-sync)) (ecb-activate-ecb-autocontrol-function<br> > ecb-basic-buffer-sync-delay (quote ecb-basic-buffer-sync))<br> > (ecb-activate-ecb-autocontrol-function ecb-compilation-update-idle-tim= e<br> > (quote ecb-compilation-buffer-list-changed-p))<br> > (ecb-activate-ecb-autocontrol-function (quote post) (quote<br> > ecb-layout-post-command-hook)) (ecb-activate-ecb-autocontrol-function = (quote<br> > pre) (quote ecb-layout-pre-command-hook))<br> > (ecb-activate-ecb-autocontrol-function 0.5 (quote<br> > ecb-repair-only-ecb-window-layout)) (ecb-activate-ecb-autocontrol-func= tion<br> > (quote post) (quote ecb-handle-major-mode-visibilty)) (add-hook (quote= <br> > after-save-hook) (quote ecb-update-methods-after-saving)) (add-hook (q= uote<br> > kill-buffer-hook) (quote ecb-kill-buffer-hook)) (add-hook (quote<br> > find-file-hooks) (quote ecb-find-file-hook))<br> > (ecb-activate-ecb-autocontrol-function 1 (quote<br> > ecb-monitor-autocontrol-functions)) (ecb-stealthy-function-state-init)= <br> > (ecb-activate-ecb-autocontrol-function ecb-stealthy-tasks-delay (quote= <br> > ecb-stealthy-updates)) (ecb-compilation-buffer-list-init)<br> > (ecb-activate-ediff-compatibility) (ecb-vc-enable-internals 1) (when<b= r> > ecb-running-xemacs (let ((dummy-buf-name " *dummytogetglobalmap*&= quot;))<br> > (with-current-buffer (get-buffer-create dummy-buf-name) (add-submenu n= il<br> > ecb-minor-menu) (kill-buffer dummy-buf-name))) (save-excursion (dolist= (buf<br> > ...) (set-buffer buf) (if ... ...)))) (add-hook (if ecb-running-xemacs= <br> > (quote activate-menubar-hook) (quote menu-bar-update-hook)) (quote<br> > ecb-compilation-update-menu))) (error (ecb-clean-up-after-activation-f= ailure<br> > "Errors during the basic setup of ECB." err-obj))) (conditio= n-case err-obj<br> > (run-hooks (quote ecb-activate-before-layout-draw-hook)) (error<br> > (ecb-clean-up-after-activation-failure "Errors during the hooks o= f<br> > ecb-activate-before-layout-draw-hook." err-obj))) (setq ecb-minor= -mode t)<br> > (condition-case err-obj (let ((ecb-redraw-layout-quickly nil)<br> > (use-last-win-conf (and ecb-last-window-config-before-deactivation (eq= ual<br> > ecb-split-edit-window-after-start ...) (not ...))))<br> > (ecb-enable-temp-buffer-shrink-to-fit ecb-compile-window-height) (if<b= r> > use-last-win-conf (setq ecb-edit-area-creators (nth 4<br> > ecb-last-window-config-before-deactivation))) (ecb-redraw-layout-full = (quote<br> > no-buffer-sync) nil (and use-last-win-conf (nth 6<br> > ecb-last-window-config-before-deactivation)) (and use-last-win-conf (n= th 5<br> > ecb-last-window-config-before-deactivation))) (if (and use-last-win-co= nf<br> > (null (nth 2 ecb-last-window-config-before-deactivation)))<br> > (ecb-toggle-compile-window -1)) (when (member<br> > ecb-split-edit-window-after-start (quote (vertical horizontal nil)))<b= r> > (delete-other-windows) (case ecb-split-edit-window-after-start (horizo= ntal<br> > (split-window-horizontally)) (vertical (split-window-vertically))))<br= > > (ecb-window-sync) (ecb-mode-line-format)) (error<br> > (ecb-clean-up-after-activation-failure "Errors during the layout = setup of<br> > ECB." err-obj))) (condition-case err-obj (let ((edit-window (car<= br> > (ecb-canonical-edit-windows-list)))) (when (and<br> > ecb-display-default-dir-after-start (null (ecb-buffer-file-name ...)))= <br> > (ecb-set-selected-directory (ecb-fix-filename (with-current-buffer ...= <br> > default-directory))))) (error (ecb-clean-up-after-activation-failure &= quot;Errors<br> > during setting the default directory." err-obj))) (condition-case= err-obj<br> > (run-hooks (quote ecb-activate-hook)) (error<br> > (ecb-clean-up-after-activation-failure "Errors during the hooks o= f<br> > ecb-activate-hook." err-obj))) (condition-case err-obj (if<br> > (ecb-show-any-node-info-by-mouse-moving-p)<br> > (tree-buffer-activate-follow-mouse)) (error<br> > (ecb-clean-up-after-activation-failure "Errors during the mouse-t= racking<br> > activation." err-obj))) (setq ecb-minor-mode t) (message "Th= e ECB is now<br> > activated.") (condition-case err-obj (if (and ecb-auto-compatibil= ity-check<br> > (or (ecb-not-compatible-or-renamed-options-detected) (not<br> > (ecb-options-version=3Decb-version-p)))) (ecb-run-with-idle-timer 0.25= nil<br> > (quote ecb-display-upgraded-options)) (ecb-display-news-for-upgrade)) = (error<br> > (ecb-clean-up-after-activation-failure "Error during the compatib= ility-check<br> > of ECB." err-obj))) (ignore-errors (when (null ecb-source-path) (= let<br> > ((ecb-show-help-format (quote info))) (ecb-show-help) (Info-goto-node = "First<br> > steps")))) (ignore-errors (ecb-show-tip-of-the-day)) (ecb-enable-= advices<br> > (quote ecb-layout-basic-adviced-functions)) (condition-case err-obj (s= etq<br> > ecb-activated-window-configuration (ecb-current-window-configuration))= <br> > (error (ecb-clean-up-after-activation-failure "Errors during the = snapshot of<br> > the windows-configuration." err-obj)))))<br> > =A0 (if ecb-minor-mode (when (and (not (equal (selected-frame) ecb-fra= me)) (or<br> > (equal ecb-activation-selects-ecb-frame-if-already-active t) (and (equ= al<br> > ecb-activation-selects-ecb-frame-if-already-active (quote ask)) (y-or-= n-p<br> > "ECB is already active in another frame. Select it? "))))<br= > > (ecb-select-ecb-frame) (ecb-update-directories-buffer)) (let<br> > ((stack-trace-on-error stack-trace-on-error)) (when<br> > (run-hook-with-args-until-failure (quote ecb-before-activate-hook)) (w= hen (<<br> > max-specpdl-size 3000) (ecb-modify-emacs-variable (quote max-specpdl-s= ize)<br> > (quote store) 3000)) (when (< max-lisp-eval-depth 1000)<br> > (ecb-modify-emacs-variable (quote max-lisp-eval-depth) (quote store) 1= 000))<br> > (when (and ecb-running-xemacs (boundp (quote<br> > progress-feedback-use-echo-area))) (ecb-modify-emacs-variable (quote<b= r> > progress-feedback-use-echo-area) (quote store) t)) (ecb-check-cedet-lo= ad)<br> > (ecb-check-semantic-load) (ecb-check-requirements) (condition-case err= -obj<br> > (progn (ecb-nav-initialize) (ecb-enable-advices (quote<br> > ecb-methods-browser-advices)) (when (and ecb-auto-compatibility-check = (not<br> > ecb-upgrade-check-done)) (ecb-check-not-compatible-options)<br> > (ecb-upgrade-not-compatible-options) (ecb-upgrade-renamed-options) (se= tq<br> > ecb-upgrade-check-done t)) (ecb-initialize-layout)<br> > (ecb-initialize-all-internals (not ecb-clear-caches-before-activate))<= br> > (ecb-enable-advices (quote ecb-permanent-adviced-layout-functions))<br= > > (ecb-enable-advices (quote ecb-winman-not-supported-function-advices))= <br> > (ecb-enable-advices (quote ecb-compatibility-advices)) (let ((old-ecb-= frame<br> > ecb-frame)) (if ecb-new-ecb-frame (progn ... ... ...) (setq ecb-frame = ...)<br> > (put ... ... nil)) (if (not ...) (ecb-edit-area-creators-init)))<br> > (raise-frame ecb-frame) (select-frame ecb-frame)<br> > (ecb-enable-own-temp-buffer-show-function t) (ecb-tree-buffer-creators= -run)<br> > (ecb-eshell-activate-integration) (add-hook<br> > (ecb--semantic-after-partial-cache-change-hook) (quote<br> > ecb-update-after-partial-reparse) t) (add-hook<br> > (ecb--semantic-after-toplevel-cache-change-hook) (quote<br> > ecb-rebuild-methods-buffer-with-tagcache) t)<br> > (ecb-activate-ecb-autocontrol-function ecb-highlight-tag-with-point-de= lay<br> > (quote ecb-tag-sync)) (ecb-activate-ecb-autocontrol-function<br> > ecb-basic-buffer-sync-delay (quote ecb-basic-buffer-sync))<br> > (ecb-activate-ecb-autocontrol-function ecb-compilation-update-idle-tim= e<br> > (quote ecb-compilation-buffer-list-changed-p))<br> > (ecb-activate-ecb-autocontrol-function (quote post) (quote<br> > ecb-layout-post-command-hook)) (ecb-activate-ecb-autocontrol-function = (quote<br> > pre) (quote ecb-layout-pre-command-hook))<br> > (ecb-activate-ecb-autocontrol-function 0.5 (quote<br> > ecb-repair-only-ecb-window-layout)) (ecb-activate-ecb-autocontrol-func= tion<br> > (quote post) (quote ecb-handle-major-mode-visibilty)) (add-hook (quote= <br> > after-save-hook) (quote ecb-update-methods-after-saving)) (add-hook (q= uote<br> > kill-buffer-hook) (quote ecb-kill-buffer-hook)) (add-hook (quote<br> > find-file-hooks) (quote ecb-find-file-hook))<br> > (ecb-activate-ecb-autocontrol-function 1 (quote<br> > ecb-monitor-autocontrol-functions)) (ecb-stealthy-function-state-init)= <br> > (ecb-activate-ecb-autocontrol-function ecb-stealthy-tasks-delay (quote= <br> > ecb-stealthy-updates)) (ecb-compilation-buffer-list-init)<br> > (ecb-activate-ediff-compatibility) (ecb-vc-enable-internals 1) (when<b= r> > ecb-running-xemacs (let (...) (with-current-buffer ... ... ...))<br> > (save-excursion (dolist ... ... ...))) (add-hook (if ecb-running-xemac= s<br> > (quote activate-menubar-hook) (quote menu-bar-update-hook)) (quote<br> > ecb-compilation-update-menu))) (error (ecb-clean-up-after-activation-f= ailure<br> > "Errors during the basic setup of ECB." err-obj))) (conditio= n-case err-obj<br> > (run-hooks (quote ecb-activate-before-layout-draw-hook)) (error<br> > (ecb-clean-up-after-activation-failure "Errors during the hooks o= f<br> > ecb-activate-before-layout-draw-hook." err-obj))) (setq ecb-minor= -mode t)<br> > (condition-case err-obj (let ((ecb-redraw-layout-quickly nil)<br> > (use-last-win-conf (and ecb-last-window-config-before-deactivation ...= <br> > ...))) (ecb-enable-temp-buffer-shrink-to-fit ecb-compile-window-height= ) (if<br> > use-last-win-conf (setq ecb-edit-area-creators (nth 4<br> > ecb-last-window-config-before-deactivation))) (ecb-redraw-layout-full = (quote<br> > no-buffer-sync) nil (and use-last-win-conf (nth 6<br> > ecb-last-window-config-before-deactivation)) (and use-last-win-conf (n= th 5<br> > ecb-last-window-config-before-deactivation))) (if (and use-last-win-co= nf<br> > (null ...)) (ecb-toggle-compile-window -1)) (when (member<br> > ecb-split-edit-window-after-start (quote ...)) (delete-other-windows) = (case<br> > ecb-split-edit-window-after-start (horizontal ...) (vertical ...)))<br= > > (ecb-window-sync) (ecb-mode-line-format)) (error<br> > (ecb-clean-up-after-activation-failure "Errors during the layout = setup of<br> > ECB." err-obj))) (condition-case err-obj (let ((edit-window (car = ...)))<br> > (when (and ecb-display-default-dir-after-start (null ...))<br> > (ecb-set-selected-directory (ecb-fix-filename ...)))) (error<br> > (ecb-clean-up-after-activation-failure "Errors during setting the= default<br> > directory." err-obj))) (condition-case err-obj (run-hooks (quote<= br> > ecb-activate-hook)) (error (ecb-clean-up-after-activation-failure &quo= t;Errors<br> > during the hooks of ecb-activate-hook." err-obj))) (condition-cas= e err-obj<br> > (if (ecb-show-any-node-info-by-mouse-moving-p)<br> > (tree-buffer-activate-follow-mouse)) (error<br> > (ecb-clean-up-after-activation-failure "Errors during the mouse-t= racking<br> > activation." err-obj))) (setq ecb-minor-mode t) (message "Th= e ECB is now<br> > activated.") (condition-case err-obj (if (and ecb-auto-compatibil= ity-check<br> > (or (ecb-not-compatible-or-renamed-options-detected) (not ...)))<br> > (ecb-run-with-idle-timer 0.25 nil (quote ecb-display-upgraded-options)= )<br> > (ecb-display-news-for-upgrade)) (error<br> > (ecb-clean-up-after-activation-failure "Error during the compatib= ility-check<br> > of ECB." err-obj))) (ignore-errors (when (null ecb-source-path) (= let<br> > ((ecb-show-help-format ...)) (ecb-show-help) (Info-goto-node "Fir= st<br> > steps")))) (ignore-errors (ecb-show-tip-of-the-day)) (ecb-enable-= advices<br> > (quote ecb-layout-basic-adviced-functions)) (condition-case err-obj (s= etq<br> > ecb-activated-window-configuration (ecb-current-window-configuration))= <br> > (error (ecb-clean-up-after-activation-failure "Errors during the = snapshot of<br> > the windows-configuration." err-obj))))))<br> > =A0 ecb-activate--impl()<br> > =A0 (if ecb-use-recursive-edit (if ecb-minor-mode (progn (message &quo= t;ECB already<br> > activated. Drawing layout.") (ecb-redraw-layout)) (catch (quote e= xit) (progn<br> > (ecb-activate--impl) (recursive-edit)) (ecb-deactivate-internal)))<br> > (ecb-activate--impl))<br> > =A0 ecb-activate-internal()<br> > =A0 (if new-state (ecb-activate-internal) (ecb-deactivate-internal))<b= r> > =A0 (let ((new-state (if (null arg) (not ecb-minor-mode) (><br> > (prefix-numeric-value arg) 0)))) (if new-state (ecb-activate-internal)= <br> > (ecb-deactivate-internal)))<br> > =A0 ecb-minor-mode(1)<br> > =A0 (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1))<br> > =A0 (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))= ()<br> > =A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-be= fore 0)<br> > 1 (ecb-minor-mode 1))))<br> > =A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-be= fore 0)<br> > 1 (ecb-minor-mode 1))))<br> > =A0 ecb-activate()<br> > =A0 call-interactively(ecb-activate t nil)<br> > =A0 execute-extended-command(nil)<br> > =A0 call-interactively(execute-extended-command nil nil)<br> > =A0 recursive-edit()<br> > =A0 edebug-recursive-edit()<br> > =A0 edebug-display()<br> > =A0 edebug-debugger(0 before nil)<br> > =A0 edebug-before(0)<br> > =A0 (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1))<br> > =A0 (lambda nil (edebug-after (edebug-before 0) 1 (ecb-minor-mode 1)))= ()<br> > =A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-be= fore 0)<br> > 1 (ecb-minor-mode 1))))<br> > =A0 edebug-enter(ecb-activate nil (lambda nil (edebug-after (edebug-be= fore 0)<br> > 1 (ecb-minor-mode 1))))<br> > =A0 ecb-activate()<br> > =A0 call-interactively(ecb-activate t nil)<br> > =A0 execute-extended-command(nil)<br> > =A0 call-interactively(execute-extended-command nil nil)<br> ><br> ><br> > On Thu, Jun 7, 2012 at 12:35 PM, Alex Ott <<a href=3D"mailto:alexot= [email protected]">[email protected]</a>> wrote:<br> >><br> >> 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<br> >> Emacs from trunk (Emacs 24.1) and CEDET both from bzr repository<b= r> >> (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 yo= ur<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.n= et/</a><br> >> Tiwtter: alexott_en (English), alexott (Russian)<br> >> Skype: alex.ott<br> >><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. Disc= ussions<br> >> will include endpoint security, mobile security and the latest in = malware<br> >> threats. <a href=3D"http://www.accelacomm.com/jaw/sfrnl04242012/11= 4/50122263/" target=3D"_blank">http://www.accelacomm.com/jaw/sfrnl04242012/= 114/50122263/</a><br> >> _______________________________________________<br> >> Ecb-list mailing list<br> >> <a href=3D"mailto:[email protected]">[email protected]= ourceforge.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> ><br> ><br> <br> <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> </div></div></blockquote></div><br></div> --0015175924e2abd5d504c1e6921b-- --===============5257483686114254957== 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/ --===============5257483686114254957== 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 --===============5257483686114254957==--