Mercurial > emacs
changeset 12204:a7bd91d4af97
(vip-over-whitespace-line): new function.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 13 Jun 1995 21:20:59 +0000 |
| parents | 0078571e5330 |
| children | 9c9efd263390 |
| files | lisp/emulation/viper-util.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/viper-util.el Tue Jun 13 21:20:36 1995 +0000 +++ b/lisp/emulation/viper-util.el Tue Jun 13 21:20:59 1995 +0000 @@ -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 @@ (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