如何让Emacs按光标位置缩进粘贴剪贴板内容？

我来帮你搞定这个需求——不管在什么编辑模式下，粘贴剪贴板里的代码片段时，自动跟光标当前的缩进位置对齐，完全不受模式自带格式化规则的干扰！

实现步骤 #

1. 定义自定义粘贴函数

把下面的代码添加到你的Emacs配置文件（比如~/.emacs或者~/.emacs.d/init.el）里：

(defun my-indent-paste ()
  "Paste clipboard content aligned to current cursor's indentation, ignoring mode-specific formatting."
  (interactive)
  (let* ((current-indent (buffer-substring (line-beginning-position) (point)))
         (clipboard-content (current-kill 0))
         (lines (split-string clipboard-content "\n"))
         (indented-lines (mapcar (lambda (line)
                                   (if (string-empty-p line)
                                       line
                                     (concat current-indent line)))
                                 lines)))
    (insert (mapconcat 'identity indented-lines "\n"))))

这个函数的逻辑很直白：

• 先抓取光标所在行从行首到光标位置的所有字符（也就是当前的缩进）
• 读取剪贴板里的内容，拆分成一行一行
• 给每一行非空的内容前面加上刚才抓取的缩进（空行保持原样）
• 把处理好的内容插入到光标位置

2. 绑定快捷键

你可以把这个函数绑定到常用的粘贴快捷键，比如替换默认的C-y：

(global-set-key (kbd "C-y") 'my-indent-paste)

或者不想替换默认粘贴的话，绑定到一个新的组合键，比如C-M-y：

(global-set-key (kbd "C-M-y") 'my-indent-paste)

3. 测试效果

比如光标现在在一行的4空格缩进位置，剪贴板里是：

call_in_the_middle('arg')
call_something()
call_else()

粘贴后会自动变成：

call_in_the_middle('arg')
    call_something()
    call_else()

而且不管你是在Python模式、C模式还是纯文本模式，这个功能都会生效，完全不会触发模式自带的格式化调整——完全按照你想要的方式对齐！

内容的提问来源于stack exchange，提问作者alex_1948511