Mercurial > emacs
comparison lisp/org/org-protocol.el @ 104829:b06b66cffb2d
2009-09-03 Carsten Dominik <dominik@u016822.science.uva.nl>
* org-protocol.el (org-protocol-store-link)
(org-protocol-remember, org-protocol-open-source): Remove autoload
cookies again.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Thu, 03 Sep 2009 07:20:50 +0000 |
| parents | 86b7fe7d1d8f |
| children | c3c96e15571c |
comparison
equal
deleted
inserted
replaced
| 104828:30bf04463395 | 104829:b06b66cffb2d |
|---|---|
| 391 (append (org-protocol-flatten (car l)) (org-protocol-flatten (cdr l))) | 391 (append (org-protocol-flatten (car l)) (org-protocol-flatten (cdr l))) |
| 392 (list l)))) | 392 (list l)))) |
| 393 | 393 |
| 394 ;;; Standard protocol handlers: | 394 ;;; Standard protocol handlers: |
| 395 | 395 |
| 396 ;;;###autoload | |
| 397 (defun org-protocol-store-link (fname) | 396 (defun org-protocol-store-link (fname) |
| 398 "Process an org-protocol://store-link:// style url | 397 "Process an org-protocol://store-link:// style url |
| 399 and store a browser URL as an org link. Also pushes the links URL to the | 398 and store a browser URL as an org link. Also pushes the links URL to the |
| 400 `kill-ring'. | 399 `kill-ring'. |
| 401 | 400 |
| 421 (substitute-command-keys"\\[org-insert-link]") | 420 (substitute-command-keys"\\[org-insert-link]") |
| 422 (substitute-command-keys"\\[yank]") | 421 (substitute-command-keys"\\[yank]") |
| 423 uri)) | 422 uri)) |
| 424 nil) | 423 nil) |
| 425 | 424 |
| 426 ;;;###autoload | |
| 427 (defun org-protocol-remember (info) | 425 (defun org-protocol-remember (info) |
| 428 "Process an org-protocol://remember:// style url. | 426 "Process an org-protocol://remember:// style url. |
| 429 | 427 |
| 430 The sub-protocol used to reach this function is set in | 428 The sub-protocol used to reach this function is set in |
| 431 `org-protocol-protocol-alist'. | 429 `org-protocol-protocol-alist'. |
| 469 (org-remember nil (string-to-char template))) | 467 (org-remember nil (string-to-char template))) |
| 470 | 468 |
| 471 (message "Org-mode not loaded.")) | 469 (message "Org-mode not loaded.")) |
| 472 nil) | 470 nil) |
| 473 | 471 |
| 474 ;;;###autoload | |
| 475 (defun org-protocol-open-source (fname) | 472 (defun org-protocol-open-source (fname) |
| 476 "Process an org-protocol://open-source:// style url. | 473 "Process an org-protocol://open-source:// style url. |
| 477 | 474 |
| 478 Change a filename by mapping URLs to local filenames as set | 475 Change a filename by mapping URLs to local filenames as set |
| 479 in `org-protocol-project-alist'. | 476 in `org-protocol-project-alist'. |