>From fb477d9f3bfc39f18788aa735dc70f542b513377 Mon Sep 17 00:00:00 2001 From: Pierre-Yves Luyten Date: Thu, 11 Oct 2018 23:40:32 +0200 Subject: [PATCH 1/2] * lisp/bookmark.el (bookmark-jump-other-frame): new function Add the new function bookmark-jump-other-frame Bind to bookmark-map --- lisp/bookmark.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 58a279473d..5ee5248b97 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -209,6 +209,7 @@ A non-nil value may result in truncated bookmark names." (define-key map "j" 'bookmark-jump) (define-key map "g" 'bookmark-jump) ;"g"o (define-key map "o" 'bookmark-jump-other-window) + (define-key map "5" 'bookmark-jump-other-frame) (define-key map "i" 'bookmark-insert) (define-key map "e" 'edit-bookmarks) (define-key map "f" 'bookmark-insert-location) ;"f"ind @@ -1124,6 +1125,14 @@ DISPLAY-FUNC would be `switch-to-buffer-other-window'." bookmark-current-bookmark))) (bookmark-jump bookmark 'switch-to-buffer-other-window)) +(defun bookmark-jump-other-frame (bookmark) + "Jump to BOOKMARK in another frame. See `bookmark-jump' for more." + (interactive + (list (bookmark-completing-read "Jump to bookmark (in another frame)" + bookmark-current-bookmark))) + (let ((pop-up-frames t)) + (bookmark-jump bookmark 'display-buffer)) + (other-frame 1)) (defun bookmark-jump-noselect (bookmark) "Return the location pointed to by BOOKMARK (see `bookmark-jump'). -- 2.19.0