--- orig/lisp/minibuf-eldef.el
+++ mod/lisp/minibuf-eldef.el
@@ -1,6 +1,6 @@
 ;;; minibuf-eldef.el --- Only show defaults in prompts when applicable
 ;;
-;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc.
 ;;
 ;; Author: Miles Bader <address@hidden>
 ;; Keywords: convenience
@@ -46,6 +46,8 @@
 matching the default part of the prompt, and who's cdr indicates the
 regexp subexpression that matched.")
 
+(defvar minibuf-eldef-frob-function nil)
+
 
 ;;; Internal variables
 
@@ -103,7 +105,11 @@
 	    (minibuffer-contents-no-properties))
       (setq minibuf-eldef-initial-buffer-length (point-max))
       (add-to-list 'minibuf-eldef-frobbed-minibufs (current-buffer))
-      (add-hook 'post-command-hook #'minibuf-eldef-update-minibuffer nil t))))
+      (add-hook 'post-command-hook #'minibuf-eldef-update-minibuffer nil t)
+      (when minibuf-eldef-frob-function
+	(funcall minibuf-eldef-frob-function
+		 minibuf-eldef-overlay
+		 minibuf-eldef-showing-default-in-prompt)))))
 
 ;; post-command-hook to swap prompts when necessary
 (defun minibuf-eldef-update-minibuffer ()
@@ -118,7 +124,11 @@
     ;; swap state
     (setq minibuf-eldef-showing-default-in-prompt
 	  (not minibuf-eldef-showing-default-in-prompt))
-    (cond (minibuf-eldef-showing-default-in-prompt
+    (cond (minibuf-eldef-frob-function
+	   (funcall minibuf-eldef-frob-function
+		    minibuf-eldef-overlay
+		    minibuf-eldef-showing-default-in-prompt))
+	  (minibuf-eldef-showing-default-in-prompt
 	   (overlay-put minibuf-eldef-overlay 'invisible nil)
 	   (overlay-put minibuf-eldef-overlay 'intangible nil))
 	  (t