[nongnu] elpa/git-commit ee0b557a94: Remove text properties when copying from magit buffers

[ELPA Syncer]

branch: elpa/git-commit
commit ee0b557a94876cf89f9b8116ab9e9012c5d1404a
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Remove text properties when copying from magit buffers
    
    If there is yanked text with the `magit-section' property at point,
    many magit commands would believe that there indeed is a section at
    point.  This may or may not result in an error, and if not, then the
    resulting behavior can be very confusing.
    
    It might have been nice to preserve the `face' property, and maybe
    some others, but `remove-list-of-text-properties' does not support
    prefixing LIST-OF-PROPERTIES with `not' to remove all but the named
    properties.
---
 lisp/magit-section.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index e75e64eb8d..03883475bb 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -424,6 +424,8 @@ Magit-Section is documented in info node `(magit-section)'."
               #'magit-section--highlight-region)
   (setq-local redisplay-unhighlight-region-function
               #'magit-section--unhighlight-region)
+  (add-function :filter-return (local 'filter-buffer-substring-function)
+                #'magit-section--remove-text-properties)
   (when (fboundp 'magit-section-context-menu)
     (add-hook 'context-menu-functions #'magit-section-context-menu 10 t))
   (when magit-section-disable-line-numbers
@@ -439,6 +441,12 @@ Magit-Section is documented in info node 
`(magit-section)'."
   (when (fboundp 'magit-preserve-section-visibility-cache)
     (add-hook 'kill-buffer-hook #'magit-preserve-section-visibility-cache)))
 
+(defun magit-section--remove-text-properties (string)
+  "Remove all text-properties from STRING.
+Most importantly `magit-section'."
+  (set-text-properties 0 (length string) nil string)
+  string)
+
 ;;; Core
 
 (defvar-local magit-root-section nil