mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1995-06-13 21:20:59 +00:00
parent 15f8998b59
commit c808577499
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emulation/viper-util.el
View File

@ -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