From: Glenn Morris <rgm@gnu.org>
Date: Wed, 2 Sep 2009 03:09:10 +0000 (+0000)
Subject: (completion-initials-expand): Fix typo.
X-Git-Tag: emacs-pretest-23.1.90~1526
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e2ca8951544bcca9a5f098f08f4c3d7bf2a2ee6;p=emacs.git

(completion-initials-expand): Fix typo.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af14ece0cff..051f09442d5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2009-09-02  Glenn Morris  <rgm@gnu.org>
+
+	* minibuffer.el (completion-initials-expand): Fix typo.
+
+	* faces.el (modeline, modeline-inactive, modeline-highlight)
+	(modeline-buffer-id):
+	* info.el (info-menu-5): Mark these face aliases as obsolete.
+
 2009-09-01  Nick Roberts  <nickrob@snap.net.nz>
 
 	* progmodes/gdb-mi.el (gdb-current-context-command): Move the
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 64cf19e8155..90490973f80 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1771,7 +1771,7 @@ filter out additional entries (because TABLE migth not obey PRED)."
 
 (defun completion-initials-expand (str table pred)
   (unless (or (zerop (length str))
-              (string-match completion-pcm--delim-wild-regex string))
+              (string-match completion-pcm--delim-wild-regex str))
     (let ((bounds (completion-boundaries str table pred "")))
       (if (zerop (car bounds))
           (mapconcat 'string str "-")