Browse Source

Make `org-table-current-column' an interactive command

* lisp/org-table.el (org-table-current-column): Add interactive to turn
this into a command.
Carsten Dominik 10 years ago
parent
commit
ae6d203a4b
1 changed files with 3 additions and 0 deletions
  1. 3 0
      lisp/org-table.el

+ 3 - 0
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 ()