[Emacs-diffs] /srv/bzr/emacs/trunk r103547: * lisp/textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc. (Bug#5326)

[Glenn Morris]

------------------------------------------------------------
revno: 103547
author: Kevin Ryde <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-03-05 18:30:44 -0800
message:
  * lisp/textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc.  (Bug#5326)
modified:
  lisp/ChangeLog
  lisp/textmodes/sgml-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-06 02:14:43 +0000
+++ b/lisp/ChangeLog    2011-03-06 02:30:44 +0000
@@ -1,3 +1,7 @@
+2011-03-06  Kevin Ryde  <address@hidden>
+
+       * textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc.  (Bug#5326)
+
 2011-03-06  Michael Shields  <address@hidden>  (tiny change)
 
        * window.el (one-window-p, walk-windows, display-buffer):

=== modified file 'lisp/textmodes/sgml-mode.el'
--- a/lisp/textmodes/sgml-mode.el       2011-01-26 08:36:39 +0000
+++ b/lisp/textmodes/sgml-mode.el       2011-03-06 02:30:44 +0000
@@ -427,7 +427,12 @@
                  (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_")))