mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:37:51 +00:00
Code Releases Activity

Table editor: Display coordinates of current field

Browse source 
* lisp/org-table.el (org-table-edit-field): Display field coordinates.
This commit is contained in:
Michael Brand 2011-07-23 18:48:52 +02:00 committed by Bastien Guerry
parent f760b919d5
commit e7eb56f39b
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org-table.el
View file

@ -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)