Changeset 3892 for vendor/emacs-CVS_HEAD/lisp/emulation/viper-util.el

Timestamp:

10/02/05 07:23:38 (3 years ago)

Author:

miyoshi

Message:

Update.

Files:

• vendor/emacs-CVS_HEAD/lisp/emulation/viper-util.el (modified) (3 diffs)

vendor/emacs-CVS_HEAD/lisp/emulation/viper-util.el

@@ -1406 +1406 @@
-                       (or within-line "\n")
-                       (if within-line (viper-line-pos 'end)))))
+
-(defsubst viper-skip-all-separators-backward (&optional within-line)
-  (if (eq viper-syntax-preference 'strict-vi)
@@ -1434 +1435 @@
-     viper-non-word-characters
-     (viper-line-pos 'end))))
+
-(defun viper-skip-nonalphasep-backward ()
-  (if (eq viper-syntax-preference 'strict-vi)
@@ -1503 +1505 @@
-    ))
-
+;; tells when point is at the beginning of field
+(defun viper-beginning-of-field ()
+  (or (bobp)
+      (not (eq (get-char-property (point) 'field)
+               (get-char-property (1- (point)) 'field)))))
+
-
-;; this is copied from cl-extra.el