summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Brand <michael.ch.brand@gmail.com>2011-07-23 18:48:52 +0200
committerBastien Guerry <bzg@altern.org>2011-07-27 17:48:08 +0200
commite7eb56f39b5b843bc1487bb49c58e99e51c81fc1 (patch)
treee10a834f41eb904d85551165562bec0e10d48408
parentf760b919d51312393d29484e3e7f5b0a23bc952f (diff)
downloadorg-mode-e7eb56f39b5b843bc1487bb49c58e99e51c81fc1.tar.gz
Table editor: Display coordinates of current field
* lisp/org-table.el (org-table-edit-field): Display field coordinates.
-rw-r--r--lisp/org-table.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 2149376..d62aecf 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -1818,6 +1818,12 @@ it can be edited in place."
(font-lock-fontify-block))))
(t
(let ((pos (move-marker (make-marker) (point)))
+ (coord
+ (if (eq org-table-use-standard-references t)
+ (concat (org-number-to-letters (org-table-current-column))
+ (int-to-string (org-table-current-dline)))
+ (concat "@" (int-to-string (org-table-current-dline))
+ "$" (int-to-string (org-table-current-column)))))
(field (org-table-get-field))
(cw (current-window-configuration))
p)
@@ -1827,7 +1833,7 @@ it can be edited in place."
(markerp org-field-marker))
(move-marker org-field-marker nil))
(erase-buffer)
- (insert "#\n# Edit field and finish with C-c C-c\n#\n")
+ (insert "#\n# Edit field " coord " and finish with C-c C-c\n#\n")
(let ((org-inhibit-startup t)) (org-mode))
(auto-fill-mode -1)
(setq truncate-lines nil)