From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 30 May 1998 14:28:56 +0000 (+0000)
Subject: (viper-backward-Word, viper-skip-separators): Bug fixes.
X-Git-Tag: emacs-20.3~794
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d459c4d919e70ae44fab621371040cffc97e047;p=emacs.git

(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 cfb98fd8ca2..1ccb84c34bf 100644
--- 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."