Samuel W. Flint 10 лет назад
Родитель
Сommit
2fae1dd8b9
1 измененных файлов с 4 добавлено и 4 удалено
  1. 4 4
      pushover.el

+ 4 - 4
pushover.el

@@ -17,9 +17,9 @@
 
 
 (require 'cl-lib)
 (require 'cl-lib)
 
 
-(defconst *pushover-api-key* "agd6sapvp5xcdmbuo1qdpc7mddscri")
+(defconst pushover-api-key "agd6sapvp5xcdmbuo1qdpc7mddscri")
 
 
-(defvar *pushover-user-key* nil)
+(defvar pushover-user-key nil)
 
 
 ;;;### autoload
 ;;;### autoload
 (cl-defun pushover-send (title message &key url url-title sound (html t) (priority 0) retry expire)
 (cl-defun pushover-send (title message &key url url-title sound (html t) (priority 0) retry expire)
@@ -36,8 +36,8 @@ RETRY is the number of seconds between retries for emergency (2) priority.
 EXPIRE is number of seconds before an emergency priority message expires."
 EXPIRE is number of seconds before an emergency priority message expires."
   (let ((url-request-method "POST")
   (let ((url-request-method "POST")
         (url-request-data (concat (format "token=%s&user=%s&title=%s&message=%s&priority=%s&timestamp=%s"
         (url-request-data (concat (format "token=%s&user=%s&title=%s&message=%s&priority=%s&timestamp=%s"
-                                          *pushover-api-key*
-                                          *pushover-user-key*
+                                          pushover-api-key
+                                          pushover-user-key
                                           (url-encode-url title)
                                           (url-encode-url title)
                                           (url-encode-url message)
                                           (url-encode-url message)
                                           priority
                                           priority