-;;; enriched.el -- read and save files in text/enriched format
-;; Copyright (c) 1994 Free Software Foundation
+;;; enriched.el --- read and save files in text/enriched format
+;; Copyright (c) 1994, 1995 Free Software Foundation, Inc.
-;; Author: Boris Goldowsky <boris@cs.rochester.edu>
+;; Author: Boris Goldowsky <boris@gnu.ai.mit.edu>
;; Keywords: wp, faces
;; This file is part of GNU Emacs.
nil
(make-face 'excerpt)
(if window-system
- (make-face-italic 'excerpt)))
+ (make-face-italic 'excerpt nil t)))
(defconst enriched-display-table (or (copy-sequence standard-display-table)
(make-display-table)))
(defun enriched-next-annotation ()
"Find and return next text/enriched annotation.
-Any \"<<\" strings encountered are coverted to \"<\".
+Any \"<<\" strings encountered are converted to \"<\".
Return value is \(begin end name positive-p), or nil if none was found."
(while (and (search-forward "<" nil 1)
(progn (goto-char (match-beginning 0))