[Emacs-diffs] Changes to emacs/lisp/vc.el,v [EMACS_22_BASE]

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Stefan Monnier <monnier>        08/01/24 14:12:13

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.424.2.10
retrieving revision 1.424.2.11
diff -u -b -r1.424.2.10 -r1.424.2.11
--- vc.el       7 Jan 2008 02:44:07 -0000       1.424.2.10
+++ vc.el       24 Jan 2008 14:12:09 -0000      1.424.2.11
@@ -1853,7 +1853,8 @@
                      (if (eq (buffer-size) 0)
                          (insert "No differences found.\n"))
                      (goto-char (point-min))
-                     (shrink-window-if-larger-than-buffer)))
+                      (let ((win (get-buffer-window (current-buffer) t)))
+                        (if win (shrink-window-if-larger-than-buffer win)))))
     t))
 
 (defun vc-diff-label (file file-rev rev)