[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] C-u C-u C-c ! inserts an active timestamp.
From: |
Nicolas Richard |
Subject: |
[O] C-u C-u C-c ! inserts an active timestamp. |
Date: |
Mon, 16 Sep 2013 15:42:25 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
I suggest the following change so that C-u C-u C-c ! inserts an inactive
timestamp. I also document the INACTIVE argument of org-time-stamp.
--
Nicolas.
>From 5cdb18297d92f2d99334d98aa2f3b8a40e44702f Mon Sep 17 00:00:00 2001
From: Nicolas Richard <address@hidden>
Date: Mon, 29 Apr 2013 09:02:21 +0200
Subject: [PATCH] Enforce the convention that C-c ! inserts inactive
timestamps.
* lisp/org.el (org-time-stamp): When INACTIVE is non-nil, insert an
inactive timestamp also with double universal argument.
---
lisp/org.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 59a22a2..044d06f 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -16036,7 +16036,10 @@ If there is already a timestamp at the cursor, it will
be
modified.
With two universal prefix arguments, insert an active timestamp
-with the current time without prompting the user."
+with the current time without prompting the user.
+
+When called from lisp, the timestamp is inactive if INACTIVE is
+non-nil."
(interactive "P")
(let* ((ts nil)
(default-time
@@ -16083,7 +16086,7 @@ with the current time without prompting the user."
" " repeater ">"))))
(message "Timestamp updated"))
((equal arg '(16))
- (org-insert-time-stamp (current-time) t))
+ (org-insert-time-stamp (current-time) t inactive))
(t
(setq time (let ((this-command this-command))
(org-read-date arg 'totime nil nil default-time
default-input inactive)))
--
1.8.1.5
- [O] C-u C-u C-c ! inserts an active timestamp.,
Nicolas Richard <=