* lisp/textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc. (Bug#5326)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1168b4933149eacaa0fe822c994a4d9b41dd201c..b2788dd68998fc543250ae9a932b0228f9aadf9b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-06  Kevin Ryde  <user42@zip.com.au>
+
+       * textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc.  (Bug#5326)
+
 2011-03-06  Michael Shields  <shields@msrl.com>  (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 2229dc6c9e8dcd17b719ab32740ec53159d36c8e..314fbf9671b4065aacbd5a4c620a45c365c706ed 100644 (file)
--- 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'.
+
+    <a href=\"some://where\" type=\"text/plain\">
+      ^                   ^
+      | no break here     | but still allowed here"
   (save-excursion
     (skip-chars-backward " \t")
     (and (not (zerop (skip-syntax-backward "w_")))