Use hooks, not advice, to modify org-store-link

Previously (4af0bf7), I used advice for org-store-link to make it store
notmuch links when called from Gnus buffers for local mail.

This now doesn't work because org-called-interactively-p returns nil if
org-store-link is advised. I'm assuming this is due to the nadvice
package, new with Emacs 24.4, which says

  FIXME: This Major Ugly Hack won't handle calls to called-interactively-p
  done from the advised function if the deepest advice is an around advice!
  In other cases (calls from an advice or calls from the advised function when
  the deepest advice is not an around advice), it should hopefully get
  it right.

Instead of using advice, create a separate function that will run a hook
before interactively calling org-store-link.

1 files changed, 14 insertions, 1 deletions

diff --git a/lisp/init-org.el b/lisp/init-org.el
index 92c033a..af9dc2d 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -85,7 +85,20 @@
 (define-prefix-command 'km/global-org-map)
 (global-set-key (kbd "C-c o") 'km/global-org-map)
 
-(define-key km/global-org-map "l" 'org-store-link)
+(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)))
+
+(define-key km/global-org-map "l" 'km/org-store-link)
 (define-key km/global-org-map "o" 'org-open-at-point-global)
 (define-key km/global-org-map "a" 'org-agenda)
 (define-key km/global-org-map "b" 'org-iswitchb)