summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2009-11-20 23:23:29 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2009-11-20 23:23:29 +0100
commitda2a88c3ae4f5c49756575cf3f1c32fdd019bba5 (patch)
tree95575d6751cc10adbd32b86fb62dacc1fe4fe114
parent1a0e1a6f07303aa935a643863c7cb85264e73481 (diff)
downloadorg-mode-da2a88c3ae4f5c49756575cf3f1c32fdd019bba5.tar.gz
Cater for empty region, link, title in org-protocol.el
-rwxr-xr-xlisp/ChangeLog3
-rw-r--r--lisp/org-protocol.el7
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 743998b..7c64f4b 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2009-11-20 Carsten Dominik <carsten.dominik@gmail.com>
+ * org-protocol.el (org-protocol-remember): Cater for empty title,
+ region, link.
+
* org-agenda.el (org-agenda-diary-entry-in-org-file): Rebuild
agenda after adding new entry.
(org-agenda-get-represented-tags): New function.
diff --git a/lisp/org-protocol.el b/lisp/org-protocol.el
index 5c65fb0..0d40c2c 100644
--- a/lisp/org-protocol.el
+++ b/lisp/org-protocol.el
@@ -470,9 +470,10 @@ Now template ?b will be used."
(url (org-protocol-sanitize-uri (car parts)))
(type (if (string-match "^\\([a-z]+\\):" url)
(match-string 1 url)))
- (title (cadr parts))
- (region (caddr parts))
- (orglink (org-make-link-string url title))
+ (title (or (cadr parts) ""))
+ (region (or (caddr parts) ""))
+ (orglink (org-make-link-string
+ url (if (string-match "[^[:space:]]" title) title url)))
remember-annotation-functions)
(setq org-stored-links
(cons (list url title) org-stored-links))