From c8085774990cdfc8f66c9edf3945a80890b4d947 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 13 Jun 1995 21:20:59 +0000 Subject: [PATCH] (vip-over-whitespace-line): new function. --- lisp/emulation/viper-util.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 3a0962d47b2..36d7d54c996 100644 --- 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]*$"))) ;;; Saving settings in custom file -- 2.39.2