tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

* org.el (org-read-property-name): Propose default property name.

Browse source 
Propose default property name value by looking at whether current line
is already some property setting.
This commit is contained in:
Vincent Belaïche 2011-06-27 12:35:08 +02:00 committed by Bastien Guerry
parent d37223562d
commit 6d18e03519
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/org.el
View file

@ -6591,7 +6591,7 @@ in an indirect buffer, in overview mode. You can dive into the tree in
that copy, use org-occur and incremental search to find a location.
When pressing RET or `Q', the command returns to the original buffer in
which the visibility is still unchanged. After RET is will also jump to
the location selected in the indirect buffer and expose the headline
the location selected in the indirect buffer and expose the headline
hierarchy above."
(interactive "P")
(let* ((org-refile-targets `((nil . (:maxlevel . ,org-goto-max-level))))
@ -14095,7 +14095,20 @@ This is computed according to `org-property-set-functions-alist'."
"Read a property name."
(let* ((completion-ignore-case t)
(keys (org-buffer-property-keys nil t t))
(property (org-icompleting-read "Property: " (mapcar 'list keys))))
(default-prop (save-excursion
(save-match-data
(beginning-of-line)
(and (looking-at "^\\s-*:\\([^:\n]+\\):")
(null (string= (match-string 1) "END"))
(match-string 1)))))
(property (org-icompleting-read
(concat "Property"
(if default-prop (concat " [" default-prop "]") "")
": ")
(mapcar 'list keys)
nil nil nil nil
default-prop
)))
(if (member property keys)
property
(or (cdr (assoc (downcase property)
@ -16120,7 +16133,7 @@ sequence appearing also before point.
Even though the matchers for math are configurable, this function assumes
that \\begin, \\(, \\[, and $$ are always used. Only the single dollar
delimiters are skipped when they have been removed by customization.
The return value is nil, or a cons cell with the delimiter and the
The return value is nil, or a cons cell with the delimiter and the
position of this delimiter.
This function does a reasonably good job, but can locally be fooled by