summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-01-09 00:30:41 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-01-09 00:30:41 +0100
commit0ca32a283854db7ee7586660dbd6e18bec6a912f (patch)
treefc0bb3f7edfb426d3734296aed985709c8c7e1e3
parentb0cb4fe59b934e496b6cef5f28c59d9d9ef3d863 (diff)
downloadorg-mode-0ca32a283854db7ee7586660dbd6e18bec6a912f.tar.gz
org-table: Remove command status for some functions
* lisp/org-table.el (org-table-current-column): (org-table-current-dline): Do not allow to call these functions interactively. `org-table-field-info' should be used instead. * lisp/org-capture.el (org-encrypt-entry): Silence byte-compiler.
-rw-r--r--lisp/org-capture.el1
-rw-r--r--lisp/org-table.el10
2 files changed, 1 insertions, 10 deletions
diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 7df891e..add187c 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -56,6 +56,7 @@
(declare-function org-decrypt-entry "org-crypt" ())
(declare-function org-encrypt-entry "org-crypt" ())
(declare-function org-table-analyze "org-table" ())
+(declare-function org-table-current-dline "org-table" ())
(declare-function org-table-goto-line "org-table" (N))
(defvar org-end-time-was-given)
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 7d84a35..d3c4d71 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -1317,23 +1317,15 @@ is always the old value."
(defun org-table-current-column ()
"Find out which column we are in."
- (interactive)
- (when (called-interactively-p 'any) (org-table-check-inside-data-field))
(save-excursion
(let ((column 0) (pos (point)))
(beginning-of-line)
(while (search-forward "|" pos t) (cl-incf column))
- (when (called-interactively-p 'interactive)
- (message "In table column %d" column))
column)))
-;;;###autoload
(defun org-table-current-dline ()
"Find out what table data line we are in.
Only data lines count for this."
- (interactive)
- (when (called-interactively-p 'any)
- (org-table-check-inside-data-field))
(save-excursion
(let ((c 0)
(pos (point)))
@@ -1341,8 +1333,6 @@ Only data lines count for this."
(while (<= (point) pos)
(when (looking-at org-table-dataline-regexp) (cl-incf c))
(forward-line))
- (when (called-interactively-p 'any)
- (message "This is table line %d" c))
c)))
;;;###autoload