From 0ca32a283854db7ee7586660dbd6e18bec6a912f Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Mon, 9 Jan 2017 00:30:41 +0100
Subject: [PATCH] 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.
---
 lisp/org-capture.el |  1 +
 lisp/org-table.el   | 10 ----------
 2 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 7df891ec8..add187caa 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 7d84a357c..d3c4d7143 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