Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-window.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 4be1180a9e89
children 360340f9fd5f
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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 134 ;; for XEmacs/MULE
135 (and (fboundp 'set-file-coding-system) 135 (and (vm-xemacs-mule-p)
136 (set-file-coding-system 'no-conversion)) 136 (set-file-coding-system 'no-conversion))
137 (erase-buffer) 137 (erase-buffer)
138 (print vm-window-configurations (current-buffer)) 138 (print vm-window-configurations (current-buffer))
139 (write-region (point-min) (point-max) file nil 0)) 139 (write-region (point-min) (point-max) file nil 0))
140 (and work-buffer (kill-buffer work-buffer)))))) 140 (and work-buffer (kill-buffer work-buffer))))))