aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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)))