branch: elpa/markdown-mode
commit b094ae0ac9f670862803c09b859ce63e14138c61
Merge: 6024f2d78e 156b0eba9f
Author: Shohei YOSHIDA <syo...@gmail.com>
Commit: GitHub <nore...@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
