aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2019-06-15 09:50:33 -0700
committerGlenn Morris2019-06-15 09:50:33 -0700
commit30e3e58c1b939376a984a19dcbfbd02bcc0b478a (patch)
tree8e293338a3ed4551a1c41f5f07e6b673a24711b6
parent64366826c7679bad16c0a084f486b333ebd130b6 (diff)
parent7a8f22b00484e2c1a28b48767b8562c6b6e89e06 (diff)
downloademacs-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.el3
-rw-r--r--test/lisp/url/url-file-tests.el4
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
385escape character, and end escape character pattern for expandable 385escape character, and end escape character pattern for expandable
386macro names. 386macro names.
387Optional argument END-NAME specifies the name of a token upon which 387Optional argument END-NAME specifies the name of a token upon which
388parsing should stop. 388parsing should stop."
389If 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)))