Question

在我正在使用的一些模式中，emacs通过自动关闭一些元素（如引号，括号）来帮助我。

然而，有时候，出于习惯，我会自行输入结束元素，最后得到())或"""。

如何设置emacs以忽略额外的密钥？

Answer 1

虽然推广自己很有趣，但autopair已成为解决此问题的规范解决方案。它会做你要求的一切，还有一些你不知道自己想要的东西。 Emacs wiki entry。

Emacs 24（目前处于预测试阶段）将预先包装电子配对包。 Autopair仍然比内置的更加复杂。

Answer 2

编辑：我的.emacs中有以下一段时间，并且它工作正常，所以我没有想太多。正如event_jr在他的回答中指出的那样，使用autopairs.el包可以获得相同的功能（显然更多一些），从我从这个代码获得的相同页面链接。

我在.emacs中有以下代码来执行此操作，取自the emacs wiki:

(setq skeleton-pair t)

(setq skeleton-pair-alist
      '((?\( _ ?\))
    (?[  _ ?])
    (?{  _ ?})
    (?\" _ ?\")))

(defun autopair-insert (arg)
  (interactive "P")
  (let (pair)
    (cond
     ((assq last-command-char skeleton-pair-alist)
      (autopair-open arg))
     (t
      (autopair-close arg)))))

(defun autopair-open (arg)
  (interactive "P")
  (let ((pair (assq last-command-char
            skeleton-pair-alist)))
    (cond
     ((and (not mark-active)
       (eq (car pair) (car (last pair)))
       (eq (car pair) (char-after)))
      (autopair-close arg))
     (t
      (skeleton-pair-insert-maybe arg)))))

(defun autopair-close (arg)
  (interactive "P")
  (cond
   (mark-active
    (let (pair open)
      (dolist (pair skeleton-pair-alist)
    (when (eq last-command-char (car (last pair)))
      (setq open (car pair))))
      (setq last-command-char open)
      (skeleton-pair-insert-maybe arg)))
   ((looking-at
     (concat "[ \t\n]*"
         (regexp-quote (string last-command-char))))
    (replace-match (string last-command-char))
    (indent-according-to-mode))
   (t
    (self-insert-command (prefix-numeric-value arg))
    (indent-according-to-mode))))

(defun autopair-backspace (arg)
  (interactive "p")
  (if (eq (char-after)
      (car (last (assq (char-before) skeleton-pair-alist))))
      (and (char-after) (delete-char 1)))
  (delete-backward-char arg))

(global-set-key [backspace] 'autopair-backspace)
(define-key isearch-mode-map [backspace] 'isearch-delete-char) ;; required to fix behaviour in isearch

(global-set-key "("  'autopair-insert)
(global-set-key ")"  'autopair-insert)
(global-set-key "["  'autopair-insert)
(global-set-key "]"  'autopair-insert)
(global-set-key "{"  'autopair-insert)
(global-set-key "}"  'autopair-insert)
(global-set-key "\"" 'autopair-insert)

Answer 3

我不确定它是否只是Emacs 24功能，但electric-pair-mode似乎可以做你想要的。

智能自动关闭匹配字符

3 个答案: