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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8ff1f4827c679b1db67dff2f08294f400a5d15c..3b281434770965ddeceef1ab282785f868fe1173 100644 (file)
--- 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 d243a188812e2a07caab902792ed98b66ab85e51..1f748fb0026e3ca44888c6f1fc0befea84b07f6f 100644 (file)
--- 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)))))