Fixar som gör att man kan kompilera från en enda fil

src/ansaphone.el

@@ -225,6 +225,6 @@ kom-ansaphone-default-reply and kom-ansaphone-replies."
                                      t)
 
 
-(provide 'lyskom-ansaphone)
+(eval-and-compile (provide 'lyskom-ansaphone))
 
 ;;; ansaphone.el ends here

src/clienttypes.el

@@ -642,6 +642,6 @@ The element last pushed is first in the list."
   (setcdr collector (cons value (cdr collector))))
 
 
-(provide 'lyskom-clienttypes)
+(eval-and-compile (provide 'lyskom-clienttypes))
 
 ;;; clienttypes.el ends here

src/command.el

@@ -327,6 +327,6 @@ chosen according to this"
    (when lyskom-slow-mode
      (buffer-enable-undo))))
 
-(provide 'lyskom-command)
+(eval-and-compile (provide 'lyskom-command))
 
 ;;; command.el ends here

src/defvar.el

@@ -125,9 +125,6 @@ is saved before executing FORMS and restored when FORMS have finished."
 
          
 
-
-
-(if (not (fboundp 'def-kom-var))
 (defmacro def-kom-var (name value &rest args)
     "Define a variable with name NAME and initial value VALUE.
 Remaining args, ARGS may be
@@ -231,14 +228,14 @@ local-hook      A hook variable that is made local in LysKOM buffers."
                                  minibuffer
                                  widget-spec
                                  )))))))
-)
+
 
 (put 'def-kom-var 'edebug-form-spec
      '(&define name form &rest sexp))
 
 
 
-(provide 'lyskom-defvar)
+(eval-and-compile (provide 'lyskom-defvar))
 
 
 

src/language.el

@@ -237,6 +237,6 @@ if 'lyskom-menu is not found."
            t)))
 
 			      
-(provide 'lyskom-language)
+(eval-and-compile (provide 'lyskom-language))
 
 ;;; language.el ends here

src/macros.el

@@ -201,8 +201,6 @@ All the forms in BIND-LIST are evaluated before and symbols are bound."
 
 (put 'lyskom-make-face 'lisp-indent-function 1)
 
-(provide 'lyskom-macros)
-
 
 ;;; ============================================================
 ;;; Keymap handling
@@ -264,6 +262,8 @@ the current buffer, and its value is copied from the LysKOM buffer."
   (` (lyskom-set-default (quote (, name))
                          (, value))))
 
+(eval-and-compile (provide 'lyskom-macros))
+
 ;;; Local Variables: 
 ;;; eval: (put 'lyskom-traverse 'lisp-indent-hook 2)
 ;;; eval: (put 'lyskom-save-excursion 'lisp-indent-hook 2)

src/menus.el

@@ -338,6 +338,6 @@
 ;;;;terse urinlgget		   terstarta kom
 ;;;;verg till administratrsmod
 
-(provide 'lyskom-menus)
+(eval-and-compile (provide 'lyskom-menus))
 
 ;;; menus.el ends here

src/messages.el

@@ -133,7 +133,7 @@ on the value of PLACE. If PLACE is nil, 'after is assumed."
         
 
 (defun lyskom-info-request-handler (message-type sender recipient text)
-  (if (string= text "	")
+  (if (string= text "	")
       (progn
         (initiate-send-message 
          'follow 
@@ -149,6 +149,6 @@ on the value of PLACE. If PLACE is nil, 'after is assumed."
     
 (lyskom-add-personal-message-handler 'lyskom-info-request-handler 'before)
 
-(provide 'lyskom-messages)
+(eval-and-compile (provide 'lyskom-messages))
 
 ;;; messages.el ends here

src/services.el

@@ -1081,6 +1081,6 @@ or get-text-stat."
 
 
 
-(provide 'lyskom-services)
+(eval-and-compile (provide 'lyskom-services))
 
 ;;; services.el ends here

src/vars.el.in

@@ -1922,6 +1922,6 @@ to be bold with yellow text on a red background."
 
 
 
-(provide 'lyskom-vars)
+(eval-and-compile (provide 'lyskom-vars))
 
 ;;; vars.el ends here