# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1229345536 0
# Node ID 2962a5a4e42352a8249f918f7e99383bb365013f
# Parent  7255d1413d64848178d5a50ff0bce0a631ded2ae
* simple.el (bad-package-check): Fix arguments of `display-warning',
  using the package name as TYPE.  Use `string-match-p'.

diff -r 7255d1413d64 -r 2962a5a4e423 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 15 04:15:35 2008 +0000
+++ b/lisp/ChangeLog	Mon Dec 15 12:52:16 2008 +0000
@@ -1,9 +1,14 @@
+2008-12-15  Juanma Barranquero  <lekktu@gmail.com>
+
+	* simple.el (bad-package-check): Fix arguments of `display-warning',
+	using the package name as TYPE.  Use `string-match-p'.
+
 2008-12-14  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
 
 	* proced.el (proced-sort-interactive, proced-sort-pcpu)
 	(proced-sort-pmem, proced-sort-start, proced-sort-time)
 	(proced-sort-user, proced-sort-header): Prefix arg determines
-	sorting order. Suggested by Dan Nicolaescu.
+	sorting order.  Suggested by Dan Nicolaescu.
 	(proced-revert): Doc fix.
 
 2008-12-14  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
@@ -911,7 +916,6 @@
 	* progmodes/tcl.el (tcl-filter): Don't forcibly move point.
 
 2008-11-21  Stefan Monnier  <monnier@iro.umontreal.ca>
-
 	* international/quail.el (quail-indent-to): New function.
 	(quail-completion-1, quail-completion-list-translations)
 	(quail-insert-decode-map): Use it to improve alignment.
@@ -3094,7 +3098,6 @@
 2008-09-12  Glenn Morris  <rgm@gnu.org>
 
 	* progmodes/f90.el (f90-mode-map): Don't bind \t and \r.
-
 	* indent.el (indent-line-function): Doc fix.
 	* progmodes/sh-script.el (sh-font-lock-open-heredoc): Doc fix.
 
@@ -11812,7 +11815,6 @@
 
 	* find-dired.el (find-dired-filter): Fix last patch to handle
 	multi-line process input.  Pad link numbers too.
-
 2008-04-01  Jari Aalto  <jari.aalto@cante.net>
 
 	* find-dired.el (find-dired-filter): Align columns by padding file sizes.
diff -r 7255d1413d64 -r 2962a5a4e423 lisp/simple.el
--- a/lisp/simple.el	Mon Dec 15 04:15:35 2008 +0000
+++ b/lisp/simple.el	Mon Dec 15 12:52:16 2008 +0000
@@ -6335,8 +6335,8 @@
              (boundp symbol)
              (or (eq symbol t)
                  (and (stringp (setq symbol (eval symbol)))
-                      (string-match (nth 2 list) symbol)))
-             (display-warning :warning (nth 3 list))))
+                      (string-match-p (nth 2 list) symbol)))
+             (display-warning package (nth 3 list) :warning)))
     (error nil)))
 
 (mapc (lambda (elem)