Commit ad2295fd authored by David Byers's avatar David Byers

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."
t)
(provide 'lyskom-ansaphone)
(eval-and-compile (provide 'lyskom-ansaphone))
;;; ansaphone.el ends here
......@@ -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
......@@ -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
......@@ -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))
......@@ -237,6 +237,6 @@ if 'lyskom-menu is not found."
t)))
(provide 'lyskom-language)
(eval-and-compile (provide 'lyskom-language))
;;; language.el ends here
......@@ -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)
......
......@@ -338,6 +338,6 @@
;;;;terse urinlgget terstarta kom
;;;;verg till administratrsmod
(provide 'lyskom-menus)
(eval-and-compile (provide 'lyskom-menus))
;;; menus.el ends here
......@@ -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
......@@ -1081,6 +1081,6 @@ or get-text-stat."
(provide 'lyskom-services)
(eval-and-compile (provide 'lyskom-services))
;;; services.el ends here
......@@ -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
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