From 40d70ecb6d11f87363b500db5665d8b433278687 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 17 Sep 2012 00:27:20 +0800 Subject: [PATCH] Fix marker usage in align-areas. * align.el (align-areas): Call the indication function with positions instead of markers for arguments. Fixes: debbugs:12343 --- lisp/ChangeLog | 3 +++ lisp/align.el | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + * 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)) -- 2.39.2