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

that it's been made unnecessary by removing narrowing.

2 files changed, 7 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c00cbada7a..d62f5640da5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * progmodes/sh-script.el (sh-prev-thing): Remove (forward-char 1) now
+        that it's been made unnecessary by removing narrowing.
+
 2006-10-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * progmodes/sh-script.el (sh-prev-thing): Massage to untangle the
@@ -285,8 +290,7 @@
 
 2006-09-22  Chong Yidong  <cyd@stupidchicken.com>
 
-        * files.el (save-some-buffers-action-alist): Display diff in
-        view-mode.
+        * files.el (save-some-buffers-action-alist): Display diff in view-mode.
 
 2006-09-22  Masatake YAMATO  <jet@gyve.org>
 
@@ -320,8 +324,7 @@
 
 2006-09-20  Kenichi Handa  <handa@m17n.org>
 
-        * isearch.el (isearch-process-search-char): Cancel the previous
-        change.
+        * isearch.el (isearch-process-search-char): Cancel the previous change.
         (isearch-search-string): New function.
         (isearch-search): Use isearch-search-string.
         (isearch-lazy-highlight-search): Likewise.
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index e1c17548959..a15cc216f75 100644
--- 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))