branch: externals/gpastel
commit b2aab71daf81e78e217c21873299a66950478860
Author: Damien Cassou <[email protected]>
Commit: Damien Cassou <[email protected]>
Save former value of a variable modified by gpastel-start-listening
---
gpastel.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/gpastel.el b/gpastel.el
index 98f9592..c67cc8b 100644
--- a/gpastel.el
+++ b/gpastel.el
@@ -61,6 +61,9 @@
"D-Bus object remembering the return value of `dbus-register-signal'.
This can be used to unregister from the signal.")
+(defvar gpastel--save-interprogram-paste-before-kill-orig nil
+ "Value of `save-interprogram-paste-before-kill' before starting gpastel.")
+
(defconst gpastel--dbus-arguments
'(:session
"org.gnome.GPaste"
@@ -128,6 +131,7 @@ all text in the GPaste clipboard."
(advice-add interprogram-paste-function :override #'ignore)
;; No need to save the system clipboard before killing in
;; Emacs because Emacs already knows about its content:
+ (setq gpastel--save-interprogram-paste-before-kill-orig
save-interprogram-paste-before-kill)
(setq save-interprogram-paste-before-kill nil)
;; Register a handler for GPaste Update signals so we can
;; immediately update the `kill-ring':
