Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-window.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents fe104dbd9147
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
642 642
643 ;; frame-totally-visible-p is broken under XEmacs 19.14 and is 643 ;; frame-totally-visible-p is broken under XEmacs 19.14 and is
644 ;; absent under Emacs 19.34. So vm-frame-per-summary won't work 644 ;; absent under Emacs 19.34. So vm-frame-per-summary won't work
645 ;; quite right under these Emacs versions. XEmacs 19.15 should 645 ;; quite right under these Emacs versions. XEmacs 19.15 should
646 ;; have a working version of this function. 646 ;; have a working version of this function.
647 (if (and (fboundp 'frame-totally-visible-p) 647 ;; 2 April 1997, frame-totallyt-visible-p apparently still broken
648 (vm-xemacs-p) 648 ;; under 19.15. I give it up for now.
649 (or (>= emacs-major-version 20) 649 ;;(if (and (fboundp 'frame-totally-visible-p)
650 (>= emacs-minor-version 15))) 650 ;; (vm-xemacs-p)
651 (fset 'vm-frame-totally-visible-p 'frame-totally-visible-p) 651 ;; (or (>= emacs-major-version 20)
652 (fset 'vm-frame-totally-visible-p 'vm-frame-visible-p)) 652 ;; (>= emacs-minor-version 15)))
653 ;; (fset 'vm-frame-totally-visible-p 'frame-totally-visible-p)
654 ;; (fset 'vm-frame-totally-visible-p 'vm-frame-visible-p))
655 (fset 'vm-frame-totally-visible-p 'vm-frame-visible-p)
653 656
654 (fset 'vm-window-frame 657 (fset 'vm-window-frame
655 (symbol-function 658 (symbol-function
656 (cond ((fboundp 'window-frame) 'window-frame) 659 (cond ((fboundp 'window-frame) 'window-frame)
657 ((fboundp 'window-screen) 'window-screen) 660 ((fboundp 'window-screen) 'window-screen)