diff options
| author | Kevin Ryde <user42@zip.com.au> | 2011-03-05 18:30:44 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-03-05 18:30:44 -0800 |
| commit | 14369ab313e41c1360542b37b5b53a52ab78a2c3 (patch) | |
| tree | 71cd8ac0cf955991b40f012ec8f7c2fcf0b8b0ea /lisp/textmodes | |
| parent | aa248733c52e96be02c8ffac27f049f45eff8269 (diff) | |
| download | emacs-14369ab313e41c1360542b37b5b53a52ab78a2c3.tar.gz | |
* lisp/textmodes/sgml-mode.el (sgml-fill-nobreak): Give it a doc. (Bug#5326)
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 7 |
1 files changed, 6 insertions, 1 deletions
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_"))) |