diff options
| author | Paul Eggert | 2019-11-11 10:30:13 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-11-11 10:32:53 -0800 |
| commit | 6b4a97c1c78f39ce890d100acceceb652d14e20d (patch) | |
| tree | 9d9f8347a952226adcd73680ed89c5679d6e5326 /test | |
| parent | 269796288a43520a1dcc481337af472d086faaa4 (diff) | |
| download | emacs-6b4a97c1c78f39ce890d100acceceb652d14e20d.tar.gz emacs-6b4a97c1c78f39ce890d100acceceb652d14e20d.zip | |
Fix some quoting glitches in doc strings
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/files-tests.el | 4 | ||||
| -rw-r--r-- | test/src/lread-tests.el | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index d73c6a78421..eca1e3bc7f9 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el | |||
| @@ -240,8 +240,8 @@ form.") | |||
| 240 | (should (equal kill-emacs-args '(nil))))) | 240 | (should (equal kill-emacs-args '(nil))))) |
| 241 | 241 | ||
| 242 | (ert-deftest files-tests-read-file-in-~ () | 242 | (ert-deftest files-tests-read-file-in-~ () |
| 243 | "Test file prompting in directory named '~'. | 243 | "Test file prompting in directory named `~'. |
| 244 | If we are in a directory named '~', the default value should not | 244 | If we are in a directory named `~', the default value should not |
| 245 | be $HOME." | 245 | be $HOME." |
| 246 | (cl-letf (((symbol-function 'completing-read) | 246 | (cl-letf (((symbol-function 'completing-read) |
| 247 | (lambda (_prompt _coll &optional _pred _req init _hist def _) | 247 | (lambda (_prompt _coll &optional _pred _req init _hist def _) |
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el index ba5bfe0145d..3a2212ef770 100644 --- a/test/src/lread-tests.el +++ b/test/src/lread-tests.el | |||
| @@ -145,7 +145,7 @@ literals (Bug#20852)." | |||
| 145 | "expected!"))))) | 145 | "expected!"))))) |
| 146 | 146 | ||
| 147 | (ert-deftest lread-tests--funny-quote-symbols () | 147 | (ert-deftest lread-tests--funny-quote-symbols () |
| 148 | "Check that 'smart quotes' or similar trigger errors in symbol names." | 148 | "Check that `smart quotes' or similar trigger errors in symbol names." |
| 149 | (dolist (quote-char | 149 | (dolist (quote-char |
| 150 | '(#x2018 ;; LEFT SINGLE QUOTATION MARK | 150 | '(#x2018 ;; LEFT SINGLE QUOTATION MARK |
| 151 | #x2019 ;; RIGHT SINGLE QUOTATION MARK | 151 | #x2019 ;; RIGHT SINGLE QUOTATION MARK |