# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1237127352 0
# Node ID cd3a023e2625fa3500b636481bc0f3db4ced1b67
# Parent  b8583acd9747e6d915f632f8e346c54a1464de16
(completion-styles): Add emacs22 completion style as fallback.

diff -r b8583acd9747 -r cd3a023e2625 lisp/minibuffer.el
--- a/lisp/minibuffer.el	Sun Mar 15 14:28:52 2009 +0000
+++ b/lisp/minibuffer.el	Sun Mar 15 14:29:12 2009 +0000
@@ -307,7 +307,7 @@
 TRY-COMPLETION is the function that does the completion, and
 ALL-COMPLETIONS is the function that lists the completions.")
 
-(defcustom completion-styles '(basic partial-completion)
+(defcustom completion-styles '(basic partial-completion emacs22)
   "List of completion styles to use."
   :type `(repeat (choice ,@(mapcar (lambda (x) (list 'const (car x)))
                                    completion-styles-alist)))