Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-window.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 7d55a9ba150c
children b980b6286996
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
131 (let ((work-buffer nil)) 131 (let ((work-buffer nil))
132 (unwind-protect 132 (unwind-protect
133 (progn 133 (progn
134 (set-buffer (setq work-buffer (get-buffer-create "*vm-wconfig*"))) 134 (set-buffer (setq work-buffer (get-buffer-create "*vm-wconfig*")))
135 ;; for XEmacs/MULE 135 ;; for XEmacs/MULE
136 (and (vm-xemacs-mule-p) 136 (and vm-xemacs-mule-p
137 (set-buffer-file-coding-system 'no-conversion)) 137 (set-buffer-file-coding-system 'no-conversion))
138 (erase-buffer) 138 (erase-buffer)
139 (print vm-window-configurations (current-buffer)) 139 (print vm-window-configurations (current-buffer))
140 (write-region (point-min) (point-max) file nil 0)) 140 (write-region (point-min) (point-max) file nil 0))
141 (and work-buffer (kill-buffer work-buffer)))))) 141 (and work-buffer (kill-buffer work-buffer))))))
447 (defun vm-replace-buffer-in-windows (old new) 447 (defun vm-replace-buffer-in-windows (old new)
448 (vm-window-loop 'replace old new)) 448 (vm-window-loop 'replace old new))
449 449
450 (defun vm-bury-buffer (&optional buffer) 450 (defun vm-bury-buffer (&optional buffer)
451 (or buffer (setq buffer (current-buffer))) 451 (or buffer (setq buffer (current-buffer)))
452 (if (vm-xemacs-p) 452 (if vm-xemacs-p
453 (if (vm-multiple-frames-possible-p) 453 (if (vm-multiple-frames-possible-p)
454 (vm-frame-loop 'bury buffer) 454 (vm-frame-loop 'bury buffer)
455 (bury-buffer buffer)) 455 (bury-buffer buffer))
456 (bury-buffer buffer))) 456 (bury-buffer buffer)))
457 457
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 ;; 2 April 1997, frame-totallyt-visible-p apparently still broken 647 ;; 2 April 1997, frame-totally-visible-p apparently still broken
648 ;; under 19.15. I give it up for now. 648 ;; under 19.15. I give up for now.
649 ;;(if (and (fboundp 'frame-totally-visible-p) 649 ;;(if (and (fboundp 'frame-totally-visible-p)
650 ;; (vm-xemacs-p) 650 ;; vm-xemacs-p
651 ;; (or (>= emacs-major-version 20) 651 ;; (or (>= emacs-major-version 20)
652 ;; (>= emacs-minor-version 15))) 652 ;; (>= emacs-minor-version 15)))
653 ;; (fset 'vm-frame-totally-visible-p 'frame-totally-visible-p) 653 ;; (fset 'vm-frame-totally-visible-p 'frame-totally-visible-p)
654 ;; (fset 'vm-frame-totally-visible-p 'vm-frame-visible-p)) 654 ;; (fset 'vm-frame-totally-visible-p 'vm-frame-visible-p))
655 (fset 'vm-frame-totally-visible-p 'vm-frame-visible-p) 655 (fset 'vm-frame-totally-visible-p 'vm-frame-visible-p)