branch: externals/gpastel
commit d13d03f94ac7d241a2d3cdb481cad026731d3832
Author: Damien Cassou <dam...@cassou.me>
Commit: Damien Cassou <dam...@cassou.me>
Make 2 functions private
* gpastel.el (gpastel-start-listening):
(gpastel-stop-listening): Add '-' to function names to make them
private.
(gpastel--start-listening):
(gpastel--stop-listening): New functions.
---
gpastel.el | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/gpastel.el b/gpastel.el
index a2afb0a..228a4a2 100644
--- a/gpastel.el
+++ b/gpastel.el
@@ -130,10 +130,8 @@ all text in the GPaste clipboard."
"Return GPaste clipboard content at INDEX, or 0."
(gpastel-dbus-call #'dbus-call-method "GetElement" :uint64 (or index 0)))
-;;;###autoload
-(defun gpastel-start-listening ()
+(defun gpastel--start-listening ()
"Start listening for GPaste events."
- (interactive)
(when (gpastel--start-gpaste-daemon)
;; No need for `interprogram-paste-function' because GPaste will
;; tell us as soon as text is added to clipboard:
@@ -147,9 +145,8 @@ all text in the GPaste clipboard."
(setq gpastel--dbus-object
(gpastel-dbus-call #'dbus-register-signal "Update"
#'gpastel--update-handler))))
-(defun gpastel-stop-listening ()
+(defun gpastel--stop-listening ()
"Stop listening for GPaste events."
- (interactive)
(when (dbus-unregister-object gpastel--dbus-object)
(setq gpastel--dbus-object nil)
(setq save-interprogram-paste-before-kill
gpastel--save-interprogram-paste-before-kill-orig)
@@ -163,8 +160,8 @@ all text in the GPaste clipboard."
:init-value nil
:require 'gpastel
(if gpastel-mode
- (gpastel-start-listening)
- (gpastel-stop-listening)))
+ (gpastel--start-listening)
+ (gpastel--stop-listening)))
(provide 'gpastel)
;;; gpastel.el ends here
