Added autoload to main start procedure.

[lurk.git] / murk.el

diff --git a/murk.el b/murk.el
index 0766b7d..373b7c1 100644 (file)
--- a/murk.el
+++ b/murk.el
@@ -939,8 +939,8 @@ The head of this list is always the current context.")
       (when (and (or (not target-server)
                      (and (equal server target-server)))
                  (murk--lists-equal (cdr matcher)
       (when (and (or (not target-server)
                      (and (equal server target-server)))
                  (murk--lists-equal (cdr matcher)

-                                    (append (list (lurk-msg-src msg)
-                                                  (lurk-msg-cmd msg))
+                                    (append (list (murk-msg-src msg)
+                                                  (murk-msg-cmd msg))

                                             (murk-msg-params msg))))
         (murk-send-msg server
          (murk-msg nil nil (car reply) (cdr reply)))))))
                                             (murk-msg-params msg))))
         (murk-send-msg server
          (murk-msg nil nil (car reply) (cdr reply)))))))


@@ -1135,7 +1135,7 @@ The head of this list is always the current context.")
             (let ((server (murk-context-server ctx))
                   (nick (car params)))
               (murk-send-msg server
             (let ((server (murk-context-server ctx))
                   (nick (car params)))
               (murk-send-msg server

-                             (lurk-msg nil nil "PRIVMSG"
+                             (murk-msg nil nil "PRIVMSG"

                                        (list nick "\01VERSION\01")))
               (murk-display-notice ctx "CTCP version request sent to "
                                    nick " on " server))
                                        (list nick "\01VERSION\01")))
               (murk-display-notice ctx "CTCP version request sent to "
                                    nick " on " server))


@@ -1316,6 +1316,7 @@ The head of this list is always the current context.")
 ;;; Main start procedure
 ;;
 
 ;;; Main start procedure
 ;;
 

+;;;###autoload

 (defun murk ()
   "Start murk or just switch to the murk buffer if one already exists."
   (interactive)
 (defun murk ()
   "Start murk or just switch to the murk buffer if one already exists."
   (interactive)