From 335393c053a1034098c8319cdf2f6ec53c3cd1c7 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sun, 20 Nov 2005 22:22:10 +0000 Subject: [PATCH] Deal with case when muse-make-link is passed an explicit link. * lisp/muse-mode.el (muse-make-link): Apply patch from Sacha that deals with case when we are passed an explicit-style link. git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-276 --- ChangeLog | 14 ++++++++++++++ lisp/muse-mode.el | 3 +++ 2 files changed, 17 insertions(+) diff --git a/ChangeLog b/ChangeLog index 0e83b0a..5414d54 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,20 @@ # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0 # +2005-11-20 22:22:10 GMT Michael Olson patch-276 + + Summary: + Deal with case when muse-make-link is passed an explicit link. + Revision: + muse--main--1.0--patch-276 + + * lisp/muse-mode.el (muse-make-link): Apply patch from Sacha that deals + with case when we are passed an explicit-style link. + + modified files: + ChangeLog lisp/muse-mode.el + + 2005-11-19 23:06:24 GMT Michael Olson patch-275 Summary: diff --git a/lisp/muse-mode.el b/lisp/muse-mode.el index b420041..6351cc0 100644 --- a/lisp/muse-mode.el +++ b/lisp/muse-mode.el @@ -281,6 +281,9 @@ This is used to keep links from being improperly colorized by flyspell." (defun muse-make-link (link &optional name) "Return a link to LINK with NAME as the text." + (when (string-match muse-explicit-link-regexp link) + (unless name (setq name (match-string 2 link))) + (setq link (match-string 1 link))) (if (and name link (not (string= name "")) -- 2.11.4.GIT