diff options
| author | Glenn Morris | 2019-06-15 09:50:33 -0700 |
|---|---|---|
| committer | Glenn Morris | 2019-06-15 09:50:33 -0700 |
| commit | 30e3e58c1b939376a984a19dcbfbd02bcc0b478a (patch) | |
| tree | 8e293338a3ed4551a1c41f5f07e6b673a24711b6 | |
| parent | 64366826c7679bad16c0a084f486b333ebd130b6 (diff) | |
| parent | 7a8f22b00484e2c1a28b48767b8562c6b6e89e06 (diff) | |
| download | emacs-30e3e58c1b939376a984a19dcbfbd02bcc0b478a.tar.gz emacs-30e3e58c1b939376a984a19dcbfbd02bcc0b478a.zip | |
Merge from origin/emacs-26
7a8f22b * test/lisp/url/url-file-tests.el (url-file): Use file:///, n...
0c5f6c6 Fix doc of srecompile-compile-split-code (Bug#36200)
| -rw-r--r-- | lisp/cedet/srecode/compile.el | 3 | ||||
| -rw-r--r-- | test/lisp/url/url-file-tests.el | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el index 834cbff6032..80b267b8c23 100644 --- a/lisp/cedet/srecode/compile.el +++ b/lisp/cedet/srecode/compile.el | |||
| @@ -385,8 +385,7 @@ ESCAPE_START and ESCAPE_END are regexps that indicate the beginning | |||
| 385 | escape character, and end escape character pattern for expandable | 385 | escape character, and end escape character pattern for expandable |
| 386 | macro names. | 386 | macro names. |
| 387 | Optional argument END-NAME specifies the name of a token upon which | 387 | Optional argument END-NAME specifies the name of a token upon which |
| 388 | parsing should stop. | 388 | parsing should stop." |
| 389 | If END-NAME is specified, and the input string" | ||
| 390 | (let* ((what str) | 389 | (let* ((what str) |
| 391 | (end-token nil) | 390 | (end-token nil) |
| 392 | (comp nil) | 391 | (comp nil) |
diff --git a/test/lisp/url/url-file-tests.el b/test/lisp/url/url-file-tests.el index 45af1bba95d..84b7c3a70b0 100644 --- a/test/lisp/url/url-file-tests.el +++ b/test/lisp/url/url-file-tests.el | |||
| @@ -33,11 +33,11 @@ | |||
| 33 | "Directory for url-file test files.") | 33 | "Directory for url-file test files.") |
| 34 | 34 | ||
| 35 | (ert-deftest url-file () | 35 | (ert-deftest url-file () |
| 36 | "Test reading file via file:// URL." | 36 | "Test reading file via file:/// URL." |
| 37 | (let ((file (expand-file-name "file.txt" url-file-tests-data-directory))) | 37 | (let ((file (expand-file-name "file.txt" url-file-tests-data-directory))) |
| 38 | (should (equal | 38 | (should (equal |
| 39 | (with-current-buffer | 39 | (with-current-buffer |
| 40 | (url-file (url-generic-parse-url (concat "file://" file)) | 40 | (url-file (url-generic-parse-url (concat "file:///" file)) |
| 41 | #'ignore nil) | 41 | #'ignore nil) |
| 42 | (prog1 (buffer-substring (point) (point-max)) | 42 | (prog1 (buffer-substring (point) (point-max)) |
| 43 | (kill-buffer))) | 43 | (kill-buffer))) |