diff options
author | Boris Goldowsky <boris@gnu.org> | 1995-03-27 16:02:00 +0000 |
---|---|---|
committer | Boris Goldowsky <boris@gnu.org> | 1995-03-27 16:02:00 +0000 |
commit | 497834b373f8d99ed5ab4e12e06e15e6cd9ece9f (patch) | |
tree | b6926a49844cec90169cb1d4f4e90545a44ebcb2 /lisp/enriched.el | |
parent | 5ee35ae905417b79a5bd33c907bfb5b774c81820 (diff) | |
download | emacs-497834b373f8d99ed5ab4e12e06e15e6cd9ece9f.tar.gz |
(enriched-mode): Use new plist-put and plist-get fns,
change name of default-text-properties var.
Diffstat (limited to 'lisp/enriched.el')
-rw-r--r-- | lisp/enriched.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/enriched.el b/lisp/enriched.el index 003516d4e95..a1a9e766efc 100644 --- a/lisp/enriched.el +++ b/lisp/enriched.el @@ -209,21 +209,23 @@ Commands: (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))) |