[nongnu] elpa/markdown-mode b094ae0ac9 3/3: Merge pull request #744 from jrblevin/issue-739

[ELPA Syncer]

branch: elpa/markdown-mode
commit b094ae0ac9f670862803c09b859ce63e14138c61
Merge: 6024f2d78e 156b0eba9f
Author: Shohei YOSHIDA <syohex@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #744 from jrblevin/issue-739
    
    Add geo URI scheme
---
 CHANGES.md       | 2 ++
 markdown-mode.el | 6 +++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/CHANGES.md b/CHANGES.md
index d202c83910..7c62a7c0d0 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -16,6 +16,7 @@
     - Support newer version Eldoc ships with Emacs 28.
     - Don't spell-check against pandoc references. [GH-572][]
     - Support tree-sitter-based major modes used by Emacs 29.
+    - Highlight "geo" URI scheme [GH-739][]
 
 *   Bug fixes:
     - Don't override table faces by link faces [GH-716][]
@@ -27,6 +28,7 @@
   [gh-716]: https://github.com/jrblevin/markdown-mode/issues/716
   [gh-731]: https://github.com/jrblevin/markdown-mode/issues/731
   [gh-737]: https://github.com/jrblevin/markdown-mode/issues/737
+  [gh-739]: https://github.com/jrblevin/markdown-mode/issues/739
 
 
 # Markdown Mode 2.5
diff --git a/markdown-mode.el b/markdown-mode.el
index 26581014ab..0133e07d3c 100644
--- a/markdown-mode.el
+++ b/markdown-mode.el
@@ -275,7 +275,7 @@ cause lag when typing on slower machines."
 
 (defcustom markdown-uri-types
   '("acap" "cid" "data" "dav" "fax" "file" "ftp"
-    "gopher" "http" "https" "imap" "ldap" "mailto"
+    "geo" "gopher" "http" "https" "imap" "ldap" "mailto"
     "mid" "message" "modem" "news" "nfs" "nntp"
     "pop" "prospero" "rtsp" "service" "sip" "tel"
     "telnet" "tip" "urn" "vemmi" "wais")
@@ -6408,7 +6408,7 @@ following section."
       (while (and (not found)
                   (not (bobp))
                   (re-search-backward markdown-regex-header nil 'move))
-        (when (not (markdown-code-block-at-pos (match-beginning 0))))
+        (markdown-code-block-at-pos (match-beginning 0))
         (setq found (match-beginning 0)))
       (setq arg (1- arg)))
     ;; Move forward with negative argument.
@@ -6417,7 +6417,7 @@ following section."
       (while (and (not found)
                   (not (eobp))
                   (re-search-forward markdown-regex-header nil 'move))
-        (when (not (markdown-code-block-at-pos (match-beginning 0))))
+        (markdown-code-block-at-pos (match-beginning 0))
         (setq found (match-beginning 0)))
       (setq arg (1+ arg)))
     (when found