Backwards compatibility for missing url-parse

url-parse was added in Emacs 24.3.

markdown-mode.el

@@ -942,7 +942,7 @@
 (require 'outline)
 (require 'thingatpt)
 (require 'cl-lib)
-(require 'url-parse)
+(require 'url-parse nil t)
 
 (defvar jit-lock-start)
 (defvar jit-lock-end)
@@ -6198,8 +6198,8 @@ Otherwise, open with `find-file' after stripping anchor and/or query string."
   (interactive)
   (if (markdown-link-p)
       (let* ((link (markdown-link-link))
-             (struct (url-generic-parse-url link)))
-        (if (url-fullness struct)
+             (struct (and (featurep 'url-parse) (url-generic-parse-url link))))
+        (if (or (null struct) (url-fullness struct))
             ;; Open full URLs in browser
             (browse-url link)
           ;; Strip query string and open partial URLs in Emacs

tests/markdown-test.el

@@ -3359,10 +3359,11 @@ like statement. Detail: https://github.com/jrblevin/markdown-mode/issues/75"
             (lambda (url &rest args) (setq opened-url url))))
       (markdown-follow-thing-at-point nil)
       (should (equal opened-url "http://path?query=foo#id"))))
-  (markdown-test-string "[text](path?query=foo#id)"
-    (markdown-follow-thing-at-point nil)
-    (should (equal (file-name-nondirectory (buffer-file-name)) "path"))
-    (kill-buffer)))
+  (when (featurep 'url-parse)
+    (markdown-test-string "[text](path?query=foo#id)"
+      (markdown-follow-thing-at-point nil)
+      (should (equal (file-name-nondirectory (buffer-file-name)) "path"))
+      (kill-buffer))))
 
 ;;; Wiki link tests: