Bug in xemacs 21.5 (beta27)

[Adrian Aichner]

"Kfir Zigdon" <zigkfir at gmail.com> writes:

> Hi,
> I'm using xemacs with the package of ecb. lately I replaced my OS which now
> comes with xemacs 21.5.27, and I can't activate ecb package anymore since it
> enters to
> somthing that look like an endless loop.
> Can you help me please?
> Thanks, Kfir

Hello Kfir, webmaster is not the right place to send development
issues and bug reports.

I am copying the appropriate list, xemacs-beta.

I'm sorry to say this is a well-known problem, only partially
diagnosed, most recently by Aidan.

Hopefully your report will spur more activity on this issue.

Best regards!

Adrian

>
> after I kill xemacs I get this kind of output in my terminal:
>
>   # bind (frame)
>   current-window-configuration()
>   # (unwind-protect ...)
>   # bind (current-frame current-point list window minibuf frame)
>   ecb-window-list(#<x-frame "XEmacs" 0x29234> 0 #<window on "*scratch*"
> 0x2923a>)
>   ecb-canonical-windows-list()
>   # bind (winlist)
>   ecb-canonical-ecb-windows-list()
>   ecb-get-current-visible-ecb-buffers()
>   (if ecb-windows-hidden nil (ecb-get-current-visible-ecb-buffers))
>   (list ad-return-value (if ecb-windows-hidden nil
> (ecb-get-current-visible-ecb-buffers)) (if (ecb-compile-window-live-p)
> (ecb-position (ecb-canonical-windows-list) ecb-compile-window)) (list
> ecb-frame ecb-layout-name ecb-compile-window-height ecb-compile-window-width
> ecb-windows-width ecb-windows-height) ecb-edit-area-creators
> ecb-windows-hidden (ecb-window-configuration-data))
>   (ecb-window-config-cache-add (list ad-return-value (if ecb-windows-hidden
> nil (ecb-get-current-visible-ecb-buffers)) (if (ecb-compile-window-live-p)
> (ecb-position (ecb-canonical-windows-list) ecb-compile-window)) (list
> ecb-frame ecb-layout-name ecb-compile-window-height ecb-compile-window-width
> ecb-windows-width ecb-windows-height) ecb-edit-area-creators
> ecb-windows-hidden (ecb-window-configuration-data)))
>   (if (equal f ecb-frame) (ecb-window-config-cache-add (list ad-return-value
> (if ecb-windows-hidden nil (ecb-get-current-visible-ecb-buffers)) (if
> (ecb-compile-window-live-p) (ecb-position (ecb-canonical-windows-list)
> ecb-compile-window)) (list ecb-frame ecb-layout-name ecb-compile-window-height
> ecb-compile-window-width ecb-windows-width ecb-windows-height)
> ecb-edit-area-creators ecb-windows-hidden (ecb-window-configuration-data))))
>   (when (equal f ecb-frame) (ecb-window-config-cache-add (list ad-return-value
> (if ecb-windows-hidden nil (ecb-get-current-visible-ecb-buffers)) (if
> (ecb-compile-window-live-p) (ecb-position (ecb-canonical-windows-list)
> ecb-compile-window)) (list ecb-frame ecb-layout-name ecb-compile-window-height
> ecb-compile-window-width ecb-windows-width ecb-windows-height)
> ecb-edit-area-creators ecb-windows-hidden (ecb-window-configuration-data))))
>   # bind (f)
>   (let ((f (or frame (selected-frame)))) (when (equal f ecb-frame)
> (ecb-window-config-cache-add (list ad-return-value (if ecb-windows-hidden nil
> (ecb-get-current-visible-ecb-buffers)) (if (ecb-compile-window-live-p)
> (ecb-position (ecb-canonical-windows-list) ecb-compile-window)) (list
> ecb-frame ecb-layout-name ecb-compile-window-height ecb-compile-window-width
> ecb-windows-width ecb-windows-height) ecb-edit-area-creators
> ecb-windows-hidden (ecb-window-configuration-data)))))
>   # (condition-case ... . ((error (ecb-layout-debug-error "advice of
> current-window-configuration failed: (error-type: %S, error-data: %S)" (car
> oops) (cdr oops)))))
>   (condition-case oops (let ((f (or frame (selected-frame)))) (when (equal f
> ecb-frame) (ecb-window-config-cache-add (list ad-return-value (if
> ecb-windows-hidden nil (ecb-get-current-visible-ecb-buffers)) (if
> (ecb-compile-window-live-p) (ecb-position (ecb-canonical-windows-list)
> ecb-compile-window)) (list ecb-frame ecb-layout-name ecb-compile-window-height
> ecb-compile-window-width ecb-windows-width ecb-windows-height)
> ecb-edit-area-creators ecb-windows-hidden (ecb-window-configuration-data)))))
> (error (ecb-layout-debug-error "advice of current-window-configuration failed:
> (error-type: %S, error-data: %S)" (car oops) (cdr oops))))
>   # bind (ad-return-value)
>   (let (ad-return-value) (setq ad-return-value
> (ad-Orig-current-window-configuration frame)) (condition-case oops (let ((f
> (or frame (selected-frame)))) (when (equal f ecb-frame)
> (ecb-window-config-cache-add (list ad-return-value (if ecb-windows-hidden nil
> (ecb-get-current-visible-ecb-buffers)) (if (ecb-compile-window-live-p)
> (ecb-position (ecb-canonical-windows-list) ecb-compile-window)) (list
> ecb-frame ecb-layout-name ecb-compile-window-height ecb-compile-window-width
> ecb-windows-width ecb-windows-height) ecb-edit-area-creators
> ecb-windows-hidden (ecb-window-configuration-data))))) (error
> (ecb-layout-debug-error "advice of current-window-configuration failed:
> (error-type: %S, error-data: %S)" (car oops) (cdr oops)))) ad-return-value
> ad-return-value)
>   # bind (frame)
>   current-window-configuration()
>   # (unwind-protect ...)
>   # bind (current-frame current-point list window minibuf frame)
>   ecb-window-list(#<x-frame "XEmacs" 0x29234> 0 #<window on "*scratch*"
> 0x2923a>)
>   ecb-canonical-windows-list()
>   # bind (winlist)
>   ecb-canonical-ecb-windows-list()
>   ecb-get-current-visible-ecb-buffers()
>   (if ecb-windows-hidden nil (ecb-get-current-visible-ecb-buffers))
>   (list ad-return-value (if ecb-windows-hidden nil
> (ecb-get-current-visible-ecb-buffers)) (if (ecb-compile-window-live-p)
> (ecb-position (ecb-canonical-windows-list) ecb-compile-window)) (list
> ecb-frame ecb-layout-name ecb-compile-window-height ecb-compile-window-width
> ecb-windows-width ecb-windows-height) ecb-edit-area-creators
> ecb-windows-hidden (ecb-window-configuration-data))
>   (ecb-window-config-cache-add (list ad-return-value (if ecb-windows-hidden
> nil (ecb-get-current-visible-ecb-buffers)) (if (ecb-compile-window-live-p)
> (ecb-position (ecb-canonical-windows-list) ecb-compile-window)) (list
> ecb-frame ecb-layout-name ecb-compile-window-height ecb-compile-window-width
> ecb-windows-width ecb-windows-height) ecb-edit-area-creators
> ecb-windows-hidden (ecb-window-configuration-data)))
>   (if (equal f ecb-frame) (ecb-window-config-cache-add (list ad-return-value
> (if ecb-windows-hidden nil (ecb-get-current-visible-ecb-buffers)) (if
> (ecb-compile-window-live-p) (ecb-position (ecb-canonical-windows-list)
> ecb-compile-window)) (list ecb-frame ecb-layout-name ecb-compile-window-height
> ecb-compile-window-width ecb-windows-width ecb-windows-height)
> ecb-edit-area-creators ecb-windows-hidden (ecb-window-configuration-data))))
>   (when (equal f ecb-frame) (ecb-window-config-cache-add (list ad-return-value
> (if ecb-windows-hidden nil (ecb-get-current-visible-ecb-buffers)) (if
> (ecb-compile-window-live-p) (ecb-position (ecb-canonical-windows-list)
> ecb-compile-window)) (list ecb-frame ecb-layout-name ecb-compile-window-height
> ecb-compile-window-width ecb-windows-width ecb-windows-height)
> ecb-edit-area-creators ecb-windows-hidden (ecb-window-configuration-data))))
>   # bind (f)
>   (let ((f (or frame (selected-frame)))) (when (equal f ecb-frame)
> (ecb-window-config-cache-add (list ad-return-value (if ecb-windows-hidden nil
> (ecb-get-current-visible-ecb-buffers)) (if (ecb-compile-window-live-p)
> (ecb-position (ecb-canonical-windows-list) ecb-compile-window)) (list
> ecb-frame ecb-layout-name ecb-compile-window-height ecb-compile-window-width
> ecb-windows-width ecb-windows-height) ecb-edit-area-creators
> ecb-windows-hidden (ecb-window-configuration-data)))))
>   # (condition-case ... . ((error (ecb-layout-debug-error "advice of
> current-window-configuration failed: (error-type: %S, error-data: %S)" (car
> oops) (cdr oops)))))
>   (condition-case oops (let ((f (or frame (selected-frame)))) (when (equal f
> ecb-frame) (ecb-window-config-cache-add (list ad-return-value (if
> ecb-windows-hidden nil (ecb-get-current-visible-ecb-buffers)) (if
> (ecb-compile-window-live-p) (ecb-position (ecb-canonical-windows-list)
> ecb-compile-window)) (list ecb-frame ecb-layout-name ecb-compile-window-height
> ecb-compile-window-width ecb-windows-width ecb-windows-height)
> ecb-edit-area-creators ecb-windows-hidden (ecb-window-configuration-data)))))
> (error (ecb-layout-debug-error "advice of current-window-configuration failed:
> (error-type: %S, error-data: %S)" (car oops) (cdr oops))))
>   # bind (ad-return-value)
>   (let (ad-return-value) (setq ad-return-value
> (ad-Orig-current-window-configuration frame)) (condition-case oops (let ((f
> (or frame (selected-frame)))) (when (equal f ecb-frame)
> (ecb-window-config-cache-add (list ad-return-value (if ecb-windows-hidden nil
> (ecb-get-current-visible-ecb-buffers)) (if (ecb-compile-window-live-p)
> (ecb-position (ecb-canonical-windows-list) ecb-compile-window)) (list
> ecb-frame ecb-layout-name ecb-compile-window-height ecb-compile-window-width
> ecb-windows-width ecb-windows-height) ecb-edit-area-creators
> ecb-windows-hidden (ecb-window-configuration-data))))) (error
> (ecb-layout-debug-error "advice of current-window-configuration failed:
> (error-type: %S, error-data: %S)" (car oops) (cdr oops)))) ad-return-value
> ad-return-value)
>
> _______________________________________________
> XEmacs-Services mailing list
> XEmacs-Services at xemacs.org
> http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-services

-- 
Adrian Aichner
 mailto:adrian at xemacs.org
 http://www.xemacs.org/