[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/olivetti 1a2a2eb 1/2: Call olivetti-set-all-margins fro

From: Paul Rankin
Subject: [elpa] externals/olivetti 1a2a2eb 1/2: Call olivetti-set-all-margins from olivetti-expand/-set-width
Date: Sun, 19 May 2019 09:07:45 -0400 (EDT)

branch: externals/olivetti
commit 1a2a2eba0a86a3530edcbadfc627f2156ef77c65
Author: Paul W. Rankin <address@hidden>
Commit: Paul W. Rankin <address@hidden>

    Call olivetti-set-all-margins from olivetti-expand/-set-width
 olivetti.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/olivetti.el b/olivetti.el
index a64607e..a15df1b 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -259,7 +259,7 @@ fraction of the window width."
              (read-number "Set text body width (integer or float): "
   (setq olivetti-body-width n)
-  (olivetti-set-margins)
+  (olivetti-set-all-margins)
   (message "Text body width set to %s" olivetti-body-width))
 (defun olivetti-expand (&optional arg)
@@ -273,7 +273,7 @@ If prefixed with ARG, incrementally decrease."
                   ((floatp olivetti-body-width)
                    (+ olivetti-body-width (* 0.01 p))))))
     (setq olivetti-body-width (olivetti-safe-width n (selected-window))))
-  (olivetti-set-margins)
+  (olivetti-set-all-margins)
   (message "Text body width set to %s" olivetti-body-width)
    (let ((map (make-sparse-keymap)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]