Mercurial > hg > xemacs-beta

diff lisp/vm/vm-window.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 441bb1e64a06
children 05472e90ae02
line wrap: on
line diff
--- a/lisp/vm/vm-window.el	Mon Aug 13 08:51:58 2007 +0200
+++ b/lisp/vm/vm-window.el	Mon Aug 13 08:52:29 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)))