diff options
Diffstat (limited to 'lisp/org')
| -rw-r--r-- | lisp/org/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/org/org-protocol.el | 10 |
2 files changed, 10 insertions, 5 deletions
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 03e52fee5a2..c1eff5a0d25 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-01-14 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * org-protocol.el (org-protocol-flatten-greedy, org-protocol-flatten): | ||
| 4 | Fix typos in docstrings. | ||
| 5 | |||
| 1 | 2010-01-01 Juanma Barranquero <lekktu@gmail.com> | 6 | 2010-01-01 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 7 | ||
| 3 | * org.el (org-get-outline-path, org-speed-command-help): | 8 | * org.el (org-get-outline-path, org-speed-command-help): |
diff --git a/lisp/org/org-protocol.el b/lisp/org/org-protocol.el index f0c0e302282..59f08f1dfa2 100644 --- a/lisp/org/org-protocol.el +++ b/lisp/org/org-protocol.el | |||
| @@ -355,9 +355,9 @@ encodeURIComponent. E.g. `%C3%B6' is the german Umlaut `ΓΌ'." | |||
| 355 | ret )) | 355 | ret )) |
| 356 | 356 | ||
| 357 | (defun org-protocol-flatten-greedy (param-list &optional strip-path replacement) | 357 | (defun org-protocol-flatten-greedy (param-list &optional strip-path replacement) |
| 358 | "Greedy handlers might recieve a list like this from emacsclient: | 358 | "Greedy handlers might receive a list like this from emacsclient: |
| 359 | '( (\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\") | 359 | '( (\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\") |
| 360 | where \"/dir/\" is the absolute path to emacsclients working directory. This | 360 | where \"/dir/\" is the absolute path to emacsclients working directory. This |
| 361 | function transforms it into a flat list utilizing `org-protocol-flatten' and | 361 | function transforms it into a flat list utilizing `org-protocol-flatten' and |
| 362 | transforms the elements of that list as follows: | 362 | transforms the elements of that list as follows: |
| 363 | 363 | ||
| @@ -400,10 +400,10 @@ returned list." | |||
| 400 | 400 | ||
| 401 | 401 | ||
| 402 | (defun org-protocol-flatten (l) | 402 | (defun org-protocol-flatten (l) |
| 403 | "Greedy handlers might recieve a list like this from emacsclient: | 403 | "Greedy handlers might receive a list like this from emacsclient: |
| 404 | '( (\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\") | 404 | '( (\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\") |
| 405 | where \"/dir/\" is the absolute path to emacsclients working directory. This | 405 | where \"/dir/\" is the absolute path to emacsclients working directory. |
| 406 | function transforms it into a flat list." | 406 | This function transforms it into a flat list." |
| 407 | (if (null l) () | 407 | (if (null l) () |
| 408 | (if (listp l) | 408 | (if (listp l) |
| 409 | (append (org-protocol-flatten (car l)) (org-protocol-flatten (cdr l))) | 409 | (append (org-protocol-flatten (car l)) (org-protocol-flatten (cdr l))) |