emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/org f469257: Merge branch 'maint'


From: ELPA Syncer
Subject: [elpa] externals/org f469257: Merge branch 'maint'
Date: Wed, 17 Feb 2021 00:57:11 -0500 (EST)

branch: externals/org
commit f4692572baa082394bcf6c27c59deebe2f62c3c4
Merge: f5cfd32 4ab2a4b
Author: Kyle Meyer <kyle@kyleam.com>
Commit: Kyle Meyer <kyle@kyleam.com>

    Merge branch 'maint'
---
 lisp/org-clock.el | 2 +-
 lisp/org.el       | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 72f84f6..c94f607 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -1366,7 +1366,7 @@ the default behavior."
                        (end-of-line 0)
                        (org-in-item-p)))
             (beginning-of-line 1)
-            (indent-line-to (- (current-indentation) 2)))
+            (indent-line-to (max 0 (- (current-indentation) 2))))
           (insert org-clock-string " ")
           (setq org-clock-effort (org-entry-get (point) org-effort-property))
           (setq org-clock-total-time (org-clock-sum-current-item
diff --git a/lisp/org.el b/lisp/org.el
index ed209c3..7d87334 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -1587,7 +1587,7 @@ When this variable is set to t, Org assumes that you write
 outlines by indenting text in each node to align with the
 headline (after the stars).
 
-When this variable is set to 'headline-data, only adapt the
+When this variable is set to `headline-data', only adapt the
 indentation of the data lines right below the headline, such as
 planning/clock lines and property/logbook drawers.
 
@@ -1613,9 +1613,9 @@ time in Emacs."
   :type '(choice
          (const :tag "Adapt indentation for all lines" t)
          (const :tag "Adapt indentation for headline data lines"
-                'headline-data)
+                headline-data)
          (const :tag "Do not adapt indentation at all" nil))
-  :safe #'booleanp)
+  :safe (lambda (x) (memq x '(t nil headline-data))))
 
 (defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e)
 



reply via email to

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