changeset 73241:f1f0120b8ead

(sh-prev-thing): Remove (forward-char 1) now that it's been made unnecessary by removing narrowing.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 04 Oct 2006 04:13:09 +0000
parents 54742554f07e
children 696c451fedeb
files lisp/ChangeLog lisp/progmodes/sh-script.el
diffstat 2 files changed, 7 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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))