diff options
| -rw-r--r-- | lisp/button.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/button.el b/lisp/button.el index f969a03cb02..a91b0482acd 100644 --- a/lisp/button.el +++ b/lisp/button.el | |||
| @@ -349,7 +349,8 @@ Also see `insert-text-button'." | |||
| 349 | (or (plist-member properties 'type) | 349 | (or (plist-member properties 'type) |
| 350 | (plist-member properties :type)))) | 350 | (plist-member properties :type)))) |
| 351 | (when (stringp beg) | 351 | (when (stringp beg) |
| 352 | (setq object (copy-sequence beg) beg 0 end (length object))) | 352 | (setq beg (copy-sequence beg)) ;; In case BEG is not mutable. |
| 353 | (setq object beg beg 0 end (length object))) | ||
| 353 | ;; Disallow setting the `category' property directly. | 354 | ;; Disallow setting the `category' property directly. |
| 354 | (when (plist-get properties 'category) | 355 | (when (plist-get properties 'category) |
| 355 | (error "Button `category' property may not be set directly")) | 356 | (error "Button `category' property may not be set directly")) |