comparison lisp/progmodes/sh-script.el @ 73241:f1f0120b8ead

(sh-prev-thing): Remove (forward-char 1) now that it's been made unnecessary by removing narrowing.

73240:54742554f07e

                          (sh-debug "point: %d >= start: %d" (point) start)
                          nil)
                      (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.
                      ;; <[e-mail]> 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))
                            t)
                        nil))))

73241:f1f0120b8ead

                          (sh-debug "point: %d >= start: %d" (point) start)
                          nil)
                      (if next (setq boundary next))
                      (sh-debug "Now at %d   start=%d" (point) start)
                      (setq kwd (sh-get-word))
                      (if (member kwd (sh-feature sh-leading-keywords))
                          (progn
                            (setq next (point))
                            t)
                        nil))))