Emacs:如果不考虑随后的杀戮,如何抽出最后一个猛拉的文字?
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Emacs:如果不考虑随后的杀戮,如何抽出最后一个猛拉的文字?相关的知识,希望对你有一定的参考价值。
我经常发现自己在做了一些杀戮之后反复做一些东西,它变成了一个过程:
- C-ÿ
- C-y M-y
- C-y M-y M-y
- C-y M-y M-y M-y
每当我杀死一些文本时,它会在kill ring中推回第一个kill,这样我就需要遍历所有的杀戮以返回我想要的文本。我想要做的是反复猛拉同一文本,同时杀死文本之间的冲突。这可能吗?
这是一个奇怪的黑客,但可能有所帮助。
第一次使用M-y
时,通常会出现错误(之前没有猛拉)。所以这个想法是第一次你得到最后一次猛击而不是最后一次击杀。
为了存储最后一次猛拉,我在这个例子中使用'Y'寄存器。
这两个函数将包围yank和yank-pop。你期待错误,我期待建议。
(defun jp/yank (&optional arg)
"Yank and save text to register Y"
(interactive)
(set-register ?Y (current-kill 0 t))
(yank arg))
(defun jp/yank-pop (&optional arg)
"If yank-pop fails, then insert register Y"
(interactive)
(condition-case nil
(yank-pop arg)
(error (insert (get-register ?Y)))))
(global-set-key (kbd "M-y") (quote jp/yank-pop))
(global-set-key (kbd "C-y") (quote jp/yank))
不要使用杀环;将文本放入寄存器中。 C-x r s a
将该地区的文本存入(比如)注册“a”;然后C-x r i a
将其插入其他地方。
您可以使用M-x delete-region
来删除文本,如果您想要大量使用它,可能会将其绑定到密钥。
- 如果要反复抽取相同的文本,请使用secondary selection而不是区域或已杀死的文本。
香草Emacs缺少什么是一个关键的绑定来挑选二级选择。我使用
C-M-y
(参见库second-sel.el
)。 - 要直接访问杀戮戒指中的任何杀戮,请使用
M-y
与Browse Kill Ring或Icicles。在这两种情况下,顶级的M-y
都可以访问kill ring中的所有条目。 如果您使用库second-sel.el
,那么除了杀戮戒指之外,您还可以访问过去次要选择的铃声。 如果你使用库second-sel.el
和Icicles,那么M-y
会从你最后拉出的戒指(杀死戒指或二次选择戒指)中拉出一个条目。 如果您使用库browse-kill-ring+.el,那么kill-ring浏览器也允许您访问另一个环(如果您使用库second-sel.el
,默认情况下,这是次要选择的环)。
我试图破解使用次要模式的路线。我们称之为delete-mode
。进入删除模式后,kill命令(kill-line
,kill-paragraph
,kill-word
,...)将改变它们的行为,以便命令的kill-region
部分将被delete-region
替换,并且新材料将不会被添加到kill ring中。在此模式下,杀环将保持不变。当您切换回此模式时,行为将恢复正常。
以下是试图实现上述内容的不完整代码。它在切换到删除模式时正常工作,但它有切换回问题(关闭次模式)。任何帮助解决这个问题将不胜感激。
(defvar delete-mode nil)
(defun delete-mode ()
"delete minor-mode"
(interactive)
(setq delete-mode (not delete-mode))
(if delete-mode
(defalias 'kill-region 'delete-region)
(defalias 'kill-region 'original-kill-region)
)
)
(if (not (assq 'delete-mode minor-mode-alist))
(setq minor-mode-alist
(cons '(delete-mode "Delete mode on") minor-mode-alist)
)
(defalias 'original-kill-region 'kill-region)
)
我会尝试更多地使用delete-region,但我更了解kill命令。不需要编程或提前规划的技巧是在特别恼人的M-y串之后使用M-w。这使得最终猛拉的更容易访问的副本进入杀戮戒指。
更好的Yank-Pop实施
这定义了一个更好的yank-pop实现,它试图修复增加的yank-pop问题。
它只覆盖函数“current-kill”。由于在Emacs中使用yank,yank-pop和kill ring变量和函数的模块化设计,事实证明,重写“current-kill”是获得我们想要的行为所必需的。
理想的行为是(1)杀死一些东西仍然把它放在杀戮戒指的前面,但现在(2)yanking或猛拉一些东西也把它放在杀戮戒指的前面(3)我们保留的能力yank-pop通过递增一个全局变量并使用它来替换最后一个yank-pop'ped项目来显示在kill ring中移动的外观。这也意味着(4)过渡性猛拉的物品(即由yank或yank-pop命令放置的物品,其中下一个命令是猛烈的弹出物)最终会保持在杀戮戒指中的位置。
;; Example:
;; (setq kill-ring '("a" "b" "c" "d" "e"))
;;
;; keystroke kill ring contents value of kill-ring-yank-index
;; C-y ("a" "b" "c" "d" "e") 0
;; M-y ("b" "a" "c" "d" "e") 1
;; M-y ("c" "a" "b" "d" "e") 2
;; M-y ("d" "a" "b" "c" "e") 3
;; C-y ("d" "a" "b" "c" "e") 0
;; M-y ("a" "d" "b" "c" "e") 1
;; M-d ("x" "a" "d" "b" "c" "e")
;; etc.
代码:
;; ----------------------------------------------------------------
;; helper functions
(defun list-insert-before (l n x)
(if (<= n 0) (cons x l)
(cons (car l) (list-insert-before (cdr l) (- n 1) x))))
(defun list-prepend-nth (l n)
(if (<= n 0) l
(let* ((lx (list-prepend-nth (cdr l) (- n 1))))
(cons (car lx) (cons (car l) (cdr lx))))))
(defun list-insert-car-at (l n)
(list-insert-before (cdr l) n (car l)))
;; ----------------------------------------------------------------
;; overriding current-kill
(defvar kill-ring-yank-index 0
"Index into kill-ring of last yank-pop. The item yank-popped
will be at the head of the kill ring, but if the next command
is also yank-pop, it will be returned here first before this
variable is incremented.")
(defun current-kill (n)
"Replaces standard 'current-kill' function. This version tries
to fix the increasing yank-pop problem.
TODO:
- respect second argument of original function
- deal with 'interprogram-{cut,paste}-function'
"
(if (eq 0 n) ;; looks like we're doing a yank; reset
;; kill-ring-yank-index to 0 to indicate that the
;; current head of the list is useful to the user
(progn (setq kill-ring-yank-index 0)
(car kill-ring))
;; otherwise put the head of kill-ring back where we had
;; previously found it, and fetch the next element
(setq kill-ring
(list-insert-car-at kill-ring kill-ring-yank-index))
(setq kill-ring-yank-index (+ kill-ring-yank-index n))
(when (>= kill-ring-yank-index (- (length kill-ring) 1))
(setq kill-ring-yank-index (- (length kill-ring) 1))
(message "Reached end of kill-ring"))
(when (< kill-ring-yank-index 0)
(setq kill-ring-yank-index 0)
(message "Reached beginning of kill-ring"))
(setq kill-ring (list-prepend-nth kill-ring kill-ring-yank-index))
(car kill-ring)))
;; ----------------------------------------------------------------
;; new key binding
;; Here's an auxiliary function and key binding that makes it easy to
;; go back and forth in the kill-ring while we're yank-popping
(defun yank-pop-back () "" (interactive "*")
(yank-pop -1))
(global-set-key "\C-\M-y" 'yank-pop-back)
我用
M-x浏览杀死环
使用键绑定'M-y'。还有掌舵支持。
提供更多解决方案
以上是关于Emacs:如果不考虑随后的杀戮,如何抽出最后一个猛拉的文字?的主要内容,如果未能解决你的问题,请参考以下文章
如何定义emacs keybinding'C-c C-c'?