(sh-prev-thing): Remove (forward-char 1) now

[gnu-emacs] / lisp / progmodes / sh-script.el

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index e1c175489590edfa443f196810b1c014c3e548fc..a15cc216f75ed2292b4e2fbe6091f841b52913ac 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -2492,10 +2492,6 @@ we go to the end of the previous line and do not check for continuations."
                       (if next (setq boundary next))
                       (sh-debug "Now at %d   start=%d" (point) start)
                       (setq kwd (sh-get-word))
-                      ;; The reason for this next line is unclear.
-                      ;; <md5i@cs.cmu.edu> says "the need for this was
-                      ;; expermientally determined".  --Stef
-                      (when (< (point) start) (forward-char 1))
                       (if (member kwd (sh-feature sh-leading-keywords))
                           (progn
                             (setq next (point))