Mercurial > emacs
comparison lisp/simple.el @ 100430:2962a5a4e423
* simple.el (bad-package-check): Fix arguments of `display-warning',
using the package name as TYPE. Use `string-match-p'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 15 Dec 2008 12:52:16 +0000 |
| parents | 26f94bce1bab |
| children | 5a144164af93 |
comparison
equal
deleted
inserted
replaced
| 100429:7255d1413d64 | 100430:2962a5a4e423 |
|---|---|
| 6333 (symbol (nth 1 list))) | 6333 (symbol (nth 1 list))) |
| 6334 (and list | 6334 (and list |
| 6335 (boundp symbol) | 6335 (boundp symbol) |
| 6336 (or (eq symbol t) | 6336 (or (eq symbol t) |
| 6337 (and (stringp (setq symbol (eval symbol))) | 6337 (and (stringp (setq symbol (eval symbol))) |
| 6338 (string-match (nth 2 list) symbol))) | 6338 (string-match-p (nth 2 list) symbol))) |
| 6339 (display-warning :warning (nth 3 list)))) | 6339 (display-warning package (nth 3 list) :warning))) |
| 6340 (error nil))) | 6340 (error nil))) |
| 6341 | 6341 |
| 6342 (mapc (lambda (elem) | 6342 (mapc (lambda (elem) |
| 6343 (eval-after-load (car elem) `(bad-package-check ',(car elem)))) | 6343 (eval-after-load (car elem) `(bad-package-check ',(car elem)))) |
| 6344 bad-packages-alist) | 6344 bad-packages-alist) |