(allout-before-change-handler): Replace got-char by goto-char.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8ff1f4827c..3b281434770 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-29  Martin Rudalics  <rudalics@gmx.at>
+
+        * allout.el (allout-before-change-handler): Replace got-char by
+        goto-char.
+
 2007-09-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * vc-svn.el (vc-svn-resolve-when-done, vc-svn-find-file-hook): New funs.
diff --git a/lisp/allout.el b/lisp/allout.el
index d243a188812..1f748fb0026 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -2191,7 +2191,7 @@ See allout-overlay-interior-modification-handler for details."
   (when (and (featurep 'xemacs) (allout-mode-p))
     ;; process all of the pending overlays:
     (save-excursion
-      (got-char beg)
+      (goto-char beg)
       (let ((overlay (allout-get-invisibility-overlay)))
         (allout-overlay-interior-modification-handler
          overlay nil beg end nil)))))