Browse Source

Add customization option to open WL links in other frame.

* org.el (org-link-frame-setup): Add customization option for
  Wanderlust.
David Maus 15 years ago
parent
commit
2510d02be9
1 changed files with 10 additions and 2 deletions
  1. 10 2
      lisp/org.el

+ 10 - 2
lisp/org.el

@@ -1387,7 +1387,8 @@ Changing this requires a restart of Emacs to work correctly."
 (defcustom org-link-frame-setup
 (defcustom org-link-frame-setup
   '((vm . vm-visit-folder-other-frame)
   '((vm . vm-visit-folder-other-frame)
     (gnus . gnus-other-frame)
     (gnus . gnus-other-frame)
-    (file . find-file-other-window))
+    (file . find-file-other-window)
+    (wl . wl-other-frame))
   "Setup the frame configuration for following links.
   "Setup the frame configuration for following links.
 When following a link with Emacs, it may often be useful to display
 When following a link with Emacs, it may often be useful to display
 this link in another window or frame.  This variable can be used to
 this link in another window or frame.  This variable can be used to
@@ -1403,6 +1404,9 @@ For FILE, use any of
     `find-file'
     `find-file'
     `find-file-other-window'
     `find-file-other-window'
     `find-file-other-frame'
     `find-file-other-frame'
+For Wanderlust use any of
+    `wl'
+    `wl-other-frame'
 For the calendar, use the variable `calendar-setup'.
 For the calendar, use the variable `calendar-setup'.
 For BBDB, it is currently only possible to display the matches in
 For BBDB, it is currently only possible to display the matches in
 another window."
 another window."
@@ -1422,7 +1426,11 @@ another window."
 		(choice
 		(choice
 		 (const find-file)
 		 (const find-file)
 		 (const find-file-other-window)
 		 (const find-file-other-window)
-		 (const find-file-other-frame)))))
+		 (const find-file-other-frame)))
+	  (cons (const wl)
+		(choice
+		 (const wl)
+		 (const wl-other-frame)))))
 
 
 (defcustom org-display-internal-link-with-indirect-buffer nil
 (defcustom org-display-internal-link-with-indirect-buffer nil
   "Non-nil means use indirect buffer to display infile links.
   "Non-nil means use indirect buffer to display infile links.