diff options
author | Michael Brand <michael.ch.brand@gmail.com> | 2011-07-23 18:48:52 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-07-27 17:48:08 +0200 |
commit | e7eb56f39b5b843bc1487bb49c58e99e51c81fc1 (patch) | |
tree | e10a834f41eb904d85551165562bec0e10d48408 | |
parent | f760b919d51312393d29484e3e7f5b0a23bc952f (diff) | |
download | org-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.el | 8 |
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) |