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'. |