Mercurial > emacs

changeset 11129:2ce4b0aac50c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enriched-mode): Use new plist-put and plist-get fns, change name of default-text-properties var.
author Boris Goldowsky <boris@gnu.org>
date Mon, 27 Mar 1995 16:02:00 +0000
parents 291aaa280603
children 052869c2f609
files lisp/enriched.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/enriched.el	Mon Mar 27 07:50:26 1995 +0000
+++ b/lisp/enriched.el	Mon Mar 27 16:02:00 1995 +0000
@@ -209,21 +209,23 @@
 		   (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)))