# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1159935189 0
# Node ID f1f0120b8ead44a5a2fbd7add6d4524e2d963c1c
# Parent  54742554f07e9fefdbd403ddb1afd1cf7fb859c8
(sh-prev-thing): Remove (forward-char 1) now
that it's been made unnecessary by removing narrowing.

diff -r 54742554f07e -r f1f0120b8ead lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Oct 03 20:47:08 2006 +0000
+++ b/lisp/ChangeLog	Wed Oct 04 04:13:09 2006 +0000
@@ -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 -r 54742554f07e -r f1f0120b8ead lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Tue Oct 03 20:47:08 2006 +0000
+++ b/lisp/progmodes/sh-script.el	Wed Oct 04 04:13:09 2006 +0000
@@ -2492,10 +2492,6 @@
                       (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))