From 403f5f47288f5c65d5354fded1a2164185b1178c Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Fri, 12 Oct 2007 03:03:29 +0000
Subject: [PATCH] Undid last change: instead of blocking the internal links in
the writers, it makes more sense to block them in the HTML reader.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1048 788f1e2b-df1e-0410-8736-df70ead52e1b
---
debian/changelog | 2 --
src/Text/Pandoc/Writers/Man.hs | 1 -
2 files changed, 3 deletions(-)
diff --git a/debian/changelog b/debian/changelog
index a37793d60..1a73a93c5 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -68,8 +68,6 @@ pandoc (0.45) unstable; urgency=low
+ If label for a link reference contains a colon, surround it by `
signs so it won't be interpreted as the end of the link label.
- * Man writer: Don't print link source for internal links (#...).
-
* Main.hs (tabFilter): Treat '\r' at end of line as newline (in
addition to "\r\n" and '\n').
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index 27c6d9a89..8e14c2bf0 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -272,7 +272,6 @@ inlineToMan opts (TeX str) = return $ text $ escapeCode str
inlineToMan opts (HtmlInline str) = return $ text $ escapeCode str
inlineToMan opts (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n"
inlineToMan opts Space = return $ char ' '
-inlineToMan opts (Link txt (('#':_), _)) = inlineListToMan opts txt
inlineToMan opts (Link txt (src, _)) = do
linktext <- inlineListToMan opts txt
let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src