From 747856a48501092ff3e73242894fc9a27ef73a9d Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sat, 28 May 2005 23:21:39 +0000 Subject: [PATCH] Fix error with example tags and message publishing style. * muse-colors.el: Don't define `font-lock-mode' as a variable. Check to see if a previous definition for `font-lock-multiline' exists. * muse-message.el (muse-message-example-tag): Don't require two additional (unused) arguments. git-archimport-id: mwolson@gnu.org--2005/muse--main--1.0--patch-43 --- ChangeLog | 17 +++++++++++++++++ muse-colors.el | 5 +++-- muse-message.el | 2 +- 3 files changed, 21 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index b387463..fe4641b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,23 @@ # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2005/muse--main--1.0 # +2005-05-28 23:21:39 GMT Michael Olson patch-43 + + Summary: + Fix error with example tags and message publishing style. + Revision: + muse--main--1.0--patch-43 + + * muse-colors.el: Don't define `font-lock-mode' as a variable. Check to + see if a previous definition for `font-lock-multiline' exists. + + * muse-message.el (muse-message-example-tag): Don't require two + additional (unused) arguments. + + modified files: + ChangeLog muse-colors.el muse-message.el + + 2005-05-22 05:58:40 GMT Michael Olson patch-42 Summary: diff --git a/muse-colors.el b/muse-colors.el index 26528a5..c66d886 100644 --- a/muse-colors.el +++ b/muse-colors.el @@ -259,8 +259,9 @@ affect the match data results." :set 'muse-configure-highlighting :group 'muse-colors) -(defvar font-lock-mode nil) -(defvar font-lock-multiline nil) +;; XEmacs users don't have `font-lock-multiline'. +(unless (boundp 'font-lock-multiline) + (defvar font-lock-multiline nil)) (defun muse-use-font-lock () (set (make-local-variable 'font-lock-multiline) 'undecided) diff --git a/muse-message.el b/muse-message.el index 96aa9aa..310c671 100644 --- a/muse-message.el +++ b/muse-message.el @@ -160,7 +160,7 @@ See the documentation for `muse-publish-markup-tags'." (insert url)) ""))) -(defun muse-message-example-tag (beg end attrs highlight-p) +(defun muse-message-example-tag (beg end) "Mark up example and code by simply indenting them." (muse-publish-escape-specials beg end) (kill-line 1) -- 2.11.4.GIT