From: Kevin Ryde <user42@zip.com.au>
Date: Sun, 6 Mar 2011 02:30:44 +0000 (-0800)
Subject: * lisp/textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc.  (Bug#5326)
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~674^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14369ab313e41c1360542b37b5b53a52ab78a2c3;p=emacs.git

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

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  <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 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'.
+
+    <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_")))