Mercurial > emacs
comparison lisp/enriched.el @ 12370:07d919c1b14a
(excerpt): Ignore error making `excerpt' italic.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 24 Jun 1995 04:17:57 +0000 |
| parents | 257af4819582 |
| children | 35fdc136d4b9 |
comparison
equal
deleted
inserted
replaced
| 12369:54271828fd4e | 12370:07d919c1b14a |
|---|---|
| 77 | 77 |
| 78 (if (internal-find-face 'excerpt) | 78 (if (internal-find-face 'excerpt) |
| 79 nil | 79 nil |
| 80 (make-face 'excerpt) | 80 (make-face 'excerpt) |
| 81 (if window-system | 81 (if window-system |
| 82 (make-face-italic 'excerpt))) | 82 (make-face-italic 'excerpt nil t))) |
| 83 | 83 |
| 84 (defconst enriched-display-table (or (copy-sequence standard-display-table) | 84 (defconst enriched-display-table (or (copy-sequence standard-display-table) |
| 85 (make-display-table))) | 85 (make-display-table))) |
| 86 (aset enriched-display-table ?\f (make-vector (1- (frame-width)) ?-)) | 86 (aset enriched-display-table ?\f (make-vector (1- (frame-width)) ?-)) |
| 87 | 87 |