Emacs，更改默认的 reftex 引用

Question

我想在使用 reftex 时修改 emacs 的行为，以便在按“抄送 [”并选择引用格式后，出现的默认正则表达式将为我提供上次使用的引用（正常行为是默认到光标之前的单词，这很少有任何用处）。我经常连续多次引用相同的来源，特别是在一张纸上做笔记时，所以这将是节省几次击键的好方法，这就是我们使用 emacs 的目的，对吧:)

我知道有点口齿不清，所以我希望最终我自己能找到一种方法来做到这一点，但我认为值得四处询问，看看是否有人先做到了，没有必要重新发明轮子。 （如果您确实想要此功能，但也不知道如何实现它，请告诉我，我完成后会给您发送电子邮件。）

谢谢

Answer 1

加载 reftex 后（例如在 AUCTeX 模式挂钩中）重新定义 reftex-get-bibkey-default 应该可以做到。最简单的是：

   (defun reftex-get-bibkey-default () (car reftex-cite-regexp-hist) )

但是，这将破坏默认行为，并且如果您的历史记录为空，则不会返回任何内容，为了在这种情况下保留 reftex 中的“前一个单词”行为，然后使用历史记录，您可以重新定义是这样的：

(defun reftex-get-bibkey-default () (if reftex-cite-regexp-hist
                                            (car reftex-cite-regexp-hist)
                                          (let* ((macro (reftex-what-macro 1)))
                                            (save-excursion
                                              (if (and macro (string-match "cite" (car macro)))
                                                  (goto-char (cdr macro)))
                                              (skip-chars-backward "^a-zA-Z0-9")
                                              (reftex-this-word)))
                                          )
    )

Answer 2

（警告：这是我写的第一个 elisp 代码，长度超过 3 行，它可能是糟糕的代码。但它似乎有效。但是任何关于风格或最佳实践的评论将不胜感激。）

我'我已经解决了！只需将以下代码添加到 .emacs 中，它的行为就完全符合我的希望。如果您之前没有引用过任何内容，那么它会表现正常，否则默认引用是最后使用的。

(defvar reftex-last-citation nil)

(defadvice reftex-citation (after reftex-citation-and-remember-citation activate)
  "Save last citation to 'reftex-last-citation after running 'reftex-citation"
  (setq reftex-last-citation ad-return-value))

(defadvice reftex-get-bibkey-default (around reftex-just-return-last-citation activate)
  "If there is a 'reftex-last-citation then just return that instead of running 'reftex-get-bibkey-default"
  (if reftex-last-citation
      (setq ad-return-value reftex-last-citation)
    ad-do-it))

感谢莫蒂默的帮助，没有你的起点我永远不会到达这里！

（只是想知道，您的解决方案是否有任何原因不使用 defadvice？正如我上面暗示的那样，elisp 对我来说都是非常新的，所以了解最好的方法会很有用事物。）