diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-05-30 14:29:25 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-05-30 14:29:25 +0000 |
| commit | 63b98362a903e7a25363753cf1349d30fc13a791 (patch) | |
| tree | 851d57c45b75c0ddd8afc6c16b133a1f0765df1d /lisp/emulation | |
| parent | 6d459c4d919e70ae44fab621371040cffc97e047 (diff) | |
| download | emacs-63b98362a903e7a25363753cf1349d30fc13a791.tar.gz | |
(viper-skip-syntax): Bug fix for eob/bob cases.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-util.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 6cad4511d28..111edd10b6a 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el @@ -1295,7 +1295,10 @@ This option is appropriate if you like Emacs-style words." (t nil))) (if (memq ?^ syntax) (setq negated-syntax t)) - (while (and (not (= local 0)) (not (eobp))) + (while (and (not (= local 0)) + (cond ((eq direction 'forward) + (not (eobp))) + (t (not (bobp))))) (setq char-looked-at (viper-char-at-pos direction) ;; if outside the range, set to nil syntax-of-char-looked-at (if char-looked-at |