diff options
| author | Paul Eggert | 2015-09-17 16:08:20 -0700 |
|---|---|---|
| committer | Paul Eggert | 2015-09-17 16:09:39 -0700 |
| commit | 284c470ef752967fcd8bae6a450dc138462b1e49 (patch) | |
| tree | 83e8bcfe4c756e741ee9d4ecdf80f6b8d0e73c91 /test | |
| parent | d149ff5233805c0a09b6067e0cf27549291cc83a (diff) | |
| download | emacs-284c470ef752967fcd8bae6a450dc138462b1e49.tar.gz emacs-284c470ef752967fcd8bae6a450dc138462b1e49.zip | |
Backslash cleanup in Elisp source files
This patch should not change behavior. It typically omits backslashes
where they are redundant (e.g., in the string literal "^\$").
In a few places, insert backslashes where they make regular
expressions clearer: e.g., replace "^\*" (equivalent to "^*") with
"^\\*", which has the same effect as a regular expression.
Also, use ‘\ %’ instead of ‘\%’ when avoiding confusion with SCCS IDs,
and similarly use ‘\ $’ instead of ‘\$’ when avoiding confusion with
RCS IDs, as that makes it clearer that the backslash is intended.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/ert-x-tests.el | 4 | ||||
| -rw-r--r-- | test/automated/icalendar-tests.el | 10 | ||||
| -rw-r--r-- | test/etags/el-src/emacs/lisp/progmodes/etags.el | 2 |
3 files changed, 8 insertions, 8 deletions
diff --git a/test/automated/ert-x-tests.el b/test/automated/ert-x-tests.el index 11b7ed4da7f..660a1cb218e 100644 --- a/test/automated/ert-x-tests.el +++ b/test/automated/ert-x-tests.el | |||
| @@ -224,8 +224,8 @@ | |||
| 224 | "This test attempts to demonstrate that there is no way to | 224 | "This test attempts to demonstrate that there is no way to |
| 225 | force immediate truncation of the *Messages* buffer from Lisp | 225 | force immediate truncation of the *Messages* buffer from Lisp |
| 226 | \(and hence justifies the existence of | 226 | \(and hence justifies the existence of |
| 227 | `ert--force-message-log-buffer-truncation'\): The only way that | 227 | `ert--force-message-log-buffer-truncation'): The only way that |
| 228 | came to my mind was \(message \"\"\), which doesn't have the | 228 | came to my mind was \(message \"\"), which doesn't have the |
| 229 | desired effect." | 229 | desired effect." |
| 230 | :tags '(:causes-redisplay) | 230 | :tags '(:causes-redisplay) |
| 231 | (ert-with-buffer-renamed ("*Messages*") | 231 | (ert-with-buffer-renamed ("*Messages*") |
diff --git a/test/automated/icalendar-tests.el b/test/automated/icalendar-tests.el index c83044c719e..7e05d49883e 100644 --- a/test/automated/icalendar-tests.el +++ b/test/automated/icalendar-tests.el | |||
| @@ -213,7 +213,7 @@ END:VTIMEZONE | |||
| 213 | (should (string= "STD-02:00DST-03:00,M3.5.0/03:00:00,M10.5.0/04:00:00" | 213 | (should (string= "STD-02:00DST-03:00,M3.5.0/03:00:00,M10.5.0/04:00:00" |
| 214 | (cdr result))) | 214 | (cdr result))) |
| 215 | (setq vtimezone (icalendar-tests--get-ical-event "BEGIN:VTIMEZONE | 215 | (setq vtimezone (icalendar-tests--get-ical-event "BEGIN:VTIMEZONE |
| 216 | TZID:anothername\, with a comma | 216 | TZID:anothername, with a comma |
| 217 | BEGIN:STANDARD | 217 | BEGIN:STANDARD |
| 218 | DTSTART:16010101T040000 | 218 | DTSTART:16010101T040000 |
| 219 | TZOFFSETFROM:+0300 | 219 | TZOFFSETFROM:+0300 |
| @@ -235,7 +235,7 @@ END:VTIMEZONE | |||
| 235 | (cdr result))) | 235 | (cdr result))) |
| 236 | ;; offsetfrom = offsetto | 236 | ;; offsetfrom = offsetto |
| 237 | (setq vtimezone (icalendar-tests--get-ical-event "BEGIN:VTIMEZONE | 237 | (setq vtimezone (icalendar-tests--get-ical-event "BEGIN:VTIMEZONE |
| 238 | TZID:Kolkata\, Chennai\, Mumbai\, New Delhi | 238 | TZID:Kolkata, Chennai, Mumbai, New Delhi |
| 239 | X-MICROSOFT-CDO-TZID:23 | 239 | X-MICROSOFT-CDO-TZID:23 |
| 240 | BEGIN:STANDARD | 240 | BEGIN:STANDARD |
| 241 | DTSTART:16010101T000000 | 241 | DTSTART:16010101T000000 |
| @@ -1327,7 +1327,7 @@ DTEND;VALUE=DATE-TIME:20030919T113000" | |||
| 1327 | (icalendar-tests--test-import | 1327 | (icalendar-tests--test-import |
| 1328 | "BEGIN:VCALENDAR | 1328 | "BEGIN:VCALENDAR |
| 1329 | BEGIN:VTIMEZONE | 1329 | BEGIN:VTIMEZONE |
| 1330 | TZID:fictional\, nonexistent\, arbitrary | 1330 | TZID:fictional, nonexistent, arbitrary |
| 1331 | BEGIN:STANDARD | 1331 | BEGIN:STANDARD |
| 1332 | DTSTART:20100101T000000 | 1332 | DTSTART:20100101T000000 |
| 1333 | TZOFFSETFROM:+0200 | 1333 | TZOFFSETFROM:+0200 |
| @@ -1463,7 +1463,7 @@ METHOD:REQUEST | |||
| 1463 | PRODID:Microsoft CDO for Microsoft Exchange | 1463 | PRODID:Microsoft CDO for Microsoft Exchange |
| 1464 | VERSION:2.0 | 1464 | VERSION:2.0 |
| 1465 | BEGIN:VTIMEZONE | 1465 | BEGIN:VTIMEZONE |
| 1466 | TZID:Kolkata\, Chennai\, Mumbai\, New Delhi | 1466 | TZID:Kolkata, Chennai, Mumbai, New Delhi |
| 1467 | X-MICROSOFT-CDO-TZID:23 | 1467 | X-MICROSOFT-CDO-TZID:23 |
| 1468 | BEGIN:STANDARD | 1468 | BEGIN:STANDARD |
| 1469 | DTSTART:16010101T000000 | 1469 | DTSTART:16010101T000000 |
| @@ -2174,7 +2174,7 @@ METHOD:REQUEST | |||
| 2174 | PRODID:Microsoft Exchange Server 2007 | 2174 | PRODID:Microsoft Exchange Server 2007 |
| 2175 | VERSION:2.0 | 2175 | VERSION:2.0 |
| 2176 | BEGIN:VTIMEZONE | 2176 | BEGIN:VTIMEZONE |
| 2177 | TZID:(UTC+01:00) Amsterdam\, Berlin\, Bern\, Rome\, Stockholm\, Vienna | 2177 | TZID:(UTC+01:00) Amsterdam, Berlin, Bern, Rome, Stockholm, Vienna |
| 2178 | BEGIN:STANDARD | 2178 | BEGIN:STANDARD |
| 2179 | DTSTART:16010101T030000 | 2179 | DTSTART:16010101T030000 |
| 2180 | TZOFFSETFROM:+0200 | 2180 | TZOFFSETFROM:+0200 |
diff --git a/test/etags/el-src/emacs/lisp/progmodes/etags.el b/test/etags/el-src/emacs/lisp/progmodes/etags.el index 6acafdbaba0..4e079200ee0 100644 --- a/test/etags/el-src/emacs/lisp/progmodes/etags.el +++ b/test/etags/el-src/emacs/lisp/progmodes/etags.el | |||
| @@ -1766,7 +1766,7 @@ if the file was newly read in, the value is the filename." | |||
| 1766 | "No \\[tags-search] or \\[tags-query-replace] in progress")) | 1766 | "No \\[tags-search] or \\[tags-query-replace] in progress")) |
| 1767 | "Form for `tags-loop-continue' to eval to scan one file. | 1767 | "Form for `tags-loop-continue' to eval to scan one file. |
| 1768 | If it returns non-nil, this file needs processing by evalling | 1768 | If it returns non-nil, this file needs processing by evalling |
| 1769 | \`tags-loop-operate'. Otherwise, move on to the next file.") | 1769 | `tags-loop-operate'. Otherwise, move on to the next file.") |
| 1770 | 1770 | ||
| 1771 | (defun tags-loop-eval (form) | 1771 | (defun tags-loop-eval (form) |
| 1772 | "Evaluate FORM and return its result. | 1772 | "Evaluate FORM and return its result. |