如何让波浪号覆盖 Emacs 中的空格？

Question

如果点在任何东西上（特别是行尾），我希望（在与 TeX 相关的模式下）波浪号键像往常一样插入自身，但如果点在空间上，我希望波浪号覆盖它。 （在将某些内容粘贴到 TeX 源文件后，这将是一个非常有用的功能。）我破解了这样的内容：

(defun electric-tie ()
  "Inserts a tilde at point unless the point is at a space
character, in which case it deletes the space first."
  (interactive)
  (while (equal (char-after) 32) (delete-char 1))
  (while (equal (char-before) 32) (delete-char -1))
  (insert "~"))

(add-hook 'TeX-mode-hook (lambda () (local-set-key "~" 'electric-tie)))

我的问题很简单：它是否正确（似乎有效），是否可以做得更好？ （我假设如果第一个问题的答案是肯定的，那么后者就是风格问题。）

Answer 1

如前所述，使用“字符”文字比使用数字文字更好。您可以在 ? 、?\  和 ?\s 之间进行选择，其中最后一个仅从 Emacs-22 开始受支持，但在其他方面是推荐的方式，因为它（如您所说）“更容易看到”并且也存在' 没有空格字符会被填充段落或空白修剪之类的东西变成其他东西（或删除）的风险。

您确实可以使用eq 代替equal，但区别并不重要。

最后，我会调用 (call-interactively 'self-insert-command) 而不是手动插入，但区别并不那么重要（例如，它可以让您插入 3 个带有 C-u ~ 的波浪号）。

Answer 2

几点：

1. 使用? （问号空格）代替32 来表达字符文字。

2. 不要在主要模式挂钩中定义键，而是在eval-after-load 块中进行。不同之处在于每次使用主模式时都会运行主模式挂钩，但每个主模式只有一个键盘映射。所以在里面反复重新定义一个键是没有意义的。

   见：https://stackoverflow.com/a/8139587/903943

3. 看起来此命令不应使用数字参数，但值得了解交互式规范以了解如何通过考虑数字参数使您编写的其他命令更加灵活。

关于您的新修改的更多说明：

您清除点周围空间的方法没有错，但我会这样做：

(defun foo ()
  (interactive)
  (skip-chars-forward " ")
  (delete-region (point) (+ (point) (skip-chars-backward " "))))