gistfile1.el

 
(defun current-csv-length () (interactive)
  ( let (
         ( myStr (thing-at-point 'line ))
         )
    (message (number-to-string (length (split-string myStr ","))))
)
)
 
(defun message-current-para () (interactive)
    (message (thing-at-point 'paragraph))
)
 
(defun csv-current-line () (interactive)
  (let ( ( myStr (thing-at-point 'line)) )
    (message (prin1-to-string (split-string myStr ",")))
    ) )
 
(global-set-key (kbd "M-O p") 'current-csv-length)
(global-set-key (kbd "M-O n") 'csv-current-line)
(global-set-key (kbd "M-O w") 'message-current-para)