Selaa lähdekoodia

Install local link abbreviations when following link from agenda.

Carsten Dominik 16 vuotta sitten
vanhempi
commit
d5d445d908
2 muutettua tiedostoa jossa 5 lisäystä ja 0 poistoa
  1. 3 0
      lisp/ChangeLog
  2. 2 0
      lisp/org.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2008-11-15  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org.el (org-open-at-mouse): Ensure correct link abbreviations
+	when following a link with the mouse from the agenda.
+
 	* org-exp.el (org-export-as-html): Avoid lone </div> when no
 	headlines are created.
 

+ 2 - 0
lisp/org.el

@@ -6670,6 +6670,8 @@ This is still an experimental function, your mileage may vary."
   "Open file link or URL at mouse."
   (interactive "e")
   (mouse-set-point ev)
+  (if (eq major-mode 'org-agenda-mode)
+      (org-agenda-copy-local-variable 'org-link-abbrev-alist-local))
   (org-open-at-point))
 
 (defvar org-window-config-before-follow-link nil