From: Chong Yidong <cyd@gnu.org>
Date: Sun, 16 Sep 2012 16:27:20 +0000 (+0800)
Subject: Fix marker usage in align-areas.
X-Git-Tag: emacs-24.2.90~269^2~75
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40d70ecb6d11f87363b500db5665d8b433278687;p=emacs.git

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 b444761e55c..9eeba6691c6 100644
--- 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 4c82d7bea81..b5c4c442f24 100644
--- 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))