From mboxrd@z Thu Jan 1 00:00:00 1970 From: Uwe Brauer Subject: Re: feature proposal. Kill and yank columns Date: Thu, 28 Apr 2016 10:48:55 +0000 Message-ID: <87inz2qa94.fsf@mat.ucm.es> References: <87ziset6iq.fsf@mat.ucm.es> <84y47y58mg.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47216) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1avjWQ-0007b0-08 for emacs-orgmode@gnu.org; Thu, 28 Apr 2016 06:50:19 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1avjWL-0002DN-VO for emacs-orgmode@gnu.org; Thu, 28 Apr 2016 06:50:13 -0400 Received: from plane.gmane.org ([80.91.229.3]:44182) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1avjWL-0002D5-Og for emacs-orgmode@gnu.org; Thu, 28 Apr 2016 06:50:09 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1avjWF-0006ym-Aq for emacs-orgmode@gnu.org; Thu, 28 Apr 2016 12:50:03 +0200 Received: from gilgamesch.quim.ucm.es ([147.96.12.99]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 28 Apr 2016 12:50:03 +0200 Received: from oub by gilgamesch.quim.ucm.es with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 28 Apr 2016 12:50:03 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org > Hi! > Some time ago I wrote this function: > (defun mw-org-table-mark-column () > "Mark the column containing point. > This works only in org tables. > For tables with horizontal lines this function can fail." > (interactive) > (unless (org-at-table-p) (user-error "Not at a table")) > (org-table-find-dataline) > (org-table-check-inside-data-field) > (let* ((col (org-table-current-column)) > (beg (org-table-begin)) > (end (org-table-end))) > (goto-char beg) > (org-table-goto-column col) > (re-search-backward "|" nil t) > (push-mark) > (goto-char (1- end)) > (org-table-goto-column (1+ col)) > (re-search-backward "|" nil t) > (exchange-point-and-mark))) > If you do M-x mw-org-table-mark-column followed by C-x SPACE in a > table-cell you (hopefully) the column gets marked. > This might be a start. That is cool, thanks, unfortunately some of my tables contain horizontal lines, but this is not really very essential for me. > HTH,