Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-window.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 859a2309aef8
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
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