From 0e3edd7b1608306ba36e98cbb79f4e8987a30548 Mon Sep 17 00:00:00 2001 From: Boris Goldowsky Date: Mon, 24 Feb 1997 17:47:07 +0000 Subject: Change put-text-property with constant args to add-text-properties for efficiency. Suggested by Stavros Macrakis --- lisp/facemenu.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/facemenu.el') diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 07d5f52c628..361eb7a93b5 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -360,7 +360,7 @@ typing a character to insert cancels the specification." This sets the `invisible' text property; it can be undone with `facemenu-remove-special'." (interactive "r") - (put-text-property start end 'invisible t)) + (add-text-properties start end '(invisible t))) ;;;###autoload (defun facemenu-set-intangible (start end) @@ -368,7 +368,7 @@ This sets the `invisible' text property; it can be undone with This sets the `intangible' text property; it can be undone with `facemenu-remove-special'." (interactive "r") - (put-text-property start end 'intangible t)) + (add-text-properties start end '(intangible t))) ;;;###autoload (defun facemenu-set-read-only (start end) @@ -376,7 +376,7 @@ This sets the `intangible' text property; it can be undone with This sets the `read-only' text property; it can be undone with `facemenu-remove-special'." (interactive "r") - (put-text-property start end 'read-only t)) + (add-text-properties start end '(read-only t))) ;;;###autoload (defun facemenu-remove-props (start end) -- cgit v1.2.1