Mercurial > emacs
comparison lisp/term.el @ 19082:e159c69a45f0
(term-ignore-error): Fix foolish errors.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 02 Aug 1997 20:41:55 +0000 |
| parents | 56a59138fa6c |
| children | 67d2c89a660c |
comparison
equal
deleted
inserted
replaced
| 19081:f33df9d64fe8 | 19082:e159c69a45f0 |
|---|---|
| 689 (defvar term-terminal-previous-parameter-4 -1) | 689 (defvar term-terminal-previous-parameter-4 -1) |
| 690 ;;; | 690 ;;; |
| 691 | 691 |
| 692 ;;; faces -mm | 692 ;;; faces -mm |
| 693 | 693 |
| 694 (defmacro term-ignore-error (body) | 694 (defmacro term-ignore-error (&rest body) |
| 695 `(condition-case nil | 695 `(condition-case nil |
| 696 (progn @,body) | 696 (progn ,@body) |
| 697 (error nil))) | 697 (error nil))) |
| 698 | 698 |
| 699 (defvar term-default-fg-color "SkyBlue") | 699 (defvar term-default-fg-color "SkyBlue") |
| 700 (defvar term-default-bg-color "LightBlue") | 700 (defvar term-default-bg-color "LightBlue") |
| 701 | 701 |