* lisp/progmodes/idlw-shell.el (idlwave-shell-make-temp-file): Optimize

[bpt/emacs.git] / lisp / progmodes / subword.el

diff --git a/lisp/progmodes/subword.el b/lisp/progmodes/subword.el
index 50e4b42..a8455c5 100644 (file)
--- a/lisp/progmodes/subword.el
+++ b/lisp/progmodes/subword.el
@@ -355,8 +355,10 @@ searching subwords in order to avoid unwanted reentrancy.")
         (save-restriction
           (if (< pos limit)
               (progn
+                (goto-char pos)
                 (narrow-to-region (point-min) limit)
                 (funcall subword-forward-function))
+            (goto-char (1+ pos))
             (narrow-to-region limit (point-max))
             (funcall subword-backward-function))
           (point))))))