summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/init-mail.el2
-rw-r--r--lisp/init-org.el15
2 files changed, 1 insertions, 16 deletions
diff --git a/lisp/init-mail.el b/lisp/init-mail.el
index 3aa14ba..8d74081 100644
--- a/lisp/init-mail.el
+++ b/lisp/init-mail.el
@@ -235,8 +235,6 @@ paragraph."
(add-to-list 'notmuch-saved-searches
'(:name "today" :query "date:today.." :key "."))
-(add-hook 'km/org-store-link-hook 'km/gnus-goto-message-in-notmuch)
-
(defun km/notmuch-file-to-group (file)
"Calculate the Gnus group name from the given file name."
(let ((group (file-name-directory (directory-file-name (file-name-directory file)))))
diff --git a/lisp/init-org.el b/lisp/init-org.el
index 339bfd3..7cdb27f 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -597,19 +597,6 @@ global value. A numeric prefix sets MAXLEVEL (defaults to 2)."
"Search for PMID at `km/org-pmid-search-url'."
(browse-url (format km/org-pmid-search-url path)))
-(defvar km/org-store-link-hook nil
- "Hook run before by `km/org-store-link-hook'.
-These are run within a `save-window-excursion' block.")
-
-(defun km/org-store-link ()
- "Run `km/org-store-link-hook' before `org-store-link'.
-The hook functions and `org-store-link' are called within a
-`save-window-excursion' block."
- (interactive)
- (save-window-excursion
- (run-hooks 'km/org-store-link-hook)
- (call-interactively 'org-store-link)))
-
(defun km/org-link-dired-jump ()
"Open Dired for directory of file link at point."
(interactive)
@@ -639,7 +626,7 @@ beginning of the link."
slurped)))))
(define-key km/org-prefix-map "d" 'km/org-link-dired-jump)
-(define-key km/global-org-map "l" 'km/org-store-link)
+(define-key km/global-org-map "l" 'org-store-link)
(define-key km/org-prefix-map "."
(defhydra hydra-org-link-edit ()