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

that it's been made unnecessary by removing narrowing.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c00cbada7ab5853aa60138917c7e5a0969290d5..d62f5640da53e3cca24484e7d135f81de2a65e86 100644 (file)
--- 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 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))