diff options
| author | Philipp Stephani | 2016-05-02 23:58:15 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-05-02 23:58:15 +0200 |
| commit | 1331467910537f4d85fa842c993ef2c48ebbf749 (patch) | |
| tree | cb2c1a213399d9f1b9caedcd443ab0398603db82 /test | |
| parent | 33d6250a9384e33531d6ec30f29613eb789c57b4 (diff) | |
| download | emacs-1331467910537f4d85fa842c993ef2c48ebbf749.tar.gz emacs-1331467910537f4d85fa842c993ef2c48ebbf749.zip | |
Allow eval-ing named character literals
* lisp/progmodes/elisp-mode.el (elisp--preceding-sexp): Skip over
named character literals.
* test/lisp/progmodes/elisp-mode-tests.el
(elisp--preceding-sexp--char-name): Add test for skipping over
named character literals (bug#23354).
Copyright-paperwork-exempt: yes
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/progmodes/elisp-mode-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el index 1679af30821..a7562a00c88 100644 --- a/test/lisp/progmodes/elisp-mode-tests.el +++ b/test/lisp/progmodes/elisp-mode-tests.el | |||
| @@ -641,5 +641,11 @@ to (xref-elisp-test-descr-to-target xref)." | |||
| 641 | (elisp--xref-find-definitions (eval '(provide 'stephe-leake-feature))) | 641 | (elisp--xref-find-definitions (eval '(provide 'stephe-leake-feature))) |
| 642 | nil) | 642 | nil) |
| 643 | 643 | ||
| 644 | (ert-deftest elisp--preceding-sexp--char-name () | ||
| 645 | (with-temp-buffer | ||
| 646 | (emacs-lisp-mode) | ||
| 647 | (insert "?\\N{HEAVY CHECK MARK}") | ||
| 648 | (should (equal (elisp--preceding-sexp) ?\N{HEAVY CHECK MARK})))) | ||
| 649 | |||
| 644 | (provide 'elisp-mode-tests) | 650 | (provide 'elisp-mode-tests) |
| 645 | ;;; elisp-mode-tests.el ends here | 651 | ;;; elisp-mode-tests.el ends here |