No offense taken :-) I'm sure there's a one liner that might take care of it, but my Lisp knowledge (so far ;-) is too limited so I haven't found it yet.
Christian > -----Ursprungliche Nachricht----- > Von: Andrew Hyatt [mailto:[EMAIL PROTECTED]] > Gesendet: Montag, 13. Januar 2003 18:19 > An: Schmitt, Christian (ext.) > Cc: [EMAIL PROTECTED] > Betreff: Re: JDEbug - Show debug frame on XEmacs > > > > Sorry, I don't meet to imply that your workaround isn't good. But > maybe there's an xemacs make-frame-names-alist equivalent, so it could > be a one line change. > > Andrew Hyatt <[EMAIL PROTECTED]> writes: > > > Your problem sounds unsurprising. Like a lot of brand new jde code, > > it is not tested on xemacs. Thanks for bringing this to my > attention, > > I'll see if there is a good workaround (those more familiar with > > xemacs please let me know if you know this), else I'll use something > > like your workaround. > > > > "Schmitt, Christian (ext.)" > <[EMAIL PROTECTED]> writes: > > > >> Hi, > >> today I used JDEbug for the first time. I clicked on "Show > debug frame" in > >> the "JDEbug" menu > >> which didn't work on XEmacs 21.4.11 [Win32 native] (JDE > 2.3.2) with an > >> error, that > >> 'make-fram-names-alist function definition is void. > >> > >> Now I don't know if there's an XEmacs equivalent to this function. > >> Right now I work around it by putting this in my .emacs: > >> ; > >> ; XEmacs does not have 'make-fram-names-alist > >> ; so we define it when it's not there. > >> ; Source is taken from GNU Emacs' frame.el where > >> ; function 'frame-parameter (in GNU Emacs) hase been > >> ; replaced by 'frame-property > >> ; > >> (if (not (fboundp 'make-frame-names-alist)) > >> (defun make-frame-names-alist () > >> (let* ((current-frame (selected-frame)) > >> (falist > >> (cons > >> (cons (frame-property current-frame 'name) > current-frame) > >> nil)) > >> (frame (next-frame nil t))) > >> (while (not (eq frame current-frame)) > >> (progn > >> (setq falist (cons (cons (frame-property frame > 'name) frame) > >> falist)) > >> (setq frame (next-frame frame t)))) > >> falist)) > >> ) > >> > >> > >> Cheers, > >> Christian Schmitt >
