Commit 14369ab3 authored by Kevin Ryde's avatar Kevin Ryde Committed by Glenn Morris
Browse files

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

parent aa248733
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) 2011-03-06 Michael Shields <shields@msrl.com> (tiny change)
   
* window.el (one-window-p, walk-windows, display-buffer): * window.el (one-window-p, walk-windows, display-buffer):
......
...@@ -427,7 +427,12 @@ a DOCTYPE or an XML declaration." ...@@ -427,7 +427,12 @@ a DOCTYPE or an XML declaration."
(format-mode-line mode-name)))))) (format-mode-line mode-name))))))
(defun sgml-fill-nobreak () (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 (save-excursion
(skip-chars-backward " \t") (skip-chars-backward " \t")
(and (not (zerop (skip-syntax-backward "w_"))) (and (not (zerop (skip-syntax-backward "w_")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment