(viper-backward-Word, viper-skip-separators): Bug fixes.

(viper-switch-to-buffer, viper-switch-to-buffer-other-window): Bug fixes.

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index cfb98fd8ca26e418f40acab648a1b8c14e220bbc..1ccb84c34bfd4651969d326464418e332038b428 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -2549,11 +2549,16 @@ On reaching beginning of line, stop and signal error."
            (progn
              (forward-char)
              (viper-skip-all-separators-forward  'within-line))))
+    ;; check for eob and white space before it. move off of eob
+    (if (and (eobp) (save-excursion
+                     (viper-backward-char-carefully)
+                     (viper-looking-at-separator)))
+       (viper-backward-char-carefully))
     (viper-skip-all-separators-backward 'within-line)
     (viper-backward-char-carefully)
     (if (looking-at "\n")
        (viper-skip-all-separators-backward 'within-line)
-      (forward-char))))
+      (or (bobp) (forward-char)))))
       
 (defun viper-forward-word-kernel (val)
   (while (> val 0)
@@ -3737,24 +3742,20 @@ Null string will repeat previous search."
 (defun viper-switch-to-buffer ()
   "Switch to buffer in the current window."
   (interactive)
-  (let (buffer)
+  (let ((other-buffer (other-buffer (current-buffer)))
+       buffer)
     (setq buffer
-         (read-buffer
-          (format "Switch to buffer in this window \(%s\): "
-                  (buffer-name (other-buffer (current-buffer))))))
-    (switch-to-buffer buffer)
-    ))
+         (read-buffer "Switch to buffer in this window: " other-buffer))
+    (switch-to-buffer buffer)))
 
 (defun viper-switch-to-buffer-other-window ()
   "Switch to buffer in another window."
   (interactive)
-  (let (buffer)
+  (let ((other-buffer (other-buffer (current-buffer)))
+       buffer)
     (setq buffer
-         (read-buffer
-          (format "Switch to buffer in another window \(%s\): "
-                  (buffer-name (other-buffer (current-buffer))))))
-    (switch-to-buffer-other-window buffer)
-    ))
+         (read-buffer "Switch to buffer in another window: " other-buffer))
+    (switch-to-buffer-other-window buffer)))
 
 (defun viper-kill-buffer ()
   "Kill a buffer."