Browse Source

Merge branch 'maint'

Kyle Meyer 4 years ago
parent
commit
f4692572ba
2 changed files with 4 additions and 4 deletions
  1. 1 1
      lisp/org-clock.el
  2. 3 3
      lisp/org.el

+ 1 - 1
lisp/org-clock.el

@@ -1366,7 +1366,7 @@ the default behavior."
 			(end-of-line 0)
 			(end-of-line 0)
 			(org-in-item-p)))
 			(org-in-item-p)))
 	     (beginning-of-line 1)
 	     (beginning-of-line 1)
-	     (indent-line-to (- (current-indentation) 2)))
+	     (indent-line-to (max 0 (- (current-indentation) 2))))
 	   (insert org-clock-string " ")
 	   (insert org-clock-string " ")
 	   (setq org-clock-effort (org-entry-get (point) org-effort-property))
 	   (setq org-clock-effort (org-entry-get (point) org-effort-property))
 	   (setq org-clock-total-time (org-clock-sum-current-item
 	   (setq org-clock-total-time (org-clock-sum-current-item

+ 3 - 3
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
 outlines by indenting text in each node to align with the
 headline (after the stars).
 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
 indentation of the data lines right below the headline, such as
 planning/clock lines and property/logbook drawers.
 planning/clock lines and property/logbook drawers.
 
 
@@ -1613,9 +1613,9 @@ time in Emacs."
   :type '(choice
   :type '(choice
 	  (const :tag "Adapt indentation for all lines" t)
 	  (const :tag "Adapt indentation for all lines" t)
 	  (const :tag "Adapt indentation for headline data lines"
 	  (const :tag "Adapt indentation for headline data lines"
-		 'headline-data)
+		 headline-data)
 	  (const :tag "Do not adapt indentation at all" nil))
 	  (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)
 (defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e)