ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Move `org-at-clock-log-p' from org-clock.el to org.el 

* org.el (org-at-clock-log-p): Delete.
* org-clock.el (org-at-clock-log-p): Move here.
This commit is contained in:
Bastien Guerry 2013-02-24 19:16:33 +01:00
parent b6b509bfd4
commit ac44a7af06
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-clock.el
View File

@ -1545,12 +1545,6 @@ to, overriding the existing value of `org-clock-out-switch-to-state'."
(org-remove-empty-drawer-at clock-drawer (point)) (org-remove-empty-drawer-at clock-drawer (point))
(forward-line 1)))))) (forward-line 1))))))
(defun org-at-clock-log-p nil
"Is the cursor on the clock log line?"
(save-excursion
(move-beginning-of-line 1)
(looking-at "^[ \t]*CLOCK:")))
(defun org-clock-timestamps-up nil (defun org-clock-timestamps-up nil
"Increase CLOCK timestamps at cursor." "Increase CLOCK timestamps at cursor."
(interactive) (interactive)

9
lisp/org.el
View File

@ -114,7 +114,6 @@ Stars are put in group 1 and the trimmed body in group 2.")
(declare-function org-inlinetask-outline-regexp "org-inlinetask" ()) (declare-function org-inlinetask-outline-regexp "org-inlinetask" ())
(declare-function org-inlinetask-toggle-visibility "org-inlinetask" ()) (declare-function org-inlinetask-toggle-visibility "org-inlinetask" ())
(declare-function org-pop-to-buffer-same-window "org-compat" (&optional buffer-or-name norecord label)) (declare-function org-pop-to-buffer-same-window "org-compat" (&optional buffer-or-name norecord label))
(declare-function org-at-clock-log-p "org-clock" ())
(declare-function org-clock-timestamps-up "org-clock" ()) (declare-function org-clock-timestamps-up "org-clock" ())
(declare-function org-clock-timestamps-down "org-clock" ()) (declare-function org-clock-timestamps-down "org-clock" ())
(declare-function org-clock-sum-current-item "org-clock" (&optional tstart)) (declare-function org-clock-sum-current-item "org-clock" (&optional tstart))
@ -3917,6 +3916,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables."
(save-excursion (save-excursion
(goto-char (org-table-begin 'any)) (goto-char (org-table-begin 'any))
(looking-at org-table1-hline-regexp)))) (looking-at org-table1-hline-regexp))))
(defun org-table-recognize-table.el () (defun org-table-recognize-table.el ()
"If there is a table.el table nearby, recognize it and move into it." "If there is a table.el table nearby, recognize it and move into it."
(if org-table-tab-recognizes-table.el (if org-table-tab-recognizes-table.el
@ -3952,7 +3952,6 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables."
nil)) nil))
(defvar org-table-clean-did-remove-column nil) (defvar org-table-clean-did-remove-column nil)
(defun org-table-map-tables (function &optional quietly) (defun org-table-map-tables (function &optional quietly)
"Apply FUNCTION to the start of all tables in the buffer." "Apply FUNCTION to the start of all tables in the buffer."
(save-excursion (save-excursion
@ -16411,6 +16410,12 @@ With prefix ARG, change that many days."
(message "Timestamp is now %sactive" (message "Timestamp is now %sactive"
(if (equal (char-after beg) ?<) "" "in"))))) (if (equal (char-after beg) ?<) "" "in")))))
(defun org-at-clock-log-p nil
"Is the cursor on the clock log line?"
(save-excursion
(move-beginning-of-line 1)
(looking-at "^[ \t]*CLOCK:")))
(defvar org-clock-history) ; defined in org-clock.el (defvar org-clock-history) ; defined in org-clock.el
(defvar org-clock-adjust-closest nil) ; defined in org-clock.el (defvar org-clock-adjust-closest nil) ; defined in org-clock.el
(defun org-timestamp-change (n &optional what updown) (defun org-timestamp-change (n &optional what updown)