diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-09-17 00:27:20 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-09-17 00:27:20 +0800 |
| commit | 40d70ecb6d11f87363b500db5665d8b433278687 (patch) | |
| tree | 1f35c31eb65bd2cf9a3cbed2844f955372f7d4fb | |
| parent | 0b97c030c678e7c77766e13e615ef2ce8394860a (diff) | |
Fix marker usage in align-areas.
* align.el (align-areas): Call the indication function with
positions instead of markers for arguments.
Fixes: debbugs:12343
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/align.el | 5 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b444761e55..9eeba6691c 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 4c82d7bea8..b5c4c442f2 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)) |