Emacs 相当于 Vim 的 yy10p？

Question

如何在 Emacs 中轻松复制一行 10 次？ 我找不到复制行快捷方式或功能。 我可以使用 C-aC-spcC-eM-w 费力地复制该行，但如何才能多次粘贴它？

在我去编写自己的函数之前有任何想法。

Answer 1

您将想要删除该行：Ca Ck，然后 Cy 或 ?

Answer 2

我不知道直接等效的东西（Cy 10 倍是我所知道的最好的），但您可能对 Viper 感兴趣，它是 emacs 的 vi 模拟包。 它是标准 emacs 发行版的一部分。

Answer 3

这是我从 Emacs 的 OS/2 端口获取的函数。 （是的，我已经使用 Emacs 一段时间了。）

;; Author: Eberhard Mattes <[email protected]>
(defun emx-dup-line (arg)
  "Duplicate current line.
Set mark to the beginning of the new line.
With argument, do this that many times."
  (interactive "*p")
  (setq last-command 'identity) ; Don't append to kill ring
  (let ((s (point)))
    (beginning-of-line)
    (let ((b (point)))
      (forward-line)
      (if (not (eq (preceding-char) ?\n)) (insert ?\n))
      (copy-region-as-kill b (point))
    (while (> arg 0)
      (yank)
      (setq arg (1- arg)))
    (goto-char s))))

我将其绑定到 F9 d：

(global-set-key [f9 ?d]    'emx-dup-line)

然后我会使用 Cu 10 F9 d 来复制一行 10 次。

Answer 4

我知道重复任意命令的唯一方法是使用键盘宏的“按参数重复”功能。

Ca C-空格向下 Mw Cx ( Cy Cx ) C-9 Cx e

• C-a : 转到行首
• C-space : 设置标记
• 向下 : 转到下一行开头
• M-w : 复制区域
• C-x ( : 启动键盘宏
• C-y : 复制复制行
• C-x ) : 结束键盘宏
• C-9 Cx e : 执行键盘宏九次。

与 vim 相比，这有点弱。 但这仅仅是因为 vim 在这类事情上的效率惊人。

如果您确实渴望类似 vi 的模态交互，则可以使用其中一种 vi 模拟模式，例如 viper 模式。 查看在线 emacs 手册的“仿真”部分。

Answer 5

您可以使用键盘宏：-

Ca Ck Cx ( Cy Cj Cx ) Cu 9 Cx e

说明：-

• Ca : 转到行首
• C-k : 终止行
• C-x ( : 开始录制键盘宏
• C-y : 猛拉杀死行
• C-j : 移动到下一行
• C-x ) : 停止录制键盘宏
• C-u 9 : 重复 9 次
• C-x e : 执行键盘宏

Answer 6

复制：

如果您经常使用线条，您可能需要复制 (kill-ring-save) 和剪切 (kill-region)当未选择区域时对线进行操作：

(defadvice kill-ring-save (before slickcopy activate compile)
  "When called interactively with no active region, copy a single line instead."
  (interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
           (line-beginning-position 2)))))
(defadvice kill-region (before slickcut activate compile)
  "When called interactively with no active region, kill a single line instead."
  (interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
           (line-beginning-position 2)))))

然后您可以仅使用 Mw 复制线。

粘贴：

通常前缀参数只是执行多次操作，因此您希望 Cu 10 Cy 能够工作，但在这种情况下 Cy 使用其参数来表示kill-ring 的哪个元素要“猛拉”（粘贴）。 我能想到的唯一解决方案是 kronoz 所说的：用 Cx ( Cy Cx ) 记录一个宏，然后让 Cu 的参数转到 kmacro-end-and-call-macro （即 Cu 9 Cx e 甚至只是 C-9 Cx e 或 M-9 Cx e)。

另一种方式：
您也可以只停留在 Mx viper-mode 并使用 yy10p :)

Answer 7

您可能知道这一点，但对于许多命令来说，“Cu 10”前缀就可以解决问题。 不幸的是，对于 Cy yank 命令，“Cu”被重新定义为“返回杀戮环中的许多项目，并拉出该项目”。

我认为您也许可以将复制到寄存器和插入寄存器命令与 Cu 前缀命令一起使用，但显然这也不起作用。

另外，Cx z，“重复上一个命令”似乎对 Cu 免疫。

另一个想法是使用 M-: 获得 Eval 提示符并输入一些 elisp。 我认为类似 (dotimes '10 'yank) 的东西可能会做到这一点，但似乎并没有。

因此，看起来在宏上使用 Cu 确实可能是您除了编写自己的小函数之外所能做的最好的事情。

如果我投票，我会投票给 kronoz 答案。

Answer 8

在此示例中，您不需要同时使用 Cx ) 和 Cx e。

您可以直接将重复参数提供给 Cx ）。 这将停止录制并重复宏，一步完成。 或者您可以跳过 Cx ) 并直接转到 Cx e，因为 Cx e 将在重复之前结束录制。

选择哪种方式取决于您希望重复计数的工作方式。 对于 Cx ），您可以说出总共需要多少次重复（在本例中为 10 次）。 对于 Cx e，您需要说明还剩下多少次重复（即 9）。

---

Ca Ck Ck 也会杀死尾随的换行符，因此您不必稍后自己将其放回去。 它比使用标记更快，并且不需要您更改任何变量。

更好的是（除非您在终端中），您可以使用 CS-Backspace* 来终止整行，无论您位于其中的哪个位置。

[* 如果您使用的是 X windows，请确保输入 Shift（而不是 alt），否则您可能会终止会话！]

说到终端，如果您发现可以，M-9 是一个不错的选择不要输入 C-9。

---

在 Emacs 22 及更高版本中，默认情况下 F3 启动宏，F4 结束/重复宏。 您只需按 F3 开始录制，完成后按 F4，然后再次按 F4 重复宏。 （F4 也带有一个参数。）

---

将所有这些放在一起，以获得当前行的 10 个副本：

• CS-Backspace ：终止此行
• F3 ：启动宏
• C-y ：拉动
• C-1 C-0 行 F4 ：拉动 10 次

虽然不像 yy 10 p 那么短，但也很接近了。 :)

Answer 9

您使用 Ck 获取该行，使用 Cu 10 使下一个命令发生十次，然后使用 Cy 粘贴该行。 很简单。

如果您总是希望 Ck 执行整行，可以将kill-whole-line 设置为t。 不再需要摆弄 Ca 或 Ce。

您可以使用花哨的kill环、寄存器和宏做很多事情，我鼓励您学习它们，但是将一条线拉动十次并不一定是困难或奇​​怪的。

Answer 10

首先，您需要在 .emacs 中绑定此键：

;; yank n times
(global-set-key "\C-y" (lambda (n) (interactive "*p") (dotimes (i n) (clipboard-yank))))

然后您可以执行以下操作：

C-a C-SPC C-n M-w C-u 10 C-y

Ca C-SPC Cn Mw - 选择整行
Cu 10 Cy - 重复“剪贴板猛拉”10 次

Answer 11

根据 Baxissimo 的回答，我取消了这一点：

(defun yank-n-times (arg)
  "yank prefix-arg number of times. Not safe in any way."
  (interactive "*p")
  (dotimes 'arg (yank)))

将其设置为某个键，使用前缀参数调用它，然后就可以了。

编辑（还修改了上面的交互式调用，使其不那么糟糕）

或者，这里有一个可以替代 yank-pop 的版本：

(defun yank-n-times (&optional arg)
  "yank prefix-arg number of times. Call yank-pop if last command was yank."
  (interactive "*p")
  (if (or (string= last-command "yank")
      (string= last-command "yank-pop"))
      (yank-pop arg)
    (if (> arg 1)
    (dotimes 'arg (yank))
      (message "Previous arg was not a yank, and called without a prefix."))))

该消息是一种谎言，但您不应该在没有无论如何，前缀都大于 1，所以。

不确定这是否是一个好主意，但我用这个替换了 My，我会看看效果如何。