Stephen: Might you have overlooked this bit in expand-abbrev?

[Eric Hanchrow]

I've been struggling with weird abbrev behavior that I can't articulate
clearly (which is why I haven't yet reported a bug).  However, while
stepping through expand-abbrev, I noticed what seems like an oversight.
I made the following change, which might fix, or at least work around,
some of the weirdness.  Does it seem reasonable to you?

Index: abbrev.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/abbrev.el,v
retrieving revision 1.58
diff -w -u -b -u -r1.58 abbrev.el
--- abbrev.el   31 Oct 2007 15:47:02 -0000      1.58
+++ abbrev.el   3 Nov 2007 19:10:58 -0000
@@ -778,7 +778,8 @@
                     (goto-char wordstart)
                     (skip-syntax-forward "^w" (1- end))
                     ;; Change just that.
-                    (upcase-initials-region (point) (1+ (point))))))))
+                    (upcase-initials-region (point) (1+ (point)))
+                    (goto-char end))))))
           (when (symbol-function sym)
             (let* ((hook (symbol-function sym))
                    (expanded


Diffs between working revision and workfile end here.