diff options
Diffstat (limited to 'lisp/button.el')
| -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'." (or (plist-member properties 'type) (plist-member properties :type)))) (when (stringp beg) - (setq object (copy-sequence beg) beg 0 end (length object))) + (setq beg (copy-sequence beg)) ;; In case BEG is not mutable. + (setq object beg beg 0 end (length object))) ;; Disallow setting the `category' property directly. (when (plist-get properties 'category) (error "Button `category' property may not be set directly")) |