diff options
| author | martin rudalics <rudalics@gmx.at> | 2020-09-22 16:44:15 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-22 16:44:15 +0200 |
| commit | 10696d0ac51b9a92359ab7cb2c2e0a28d186dd52 (patch) | |
| tree | 31167a25df48766e21638991de3ff3c4416c2335 /test/lisp/emacs-lisp/lisp-tests.el | |
| parent | 73f77558ccd5f0d83af294676eedfce3aa1bb4cb (diff) | |
| download | emacs-10696d0ac51b9a92359ab7cb2c2e0a28d186dd52.tar.gz emacs-10696d0ac51b9a92359ab7cb2c2e0a28d186dd52.tar.bz2 emacs-10696d0ac51b9a92359ab7cb2c2e0a28d186dd52.zip | |
Make delete-pair only delete pairs that are part of insert-pair-alist
* lisp/emacs-lisp/lisp.el (delete-pair): Only delete pairs that
are part of `insert-pair-alist' (bug#4136).
Diffstat (limited to 'test/lisp/emacs-lisp/lisp-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/lisp-tests.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/lisp-tests.el b/test/lisp/emacs-lisp/lisp-tests.el index a2b8304c96a..1476574552f 100644 --- a/test/lisp/emacs-lisp/lisp-tests.el +++ b/test/lisp/emacs-lisp/lisp-tests.el @@ -136,8 +136,7 @@ (text-mode) (insert "\"foo\"") (goto-char (point-min)) - (delete-pair) - (should (string-equal "fo\"" (buffer-string))))) + (should-error (delete-pair)))) (ert-deftest lisp-delete-pair-quotes-text-mode-syntax-table () "Test \\[delete-pair] with modified Text Mode syntax for #15014." |