From 7a718f5609041a694d93ec066222239525d72f26 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Tue, 26 Sep 2006 06:38:28 +0000 Subject: [PATCH] Add ChangeLog entries for recently contributed changes Also, 2006-09-26 Michael Olson * lisp/muse-backlink.el: Wrap muse-backlink-split-string in an eval-and-compile block to avoid a compiler warning. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-210 --- AUTHORS | 3 +++ ChangeLog | 22 ++++++++++++++++++++++ lisp/muse-backlink.el | 13 +++++++------ 3 files changed, 32 insertions(+), 6 deletions(-) diff --git a/AUTHORS b/AUTHORS index 66f46ad..5e01ba7 100644 --- a/AUTHORS +++ b/AUTHORS @@ -34,6 +34,9 @@ Yann Hodique: Author of muse-wiki.el, Andrew J. Korty: Author of muse-groff.el (assigned past and future changes) +Sasha Kovar: Contributor + - muse-blosxom.el: 5 lines changed + Peter K. Lee: Contributor (assigned past and future changes) diff --git a/ChangeLog b/ChangeLog index 0c6905d..8130485 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,25 @@ +2006-09-26 Michael Olson + + * lisp/muse-backlink.el: Wrap muse-backlink-split-string in an + eval-and-compile block to avoid a compiler warning. + +2006-09-25 Jim Ottaway + + * lisp/muse-backlink.el (muse-backlink-split-string): + Compatibility with Emacs versions < 22 + (muse-backlink-pending): New internal variable + (muse-backlink-get-mode-hook): Find the major mode hook to use, so + that backlinks are inserted at the right time. + (muse-backlink-insert-hook-func): Remove unwind-protection; check + for pending backlink, and that this is the targe page. + (muse-backlink-handle-link): Don’t handle the link if we are + already handling one. Return the link as well as the parent links. + +2006-09-25 Sasha Kovar + + * lisp/muse-blosxom.el (muse-blosxom-new-entry): : Fix for bug + #6942 - muse-blosxom-new-entry fails when using tags. + 2006-09-14 Michael Olson * lisp/muse-texinfo.el (muse-texinfo-protect-wikiwords): Silence diff --git a/lisp/muse-backlink.el b/lisp/muse-backlink.el index ff995e8..2bd51a3 100644 --- a/lisp/muse-backlink.el +++ b/lisp/muse-backlink.el @@ -51,10 +51,11 @@ (eval-when-compile (require 'muse-mode)) -(if (< emacs-major-version 22) - (progn - ;; Swiped from Emacs 22.0.50.4 - (defvar muse-backlink-split-string-default-separators "[ \f\t\n\r\v]+" +(eval-and-compile + (if (< emacs-major-version 22) + (progn + ;; Swiped from Emacs 22.0.50.4 + (defvar muse-backlink-split-string-default-separators "[ \f\t\n\r\v]+" "The default value of separators for `split-string'. A regexp matching strings of whitespace. May be locale-dependent @@ -63,7 +64,7 @@ A regexp matching strings of whitespace. May be locale-dependent Warning: binding this to a different value and using it as default is likely to have undesired semantics.") - (defun muse-backlink-split-string (string &optional separators omit-nulls) + (defun muse-backlink-split-string (string &optional separators omit-nulls) "Split STRING into substrings bounded by matches for SEPARATORS. The beginning and end of STRING, and each match for SEPARATORS, are @@ -109,7 +110,7 @@ Modifies the match data; use `save-match-data' if necessary." (cons (substring string start) list))) (nreverse list)))) - (defalias 'muse-backlink-split-string 'split-string)) + (defalias 'muse-backlink-split-string 'split-string))) (defgroup muse-backlink nil "Hierarchical backlinking for Muse." -- 2.11.4.GIT