From 05bebd7a366587281225c306b71776d355382f01 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Fri, 30 Dec 2005 23:22:45 +0000 Subject: [PATCH] muse-publish: Prevent error when return value is not a string. * lisp/muse-publish.el (muse-publish-markup): Make sure returned value is a string before using it to replace text. Thanks to Sacha for the patch. git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-333 --- ChangeLog | 15 +++++++++++++++ lisp/muse-publish.el | 2 +- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index f943747..45fda09 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,21 @@ # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0 # +2005-12-30 23:22:45 GMT Michael Olson patch-333 + + Summary: + muse-publish: Prevent error when return value is not a string. + Revision: + muse--main--1.0--patch-333 + + * lisp/muse-publish.el (muse-publish-markup): Make sure returned value is + a string before using it to replace text. Thanks to Sacha for the + patch. + + modified files: + ChangeLog lisp/muse-publish.el + + 2005-12-30 23:12:56 GMT Michael Olson patch-332 Summary: diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index aaa2d32..e0e1d3e 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -453,7 +453,7 @@ to the text with ARGS as parameters." ((symbolp repl) (symbol-value repl)) (t repl)))) - (if text + (if (stringp text) (replace-match text t)))) (if (and muse-publishing-last-position (= pos muse-publishing-last-position)) -- 2.11.4.GIT