[Emacs-diffs] /srv/bzr/emacs/trunk r110050: Fix marker usage in align-areas.

[Chong Yidong]

------------------------------------------------------------
revno: 110050
fixes bug: http://debbugs.gnu.org/12343
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2012-09-17 00:27:20 +0800
message:
  Fix marker usage in align-areas.
  
  * align.el (align-areas): Call the indication function with
  positions instead of markers for arguments.
modified:
  lisp/ChangeLog
  lisp/align.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-16 15:57:28 +0000
+++ b/lisp/ChangeLog    2012-09-16 16:27:20 +0000
@@ -1,5 +1,8 @@
 2012-09-16  Chong Yidong  <address@hidden>
 
+       * 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).

=== modified file 'lisp/align.el'
--- a/lisp/align.el     2012-08-09 07:34:53 +0000
+++ b/lisp/align.el     2012-09-16 16:27:20 +0000
@@ -1201,7 +1201,10 @@
              (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))