diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-09 00:30:41 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-09 00:30:41 +0100 |
commit | 0ca32a283854db7ee7586660dbd6e18bec6a912f (patch) | |
tree | fc0bb3f7edfb426d3734296aed985709c8c7e1e3 | |
parent | b0cb4fe59b934e496b6cef5f28c59d9d9ef3d863 (diff) | |
download | org-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.el | 1 | ||||
-rw-r--r-- | lisp/org-table.el | 10 |
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 |