[Emacs-diffs] Changes to emacs/lisp/emulation/viper-util.el

[Michael Kifer]

Index: emacs/lisp/emulation/viper-util.el
diff -c emacs/lisp/emulation/viper-util.el:1.57 
emacs/lisp/emulation/viper-util.el:1.58
*** emacs/lisp/emulation/viper-util.el:1.57     Sat Aug  6 16:58:54 2005
--- emacs/lisp/emulation/viper-util.el  Tue Sep 20 17:47:26 2005
***************
*** 1405,1410 ****
--- 1405,1411 ----
                       viper-SEP-char-class
                       (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)
        (if within-line
***************
*** 1433,1438 ****
--- 1434,1440 ----
       ;; Emacs may consider some of these as words, but we don't want them
       viper-non-word-characters
       (viper-line-pos 'end))))
+ 
  (defun viper-skip-nonalphasep-backward ()
    (if (eq viper-syntax-preference 'strict-vi)
        (skip-chars-backward
***************
*** 1501,1506 ****
--- 1503,1514 ----
        (setq total (+ total local)))
      total
      ))
+ 
+ ;; 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