Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-window.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children ec9a17fef872
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
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))))))