Fix marker usage in align-areas.

* align.el (align-areas): Call the indication function with
positions instead of markers for arguments.

Fixes: debbugs:12343

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b444761e55cd635564337ffb9c51f6229cff8b3c..9eeba6691c68b17c4d4f72795d5e8a54b75a546a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-09-16  Chong Yidong  <cyd@gnu.org>
 
+       * align.el (align-areas): Call the indication function with
+       positions instead of markers for arguments (Bug#12343).
+
        * files.el (parse-colon-path): Use split-string (Bug#12351).
 
        * window.el (special-display-popup-frame): Doc fix (Bug#8853).

diff --git a/lisp/align.el b/lisp/align.el
index 4c82d7bea81a377503d9b4310cbdf06c9453487a..b5c4c442f2485e484c74d87d97a2f8aa00f4401f 100644 (file)
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1201,7 +1201,10 @@ have been aligned.  No changes will be made to the buffer."
              (gocol col) cur)
          (when area
            (if func
-               (funcall func (car area) (cdr area) change)
+               (funcall func
+                        (marker-position (car area))
+                        (marker-position (cdr area))
+                        change)
              (if (not (and justify
                            (consp (cdr area))))
                  (goto-char (cdr area))