Add xref-find-references-other-frame

1 files changed, 7 insertions, 1 deletions

diff --git a/.emacs.d/lisp/init-editor.el b/.emacs.d/lisp/init-editor.el
index a1ce514..0412618 100644
--- a/.emacs.d/lisp/init-editor.el
+++ b/.emacs.d/lisp/init-editor.el
@@ -197,12 +197,18 @@ and file 'filename' will be opened and cursor set on line 'linenumber'"
     "Like `xref-find-references' but switch to the other window"
     (interactive (list (xref--read-identifier "Find references of: ")))
       (xref--find-xrefs identifier 'references identifier 'window))
+  (defun xref-find-references-other-frame (identifier)
+    "Like `xref-find-references' but switch to the other frame"
+    (interactive (list (xref--read-identifier "Find references of: ")))
+    (xref--find-xrefs identifier 'references identifier 'frame))
   (define-key ctl-x-4-map (kbd "M-?") 'xref-find-references-other-window)
+  (define-key ctl-x-5-map (kbd "M-?") 'xref-find-references-other-window)
   ;; 'xref-prompt-for-identifier begins with not, so adding this prevents
   ;; prompting for an identifier when calling xref-find-references, unless
   ;; there is no value at point that can be used
   (add-to-list 'xref-prompt-for-identifier 'xref-find-references t)
-  (add-to-list 'xref-prompt-for-identifier 'xref-find-references-other-window t))
+  (add-to-list 'xref-prompt-for-identifier 'xref-find-references-other-window t)
+  (add-to-list 'xref-prompt-for-identifier 'xref-find-references-other-frame t))
 
 (provide 'init-editor)
 ;;; init-editor.el ends here