From 98e0a4491b5efafe6fbaaec1d592b6d7f21d108c Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sat, 28 Jan 2006 02:47:07 +0000 Subject: [PATCH] Add documentation to some publishing functions. * lisp/muse-publish.el (muse-publish-mark-read-only) (muse-publish-mark-noemphasis): Add documentation. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-9 --- lisp/muse-publish.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/muse-publish.el b/lisp/muse-publish.el index 51f2318..538025d 100644 --- a/lisp/muse-publish.el +++ b/lisp/muse-publish.el @@ -1351,10 +1351,16 @@ the cadr is the page name, and the cddr is the anchor." (delete-char -1))))) (defun muse-publish-mark-read-only (beg end) + "Add read-only properties to the given region." (add-text-properties beg end '(rear-nonsticky (read-only) read-only t)) nil) (defun muse-publish-mark-noemphasis (&optional beg end) + "Make sure that no emphasis characters are interpreted within +the given region. If a region is not specified, use the 0th +match data to determine it. + +This is usually applied to extended links." (unless beg (setq beg (match-beginning 0))) (unless end (setq end (match-end 0))) (add-text-properties beg end '(noemphasis t)) -- 2.11.4.GIT