From 14369ab313e41c1360542b37b5b53a52ab78a2c3 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sat, 5 Mar 2011 18:30:44 -0800 Subject: [PATCH] * lisp/textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc. (Bug#5326) --- lisp/ChangeLog | 4 ++++ lisp/textmodes/sgml-mode.el | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1168b493314..b2788dd6899 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-03-06 Kevin Ryde + + * textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc. (Bug#5326) + 2011-03-06 Michael Shields (tiny change) * window.el (one-window-p, walk-windows, display-buffer): diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 2229dc6c9e8..314fbf9671b 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -427,7 +427,12 @@ a DOCTYPE or an XML declaration." (format-mode-line mode-name)))))) (defun sgml-fill-nobreak () - ;; Don't break between a tag name and its first argument. + "Don't break between a tag name and its first argument. +This function is designed for use in `fill-nobreak-predicate'. + + + ^ ^ + | no break here | but still allowed here" (save-excursion (skip-chars-backward " \t") (and (not (zerop (skip-syntax-backward "w_"))) -- 2.11.4.GIT