]> git.eshelyaron.com Git - emacs.git/commitdiff
(sh-prev-thing): Remove (forward-char 1) now
authorStefan Monnier <monnier@iro.umontreal.ca>
Wed, 4 Oct 2006 04:13:09 +0000 (04:13 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Wed, 4 Oct 2006 04:13:09 +0000 (04:13 +0000)
that it's been made unnecessary by removing narrowing.

lisp/ChangeLog
lisp/progmodes/sh-script.el

index 6c00cbada7ab5853aa60138917c7e5a0969290d5..d62f5640da53e3cca24484e7d135f81de2a65e86 100644 (file)
@@ -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
 
 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>
 
 
 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.
index e1c175489590edfa443f196810b1c014c3e548fc..a15cc216f75ed2292b4e2fbe6091f841b52913ac 100644 (file)
@@ -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))