Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-362

Support " [...]" style defaults in minibuffer-electric-default-mode

2004-06-03  Miles Bader  <miles@gnu.org>

   * lisp/minibuf-eldef.el (minibuffer-default-in-prompt-regexps): Add
   regexp for " [...]" style defaults.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 845d0c9f1d4b44172d677a0d017a45c43b989802..72441a20147055c68f14ff30ce83fb410e2578e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-03  Miles Bader  <miles@gnu.org>
+
+       * minibuf-eldef.el (minibuffer-default-in-prompt-regexps): Add
+       regexp for " [...]" style defaults.
+
 2004-06-02  Romain Francoise  <romain@orebokech.com>
 
        * ibuf-ext.el (ibuffer-jump-to-buffer): Add support for filter

diff --git a/lisp/minibuf-eldef.el b/lisp/minibuf-eldef.el
index 10bf38f945fd4f300532fd3e6ebf1f66cb1822e2..908b77aab3362da12efa10be47d6379929ad6f8c 100644 (file)
--- a/lisp/minibuf-eldef.el
+++ b/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 <miles@gnu.org>
 ;; Keywords: convenience
@@ -36,7 +36,7 @@
 ;;; Code:
 
 (defvar minibuffer-default-in-prompt-regexps
-  '(("\\( (default\\>.*)\\):? \\'" . 1))
+  '(("\\( (default\\>.*)\\):? \\'" . 1) ("\\( \\[.*\\]\\):? *\\'" . 1))
   "*A list of regexps matching the parts of minibuffer prompts showing defaults.
 When `minibuffer-electric-default-mode' is active, these regexps are
 used to identify the portions of prompts to elide.
@@ -157,5 +157,5 @@ Returns non-nil if the new state is enabled."
 
 (provide 'minibuf-eldef)
 
-;;; arch-tag: 7e421fae-c275-4729-b0da-7836af377d3d
+;; arch-tag: 7e421fae-c275-4729-b0da-7836af377d3d
 ;;; minibuf-eldef.el ends here