el/dot-emacs.el (mdw-examine-fill-prefixes): Sink below functions it uses.

It leans on `mdw-do-prefix-match', which is a terrible name, but is
positioned above it.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 70f186783e9acdf6717021a3ccc4b41aefd559dc..c5742d0f92758f729e75db8d97f014158e666419 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1227,17 +1227,6 @@ (defun mdw-maybe-tabify (s)
          (funcall tabfun (point-min) (point-max))
          (setq s (buffer-substring (point-min) (1- (point-max)))))))))
 
          (funcall tabfun (point-min) (point-max))
          (setq s (buffer-substring (point-min) (1- (point-max)))))))))
 

-(defun mdw-examine-fill-prefixes (l)
-  "Given a list of dynamic fill prefixes, pick one which matches
-context and return the static fill prefix to use.  Point must be
-at the start of a line, and match data must be saved."
-  (cond ((not l) nil)
-       ((looking-at (car (car l)))
-        (mdw-maybe-tabify (apply #'concat
-                                 (mapcar #'mdw-do-prefix-match
-                                         (cdr (car l))))))
-       (t (mdw-examine-fill-prefixes (cdr l)))))
-

 (defun mdw-maybe-car (p)
   "If P is a pair, return (car P), otherwise just return P."
   (if (consp p) (car p) p))
 (defun mdw-maybe-car (p)
   "If P is a pair, return (car P), otherwise just return P."
   (if (consp p) (car p) p))


@@ -1261,6 +1250,17 @@ (defun mdw-do-prefix-match (m)
        ((eq (car m) 'eval) (eval (cdr m)))
        (t "")))
 
        ((eq (car m) 'eval) (eval (cdr m)))
        (t "")))
 

+(defun mdw-examine-fill-prefixes (l)
+  "Given a list of dynamic fill prefixes, pick one which matches
+context and return the static fill prefix to use.  Point must be
+at the start of a line, and match data must be saved."
+  (cond ((not l) nil)
+       ((looking-at (car (car l)))
+        (mdw-maybe-tabify (apply #'concat
+                                 (mapcar #'mdw-do-prefix-match
+                                         (cdr (car l))))))
+       (t (mdw-examine-fill-prefixes (cdr l)))))
+

 (defun mdw-choose-dynamic-fill-prefix ()
   "Work out the dynamic fill prefix based on the variable `mdw-fill-prefix'."
   (cond ((and fill-prefix (not (string= fill-prefix ""))) fill-prefix)
 (defun mdw-choose-dynamic-fill-prefix ()
   "Work out the dynamic fill prefix based on the variable `mdw-fill-prefix'."
   (cond ((and fill-prefix (not (string= fill-prefix ""))) fill-prefix)