The old thing with `fset' was awful, and presumably dates back to before
I knew about advice.
"*Standard regexp matching parts of a hanging indent.
This is mainly useful in `auto-fill-mode'.")
"*Standard regexp matching parts of a hanging indent.
This is mainly useful in `auto-fill-mode'.")
-;; Setting things up.
-
-(fset 'mdw-do-auto-fill (symbol-function 'do-auto-fill))
-
;; Utility functions.
(defun mdw-maybe-tabify (s)
;; Utility functions.
(defun mdw-maybe-tabify (s)
(save-match-data
(mdw-examine-fill-prefixes mdw-fill-prefix))))))
(save-match-data
(mdw-examine-fill-prefixes mdw-fill-prefix))))))
+(defadvice do-auto-fill (around mdw-dynamic-fill-prefix () activate compile)
"Handle auto-filling, working out a dynamic fill prefix in the
case where there isn't a sensible static one."
(let ((fill-prefix (mdw-choose-dynamic-fill-prefix)))
"Handle auto-filling, working out a dynamic fill prefix in the
case where there isn't a sensible static one."
(let ((fill-prefix (mdw-choose-dynamic-fill-prefix)))
(defun mdw-fill-paragraph ()
"Fill paragraph, getting a dynamic fill prefix."
(defun mdw-fill-paragraph ()
"Fill paragraph, getting a dynamic fill prefix."