>From 7952540977a5281310edf190c81b8d811218d6ed Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Tue, 29 May 2018 17:59:46 +0200 Subject: [PATCH] org-agenda: Keep text-scale at agenda-redo * lisp/org-agenda.el (org-agenda-redo): Save and restore `text-scale-mode-amount'. --- lisp/org-agenda.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 24b752498..8eab8fe43 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7318,7 +7318,9 @@ in the agenda." (cons (or cpa (car last-args)) (cdr last-args))) ((stringp last-args) last-args)))) - (series-redo-cmd (get-text-property p 'org-series-redo-cmd))) + (series-redo-cmd (get-text-property p 'org-series-redo-cmd)) + (before-text-scale-mode-amount + (when (boundp' text-scale-mode-amount) text-scale-mode-amount))) (put 'org-agenda-tag-filter :preset-filter nil) (put 'org-agenda-category-filter :preset-filter nil) (put 'org-agenda-regexp-filter :preset-filter nil) @@ -7350,6 +7352,7 @@ in the agenda." (when re (org-agenda-filter-apply re 'regexp))) (and top-hl-filter (org-agenda-filter-top-headline-apply top-hl-filter)) (and cols (called-interactively-p 'any) (org-agenda-columns)) + (and before-text-scale-mode-amount (text-scale-set before-text-scale-mode-amount)) (org-goto-line line) (recenter window-line))) -- 2.17.0