diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-11-20 23:23:29 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-11-20 23:23:29 +0100 |
commit | da2a88c3ae4f5c49756575cf3f1c32fdd019bba5 (patch) | |
tree | 95575d6751cc10adbd32b86fb62dacc1fe4fe114 | |
parent | 1a0e1a6f07303aa935a643863c7cb85264e73481 (diff) | |
download | org-mode-da2a88c3ae4f5c49756575cf3f1c32fdd019bba5.tar.gz |
Cater for empty region, link, title in org-protocol.el
-rwxr-xr-x | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/org-protocol.el | 7 |
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)) |