Commit ad2295fd authored by David Byers's avatar David Byers
Browse files

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

parent 73aa347d
...@@ -225,6 +225,6 @@ kom-ansaphone-default-reply and kom-ansaphone-replies." ...@@ -225,6 +225,6 @@ kom-ansaphone-default-reply and kom-ansaphone-replies."
t) t)
(provide 'lyskom-ansaphone) (eval-and-compile (provide 'lyskom-ansaphone))
;;; ansaphone.el ends here ;;; ansaphone.el ends here
...@@ -642,6 +642,6 @@ The element last pushed is first in the list." ...@@ -642,6 +642,6 @@ The element last pushed is first in the list."
(setcdr collector (cons value (cdr collector)))) (setcdr collector (cons value (cdr collector))))
(provide 'lyskom-clienttypes) (eval-and-compile (provide 'lyskom-clienttypes))
;;; clienttypes.el ends here ;;; clienttypes.el ends here
...@@ -327,6 +327,6 @@ chosen according to this" ...@@ -327,6 +327,6 @@ chosen according to this"
(when lyskom-slow-mode (when lyskom-slow-mode
(buffer-enable-undo)))) (buffer-enable-undo))))
(provide 'lyskom-command) (eval-and-compile (provide 'lyskom-command))
;;; command.el ends here ;;; command.el ends here
...@@ -125,9 +125,6 @@ is saved before executing FORMS and restored when FORMS have finished." ...@@ -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) (defmacro def-kom-var (name value &rest args)
"Define a variable with name NAME and initial value VALUE. "Define a variable with name NAME and initial value VALUE.
Remaining args, ARGS may be Remaining args, ARGS may be
...@@ -231,14 +228,14 @@ local-hook A hook variable that is made local in LysKOM buffers." ...@@ -231,14 +228,14 @@ local-hook A hook variable that is made local in LysKOM buffers."
minibuffer minibuffer
widget-spec widget-spec
))))))) )))))))
)
(put 'def-kom-var 'edebug-form-spec (put 'def-kom-var 'edebug-form-spec
'(&define name form &rest sexp)) '(&define name form &rest sexp))
(provide 'lyskom-defvar) (eval-and-compile (provide 'lyskom-defvar))
...@@ -237,6 +237,6 @@ if 'lyskom-menu is not found." ...@@ -237,6 +237,6 @@ if 'lyskom-menu is not found."
t))) t)))
(provide 'lyskom-language) (eval-and-compile (provide 'lyskom-language))
;;; language.el ends here ;;; language.el ends here
...@@ -201,8 +201,6 @@ All the forms in BIND-LIST are evaluated before and symbols are bound." ...@@ -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) (put 'lyskom-make-face 'lisp-indent-function 1)
(provide 'lyskom-macros)
;;; ============================================================ ;;; ============================================================
;;; Keymap handling ;;; Keymap handling
...@@ -264,6 +262,8 @@ the current buffer, and its value is copied from the LysKOM buffer." ...@@ -264,6 +262,8 @@ the current buffer, and its value is copied from the LysKOM buffer."
(` (lyskom-set-default (quote (, name)) (` (lyskom-set-default (quote (, name))
(, value)))) (, value))))
(eval-and-compile (provide 'lyskom-macros))
;;; Local Variables: ;;; Local Variables:
;;; eval: (put 'lyskom-traverse 'lisp-indent-hook 2) ;;; eval: (put 'lyskom-traverse 'lisp-indent-hook 2)
;;; eval: (put 'lyskom-save-excursion 'lisp-indent-hook 2) ;;; eval: (put 'lyskom-save-excursion 'lisp-indent-hook 2)
......
...@@ -338,6 +338,6 @@ ...@@ -338,6 +338,6 @@
;;;;terse urinlgget terstarta kom ;;;;terse urinlgget terstarta kom
;;;;verg till administratrsmod ;;;;verg till administratrsmod
(provide 'lyskom-menus) (eval-and-compile (provide 'lyskom-menus))
;;; menus.el ends here ;;; menus.el ends here
...@@ -133,7 +133,7 @@ on the value of PLACE. If PLACE is nil, 'after is assumed." ...@@ -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) (defun lyskom-info-request-handler (message-type sender recipient text)
(if (string= text " ") (if (string= text " ")
(progn (progn
(initiate-send-message (initiate-send-message
'follow 'follow
...@@ -149,6 +149,6 @@ on the value of PLACE. If PLACE is nil, 'after is assumed." ...@@ -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) (lyskom-add-personal-message-handler 'lyskom-info-request-handler 'before)
(provide 'lyskom-messages) (eval-and-compile (provide 'lyskom-messages))
;;; messages.el ends here ;;; messages.el ends here
...@@ -1081,6 +1081,6 @@ or get-text-stat." ...@@ -1081,6 +1081,6 @@ or get-text-stat."
(provide 'lyskom-services) (eval-and-compile (provide 'lyskom-services))
;;; services.el ends here ;;; services.el ends here
...@@ -1922,6 +1922,6 @@ to be bold with yellow text on a red background." ...@@ -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 ;;; vars.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment