From cf8d4210743c1c9b06db28e5b5bb5a51f8a190bf Mon Sep 17 00:00:00 2001 From: Matthias Meulien Date: Wed, 24 Jul 2013 23:23:44 +0200 Subject: [PATCH] lisp/info.el (info-other-window): Add key binding and other frame defun --- lisp/info.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/lisp/info.el b/lisp/info.el index 0e0a117..99098e8 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -745,6 +745,7 @@ in `Info-file-supports-index-cookies-list'." (not (member dir (split-string path ":" t))) (push dir Info-directory-list))))))) +;;;###autoload (define-key ctl-x-4-map "i" 'info-other-window) ;;;###autoload (defun info-other-window (&optional file-or-node buffer) "Like `info' but show the Info buffer in another window." @@ -756,6 +757,18 @@ in `Info-file-supports-index-cookies-list'." (info-setup file-or-node (switch-to-buffer-other-window (or buffer "*info*")))) +;;;###autoload (define-key ctl-x-5-map "i" 'info-other-frame) +;;;###autoload +(defun info-other-frame (&optional file-or-node buffer) + "Like `info' but put the Info buffer in another frame." + (interactive (list + (if (and current-prefix-arg (not (numberp current-prefix-arg))) + (read-file-name "Info file name: " nil nil t)) + (if (numberp current-prefix-arg) + (format "*info*<%s>" current-prefix-arg)))) + (info-setup file-or-node + (switch-to-buffer-other-frame (or buffer "*info*")))) + ;;;###autoload (put 'info 'info-file (purecopy "emacs")) ;;;###autoload (defun info (&optional file-or-node buffer) -- 1.8.3.3