diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-09-30 08:29:37 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-09-30 08:29:37 +0200 |
commit | ae6d203a4be3006cf9a48e3ed166fa85144fb53f (patch) | |
tree | ff4d036e9873854ec0ba2a155f2903bfd84fe6d2 | |
parent | 3b1c72ae9ffa7e2d1fcbf1470bb1abcde170d02a (diff) | |
download | org-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.el | 3 |
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 () |