diff options
Diffstat (limited to 'lisp/align.el')
| -rw-r--r-- | lisp/align.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/align.el b/lisp/align.el index 443237b451b..cd72d52df47 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -1216,9 +1216,12 @@ have been aligned. No changes will be made to the buffer." (when area (if func (funcall func - (marker-position (car area)) - (marker-position (cdr area)) - change) + (marker-position (car area)) + (marker-position (if (and justify + (consp (cdr area))) + (cadr area) + (cdr area))) + change) (if (not (and justify (consp (cdr area)))) (goto-char (cdr area)) |