emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gpastel d13d03f 3/9: Make 2 functions private


From: Damien Cassou
Subject: [elpa] externals/gpastel d13d03f 3/9: Make 2 functions private
Date: Sat, 29 Dec 2018 09:09:13 -0500 (EST)

branch: externals/gpastel
commit d13d03f94ac7d241a2d3cdb481cad026731d3832
Author: Damien Cassou <address@hidden>
Commit: Damien Cassou <address@hidden>

    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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]