Commit 0e3edd7b authored by Boris Goldowsky's avatar Boris Goldowsky
Browse files

Change put-text-property with constant args to add-text-properties for...

Change put-text-property with constant args to add-text-properties for efficiency.  Suggested by Stavros Macrakis <s.macrakis@opengroup.org>
parent f73d78a2
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment