-;;; 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)))
(list 'buffer-display-table buffer-display-table
'indent-line-function indent-line-function
'use-hard-newlines use-hard-newlines
- 'default-properties default-properties))
+ 'default-text-properties default-text-properties))
(make-local-variable 'indent-line-function)
(make-local-variable 'use-hard-newlines)
- (make-local-variable 'default-properties)
+ (make-local-variable 'default-text-properties)
(setq indent-line-function 'indent-to-left-margin
buffer-display-table enriched-display-table
use-hard-newlines t)
- (let ((sticky (get-text-property-default 'front-sticky))
+ (let ((sticky (plist-get default-text-properties 'front-sticky))
(p enriched-par-props))
(while p
(if (not (memq (car p) sticky))
(setq sticky (cons (car p) sticky)))
(setq p (cdr p)))
(if sticky
- (put-text-property-default 'front-sticky sticky)))
+ (setq default-text-properties
+ (plist-put default-text-properties
+ 'front-sticky sticky))))
(run-hooks 'enriched-mode-hooks)))
(set-buffer-modified-p mod)
(force-mode-line-update)))
(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))