diff options
author | David Maus <dmaus@ictsoc.de> | 2011-06-01 06:47:03 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2011-06-01 06:47:03 +0200 |
commit | f4f20ad5c830a169c7713cb99bfd4127c9c3b32d (patch) | |
tree | df604e42b69dbc176a742727dc71240e4e014bfa | |
parent | 8d9f7c420894308794a430550bcac0e2400443b9 (diff) | |
download | org-mode-f4f20ad5c830a169c7713cb99bfd4127c9c3b32d.tar.gz |
Move defsubst `org-re-property' before its first use
* org.el (org-re-property): Move before its first use.
-rw-r--r-- | lisp/org.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el index 9562b6e..88976e2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13509,6 +13509,11 @@ Being in this list makes sure that they are offered for completion.") org-property-end-re "\\)\n?") "Matches an entire clock drawer.") +(defsubst org-re-property (property) + "Return a regexp matching PROPERTY. +Match group 1 will be set to the value " + (concat "^[ \t]*:" (regexp-quote property) ":[ \t]*\\(\\S-.*\\)")) + (defun org-property-action () "Do an action on properties." (interactive) @@ -13976,11 +13981,6 @@ formats in the current buffer." (sort rtn (lambda (a b) (string< (upcase a) (upcase b)))))) -(defsubst org-re-property (property) - "Return a regexp matching PROPERTY. -Match group 1 will be set to the value " - (concat "^[ \t]*:" (regexp-quote property) ":[ \t]*\\(\\S-.*\\)")) - (defun org-property-values (key) "Return a list of all values of property KEY in the current buffer." (save-excursion |