# HG changeset patch
# User Boris Goldowsky <boris@gnu.org>
# Date 856806427 0
# Node ID 5e66b1087c94fe20d84831e095fcc25f33ddf5c8
# Parent  b14c67f044a64d6c587fe473f2e56c5c46501caf
Change put-text-property with constant args to add-text-properties for efficiency.  Suggested by Stavros Macrakis <s.macrakis@opengroup.org>

diff -r b14c67f044a6 -r 5e66b1087c94 lisp/facemenu.el
--- a/lisp/facemenu.el	Sun Feb 23 22:49:18 1997 +0000
+++ b/lisp/facemenu.el	Mon Feb 24 17:47:07 1997 +0000
@@ -360,7 +360,7 @@
 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 `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 `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)