summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2010-09-30 08:29:37 +0200
committerCarsten Dominik <carsten.dominik@gmail.com>2010-09-30 08:29:37 +0200
commitae6d203a4be3006cf9a48e3ed166fa85144fb53f (patch)
treeff4d036e9873854ec0ba2a155f2903bfd84fe6d2
parent3b1c72ae9ffa7e2d1fcbf1470bb1abcde170d02a (diff)
downloadorg-mode-ae6d203a4be3006cf9a48e3ed166fa85144fb53f.tar.gz
Make `org-table-current-column' an interactive command
* lisp/org-table.el (org-table-current-column): Add interactive to turn this into a command.
-rw-r--r--lisp/org-table.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el
index a6f7ac4..42ede7c 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -1151,11 +1151,14 @@ is always the old value."
(defun org-table-current-column ()
"Find out which column we are in."
+ (interactive)
+ (if (interactive-p) (org-table-check-inside-data-field))
(save-excursion
(let ((cnt 0) (pos (point)))
(beginning-of-line 1)
(while (search-forward "|" pos t)
(setq cnt (1+ cnt)))
+ (if (interactive-p) (message "In table column %d" cnt))
cnt)))
(defun org-table-current-dline ()