Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 5526:9a046b2e6494

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix get-other-frame bug. -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2011-06-23 Didier Verna <didier@xemacs.org> From smitchel <smitchel@bnin.net> * frame.el (get-other-frame): Add missing first argument THIS to the call to NEXT-FRAME.
author Didier Verna <didier@lrde.epita.fr>
date Thu, 23 Jun 2011 08:55:35 +0200
parents ac37a5f7e5be
children cc6f0266bc36
comparison
equal deleted inserted replaced
5525:2a6a8da4dd7c 5526:9a046b2e6494
600 (let* ((this (selected-frame)) 600 (let* ((this (selected-frame))
601 ;; search visible frames first 601 ;; search visible frames first
602 (next (next-frame this 'visible-nomini))) 602 (next (next-frame this 'visible-nomini)))
603 ;; then search iconified frames 603 ;; then search iconified frames
604 (if (eq this next) 604 (if (eq this next)
605 (setq next (next-frame 'visible-iconic-nomini))) 605 (setq next (next-frame this 'visible-iconic-nomini)))
606 (if (eq this next) 606 (if (eq this next)
607 ;; otherwise, make a new frame 607 ;; otherwise, make a new frame
608 (make-frame) 608 (make-frame)
609 next))) 609 next)))
610 610