diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-11-26 23:28:11 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-11-26 23:32:52 +0100 |
commit | ae9ac316a58f8d4450f1fb730688210c95de4c20 (patch) | |
tree | 248e7c80e3d38f360344c0da382a67f911e37b2a | |
parent | 00500afb8ced99ccaf9334ca183bc572bb6ae29a (diff) | |
download | org-mode-ae9ac316a58f8d4450f1fb730688210c95de4c20.tar.gz |
Erase `org-insert-labeled-timestamps-at-point'
* lisp/org.el (org-insert-labeled-timestamps-at-point): Remove
variable.
(org-add-planning-info): Remove reference to removed variable.
* lisp/org-agenda.el (org-agenda-schedule, org-agenda-deadline):
Remove reference to removed variable.
* etc/ORG-NEWS (Skipping): Document removal.
Org syntax assumes planning info line is always right below the
headline. Setting this variable to anything but nil defeats that and,
as a consequence, produces invalid planning lines.
-rw-r--r-- | etc/ORG-NEWS | 4 | ||||
-rw-r--r-- | lisp/org-agenda.el | 2 | ||||
-rwxr-xr-x | lisp/org.el | 20 |
3 files changed, 7 insertions, 19 deletions
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 79d2a95..cf013f0 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -86,6 +86,10 @@ styles when changing the shell type. Changing the shell type can now be done directly from the source block and the quoting style has to be compatible across all shells, so a customization doesn't make sense anymore. The chosen hard coded quoting style conforms to POSIX. +*** Removed option ~org-insert-labeled-timestamps-at-point~ +Setting this option to anything else that the default value (nil) +would create invalid planning info. This dangerous option is now +removed. ** New features *** Additional markup with =#+INCLUDE= keyword The content of the included file can now be optionally marked up, for diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 2b5a8ec..b2e54e6 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9237,7 +9237,6 @@ ARG is passed through to `org-schedule'." (type (marker-insertion-type marker)) (buffer (marker-buffer marker)) (pos (marker-position marker)) - (org-insert-labeled-timestamps-at-point nil) ts) (set-marker-insertion-type marker t) (org-with-remote-undo buffer @@ -9258,7 +9257,6 @@ ARG is passed through to `org-deadline'." (org-agenda-error))) (buffer (marker-buffer marker)) (pos (marker-position marker)) - (org-insert-labeled-timestamps-at-point nil) ts) (org-with-remote-undo buffer (with-current-buffer buffer diff --git a/lisp/org.el b/lisp/org.el index 9372191..9c627e9 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -3100,14 +3100,6 @@ as an argument and return the numeric priority." :tag "Org Time" :group 'org) -(defcustom org-insert-labeled-timestamps-at-point nil - "Non-nil means SCHEDULED and DEADLINE timestamps are inserted at point. -When nil, these labeled time stamps are forces into the second line of an -entry, just after the headline. When scheduling from the global TODO list, -the time stamp will always be forced into the second line." - :group 'org-time - :type 'boolean) - (defcustom org-time-stamp-rounding-minutes '(0 5) "Number of minutes to round time stamps to. These are two values, the first applies when first creating a time stamp. @@ -13513,21 +13505,15 @@ be removed." (when what (setq time (if (stringp time) - ;; This is a string (relative or absolute), set proper date - (apply 'encode-time + ;; This is a string (relative or absolute), set + ;; proper date. + (apply #'encode-time (org-read-date-analyze time default-time (decode-time default-time))) ;; If necessary, get the time from the user (or time (org-read-date nil 'to-time nil nil default-time default-input))))) - (when (and org-insert-labeled-timestamps-at-point - (memq what '(scheduled deadline))) - (insert - (if (eq what 'scheduled) org-scheduled-string org-deadline-string) " ") - (org-insert-time-stamp time org-time-was-given - nil nil nil (list org-end-time-was-given)) - (setq what nil)) (org-with-wide-buffer (let (col list elt ts buffer-invisibility-spec) (org-back-to-heading t) |