Mercurial > hg > xemacs-beta

diff lisp/vm/vm-window.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents a145efe76779
children fe104dbd9147
line wrap: on
line diff
--- a/lisp/vm/vm-window.el	Mon Aug 13 09:17:27 2007 +0200
+++ b/lisp/vm/vm-window.el	Mon Aug 13 09:18:39 2007 +0200
@@ -83,7 +83,8 @@
 	   ((and buffer (not display))
 	    (if (and vm-undisplay-buffer-hook
 		     (vm-get-visible-buffer-window buffer))
-		(progn (run-hooks 'vm-undisplay-buffer-hook)
+		(progn (set-buffer buffer)
+		       (run-hooks 'vm-undisplay-buffer-hook)
 		       (vm-record-current-window-configuration nil))
 	      (if (not (and (memq this-command commands)
 			    (apply 'vm-set-window-configuration configs)))