[Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v

[Michael Kifer]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Kifer <kifer>   08/04/03 21:04:20

Index: emulation/viper-cmd.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-cmd.el,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -b -r1.74 -r1.75
--- emulation/viper-cmd.el      1 Mar 2008 20:14:46 -0000       1.74
+++ emulation/viper-cmd.el      3 Apr 2008 21:04:18 -0000       1.75
@@ -3450,7 +3450,8 @@
 ;; (which is called from viper-search-forward/backward/next).  If the value of
 ;; viper-search-scroll-threshold is negative - don't scroll.
 (defun viper-adjust-window ()
-  (let ((win-height (if (featurep 'xemacs) (window-displayed-height)
+  (let ((win-height (if (featurep 'xemacs)
+                       (window-displayed-height)
                      (1- (window-height)))) ; adjust for modeline
        (pt (point))
        at-top-p at-bottom-p