diff options
| author | Stefan Monnier | 2012-07-11 19:13:41 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-07-11 19:13:41 -0400 |
| commit | a464a6c73acf27b0d633d428919a36bc16a9d442 (patch) | |
| tree | bcba70ce0242bfd5987356c750ba4eb6b58820b1 /test | |
| parent | c214e35e489145bd3a8ab7a353671f947368a7ae (diff) | |
| download | emacs-a464a6c73acf27b0d633d428919a36bc16a9d442.tar.gz emacs-a464a6c73acf27b0d633d428919a36bc16a9d442.zip | |
More CL cleanups and reduction of use of cl.el.
* woman.el, winner.el, vc/vc-rcs.el, vc/vc-hooks.el, vc/vc-hg.el:
* vc/vc-git.el, vc/vc-dir.el, vc/vc-bzr.el, vc/vc-annotate.el:
* textmodes/tex-mode.el, textmodes/sgml-mode.el, tar-mode.el:
* strokes.el, ses.el, server.el, progmodes/js.el, progmodes/gdb-mi.el:
* progmodes/flymake.el, progmodes/ebrowse.el, progmodes/compile.el:
* play/tetris.el, play/snake.el, play/pong.el, play/landmark.el:
* play/hanoi.el, play/decipher.el, play/5x5.el, nxml/nxml-mode.el:
* net/secrets.el, net/quickurl.el, midnight.el, mail/footnote.el:
* image-dired.el, ibuffer.el, ibuf-macs.el, ibuf-ext.el, hexl.el:
* eshell/eshell.el, eshell/esh-io.el, eshell/esh-ext.el:
* eshell/esh-cmd.el, eshell/em-ls.el, eshell/em-hist.el:
* eshell/em-cmpl.el, eshell/em-banner.el:
* url/url.el, url/url-queue.el, url/url-parse.el, url/url-http.el:
* url/url-future.el, url/url-dav.el, url/url-cookie.el:
* calendar/parse-time.el, test/eshell.el: Use cl-lib.
* wid-browse.el, wdired.el, vc/vc.el, vc/vc-mtn.el, vc/vc-cvs.el:
* vc/vc-arch.el, tree-widget.el, textmodes/texinfo.el:
* textmodes/refill.el, textmodes/css-mode.el, term/tvi970.el:
* term/ns-win.el, term.el, shell.el, ps-samp.el:
* progmodes/perl-mode.el, progmodes/pascal.el, progmodes/gud.el:
* progmodes/glasses.el, progmodes/etags.el, progmodes/cwarn.el:
* play/gamegrid.el, play/bubbles.el, novice.el, notifications.el:
* net/zeroconf.el, net/xesam.el, net/snmp-mode.el, net/mairix.el:
* net/ldap.el, net/eudc.el, net/browse-url.el, man.el:
* mail/mailheader.el, mail/feedmail.el:
* url/url-util.el, url/url-privacy.el, url/url-nfs.el, url/url-misc.el:
* url/url-methods.el, url/url-gw.el, url/url-file.el, url/url-expand.el:
Dont use CL.
* ibuf-ext.el (ibuffer-mark-old-buffers): Use float-time.
* eshell/esh-opt.el (eshell-eval-using-options): Quote code with
`lambda' rather than with `quote'.
(eshell-do-opt): Adjust accordingly.
(eshell-process-option): Simplify.
* eshell/esh-var.el:
* eshell/em-script.el: Require `esh-opt' for eshell-eval-using-options.
* emacs-pcase.el (pcase--dontcare-upats, pcase--let*)
(pcase--expand, pcase--u1): Rename pcase's internal `dontcare' pattern
to `pcase--dontcare'.
* emacs-cl.el (labels): Mark obsolete.
(cl--letf, letf): Move to cl-lib.
(cl--letf*, letf*): Remove.
* emacs-cl-lib.el (cl-nth-value): Use defalias.
* emacs-cl-macs.el (cl-dolist, cl-dotimes): Add indent rule.
(cl-progv): Rewrite.
(cl--letf, cl-letf): Move from cl.el.
(cl-letf*): New macro.
* emacs-cl-extra.el (cl--progv-before, cl--progv-after): Remove.
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 8 | ||||
| -rw-r--r-- | test/eshell.el | 6 |
2 files changed, 9 insertions, 5 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 1e77f972965..489298dbebe 100644 --- a/test/ChangeLog +++ b/test/ChangeLog | |||
| @@ -1,11 +1,15 @@ | |||
| 1 | 2012-07-11 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * eshell.el: Use cl-lib. | ||
| 4 | |||
| 1 | 2012-07-03 Chong Yidong <cyd@gnu.org> | 5 | 2012-07-03 Chong Yidong <cyd@gnu.org> |
| 2 | 6 | ||
| 3 | * automated/xml-parse-tests.el (xml-parse-tests--bad-data): New. | 7 | * automated/xml-parse-tests.el (xml-parse-tests--bad-data): New. |
| 4 | 8 | ||
| 5 | 2012-07-02 Chong Yidong <cyd@gnu.org> | 9 | 2012-07-02 Chong Yidong <cyd@gnu.org> |
| 6 | 10 | ||
| 7 | * automated/xml-parse-tests.el (xml-parse-tests--data): More | 11 | * automated/xml-parse-tests.el (xml-parse-tests--data): |
| 8 | testcases. | 12 | More testcases. |
| 9 | 13 | ||
| 10 | 2012-07-01 Chong Yidong <cyd@gnu.org> | 14 | 2012-07-01 Chong Yidong <cyd@gnu.org> |
| 11 | 15 | ||
diff --git a/test/eshell.el b/test/eshell.el index 7acb34b6029..4d6480c81bb 100644 --- a/test/eshell.el +++ b/test/eshell.el | |||
| @@ -28,7 +28,7 @@ | |||
| 28 | ;;; Code: | 28 | ;;; Code: |
| 29 | 29 | ||
| 30 | (eval-when-compile | 30 | (eval-when-compile |
| 31 | (require 'cl) ; assert | 31 | (require 'cl-lib) |
| 32 | (require 'eshell) | 32 | (require 'eshell) |
| 33 | (require 'esh-util)) | 33 | (require 'esh-util)) |
| 34 | (require 'esh-mode) | 34 | (require 'esh-mode) |
| @@ -267,9 +267,9 @@ | |||
| 267 | 267 | ||
| 268 | (eshell-deftest banner banner-displayed | 268 | (eshell-deftest banner banner-displayed |
| 269 | "Startup banner is displayed at point-min" | 269 | "Startup banner is displayed at point-min" |
| 270 | (assert eshell-banner-message) | 270 | (cl-assert eshell-banner-message) |
| 271 | (let ((msg (eval eshell-banner-message))) | 271 | (let ((msg (eval eshell-banner-message))) |
| 272 | (assert msg) | 272 | (cl-assert msg) |
| 273 | (goto-char (point-min)) | 273 | (goto-char (point-min)) |
| 274 | (looking-at msg))) | 274 | (looking-at msg))) |
| 275 | 275 | ||