(vip-over-whitespace-line): new function.

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 3a0962d47b2b061ea61a211c7240749941b007f2..36d7d54c996af3de4f81ee1b4b10cc274f5f1ce5 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -20,7 +20,7 @@
 (require 'ring)
 
 ;; Whether it is XEmacs or not
-(defconst vip-xemacs-p (string-match "\\(Lucid\\|Xemacs\\)" emacs-version))
+(defconst vip-xemacs-p (string-match "\\(Lucid\\|XEmacs\\)" emacs-version))
 ;; Whether it is Emacs or not
 (defconst vip-emacs-p (not vip-xemacs-p))
 ;; Tell whether we are running as a window application or on a TTY
@@ -479,6 +479,12 @@ Type any key to continue..." emacs-version))
           (format "%s%s%s%s"
                   pre-string truncated-str abbrev-sign post-string))
          (t (format "%s%s%s" pre-string truncated-str post-string)))))
+
+;; tells if we are over a whitespace-only line
+(defsubst vip-over-whitespace-line ()
+  (save-excursion
+    (beginning-of-line)
+    (looking-at "^[ \t]*$")))
          
 \f
 ;;; Saving settings in custom file