[nongnu] elpa/webpaste 1c2a9b8 047/298: Merge pull request #1 from syohex/fix-package

[ELPA Syncer]

branch: elpa/webpaste
commit 1c2a9b85882277592df0e60e84b3d3a129f7ece6
Merge: c298428 53dcac8
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #1 from syohex/fix-package
    
    Fix package about byte-compile warnings
---
 webpaste.el | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/webpaste.el b/webpaste.el
index ba030c5..100ef43 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -39,14 +39,16 @@
 
 (defgroup webpaste nil
   "Configuration options for webpaste.el where you can define paste providers,
-provider priority for which order which provider should be tried when used.")
+provider priority for which order which provider should be tried when used."
+  :group 'web)
 
 
 (defcustom webpaste-provider-priority ()
   "Define provider priority of which providers to try in which order.
 This variable should be a list of strings and if it isn't defined it will
 default to all providers in order defined in ‘webpaste-providers’ list."
-  :group 'webpaste)
+  :group 'webpaste
+  :type '(repeat string))
 
 
 (defvar webpaste-tested-providers ()
@@ -110,7 +112,9 @@ each run.")
 Consists of provider name and lambda function to do the actuall call to the
 provider.  The lamda should call ‘webpaste-return-url’ with resulting url to
 return it to the user."
-  :group 'webpaste)
+  :group 'webpaste
+  :type  '(alist :key-type (string :tag "provider name")
+                 :value-type (function :tag "lambda function to the 
provider")))
 
 
 ;; Function we use to return the RETURNED-URL from the service
@@ -180,6 +184,12 @@ When we run out of providers to try, it will restart since
   (let ((text (buffer-substring (mark) (point))))
     (webpaste-paste-text text)))
 
+;;;###autoload
+(defmacro webpaste-save-mark-and-excursion (&rest body)
+  "Wraps usage of sending BODY to ‘save-mark-and-excursion’ / 
‘save-excursion’."
+  (if (< emacs-major-version 25)
+      `(save-excursion ,@body)
+    `(save-mark-and-excursion ,@body)))
 
 ;;;###autoload
 (defun webpaste-paste-buffer ()
@@ -191,15 +201,6 @@ When we run out of providers to try, it will restart since
    (goto-char (point-max))              ; Go to point-max
    (webpaste-paste-region)))            ; Paste region
 
-
-;;;###autoload
-(defmacro webpaste-save-mark-and-excursion (&rest body)
-  "Wraps usage of sending BODY to ‘save-mark-and-excursion’ / 
‘save-excursion’."
-  (if (< emacs-major-version 25)
-      `(save-excursion ,@body)
-    `(save-mark-and-excursion ,@body)))
-
-
 (provide 'webpaste)
 
 ;;; webpaste.el ends here