Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-window.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children a145efe76779
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
129 (save-excursion 129 (save-excursion
130 (let ((work-buffer nil)) 130 (let ((work-buffer nil))
131 (unwind-protect 131 (unwind-protect
132 (progn 132 (progn
133 (set-buffer (setq work-buffer (get-buffer-create "*vm-wconfig*"))) 133 (set-buffer (setq work-buffer (get-buffer-create "*vm-wconfig*")))
134 ;; for XEmacs/MULE
135 (and (fboundp 'set-file-coding-system)
136 (set-file-coding-system 'no-conversion))
134 (erase-buffer) 137 (erase-buffer)
135 (print vm-window-configurations (current-buffer)) 138 (print vm-window-configurations (current-buffer))
136 (write-region (point-min) (point-max) file nil 0)) 139 (write-region (point-min) (point-max) file nil 0))
137 (and work-buffer (kill-buffer work-buffer)))))) 140 (and work-buffer (kill-buffer work-buffer))))))
138 141