# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756711778 0
# Node ID abf0d4d016816c39c68a5af0334efd72b4dc4ecc
# Parent  37ea8707b17553638b651f80b7fffea9d13d6280
(shell-backward-command): If comint-bol moves forward,
use real beginning of line instead.
Use skip-syntax-backward properly.
If backward search finds a separator, move forward over it.
(shell-forward-command): Call skip-syntax-backward properly.

diff -r 37ea8707b175 -r abf0d4d01681 lisp/shell.el
--- a/lisp/shell.el	Fri Dec 24 04:38:03 1993 +0000
+++ b/lisp/shell.el	Fri Dec 24 05:42:58 1993 +0000
@@ -589,7 +589,7 @@
   (let ((limit (save-excursion (end-of-line nil) (point))))
     (if (re-search-forward (concat shell-command-regexp "\\([;&|][\\s ]*\\)+")
 			   limit 'move arg)
-	(skip-syntax-backward "^\\s "))))
+	(skip-syntax-backward " "))))
 
 
 (defun shell-backward-command (&optional arg)
@@ -597,11 +597,13 @@
 See `shell-command-regexp'."
   (interactive "p")
   (let ((limit (save-excursion (comint-bol nil) (point))))
-    (skip-syntax-backward "\\s " limit)
+    (if (> limit (point))
+	(save-excursion (beginning-of-line) (setq limit (point))))
+    (skip-syntax-backward " " limit)
     (if (re-search-backward
 	 (format "[;&|]+[\\s ]*\\(%s\\)" shell-command-regexp) limit 'move arg)
 	(progn (goto-char (match-beginning 1))
-	       (skip-syntax-backward "^\\s ")))))
+	       (skip-chars-forward ";&|")))))
 
 
 (defun shell-get-current-command ()