[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#41410: Patch: Add function ffap-other-tab
From: |
Juri Linkov |
Subject: |
bug#41410: Patch: Add function ffap-other-tab |
Date: |
Wed, 20 May 2020 01:31:04 +0300 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (x86_64-pc-linux-gnu) |
> Attached is a patch to add a function to open files at point in another
> tab. It is basically the same as the function ffap-other-window.
Thanks, this is a useful addition. Please push it to master.
> +(defun ffap-other-tab (filename)
> + "Like `ffap', but put buffer in another tab.
> +Only intended for interactive use."
> + (interactive (list (ffap-prompter nil " other tab")))
> + (pcase (save-window-excursion (find-file-at-point filename))
> + ((or (and (pred bufferp) b) `(,(and (pred bufferp) b) . ,_))
> + (switch-to-buffer-other-tab b))))
> +
> (defun ffap--toggle-read-only (buffer-or-list)
> (dolist (buffer (if (listp buffer-or-list)
> buffer-or-list
> @@ -2013,6 +2023,7 @@ ffap-bindings
>
> (global-set-key [remap find-file-other-window] 'ffap-other-window)
> (global-set-key [remap find-file-other-frame] 'ffap-other-frame)
> + (global-set-key [remap find-file-other-tab] 'ffap-other-tab)
> (global-set-key [remap find-file-read-only-other-window]
> 'ffap-read-only-other-window)
> (global-set-key [remap find-file-read-only-other-frame]
> 'ffap-read-only-other-frame)