# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 896538536 0
# Node ID 3649674ebf29694956e6ad2e6d166bd5946778a5
# Parent  95a8d00b0c5cf73a094e5576374370dd832700d2
(viper-backward-Word, viper-skip-separators): Bug fixes.
(viper-switch-to-buffer, viper-switch-to-buffer-other-window): Bug fixes.

diff -r 95a8d00b0c5c -r 3649674ebf29 lisp/emulation/viper-cmd.el
--- a/lisp/emulation/viper-cmd.el	Sat May 30 13:27:52 1998 +0000
+++ b/lisp/emulation/viper-cmd.el	Sat May 30 14:28:56 1998 +0000
@@ -2549,11 +2549,16 @@
 	    (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 @@
 (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."