Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
ad2295fd
Commit
ad2295fd
authored
Oct 12, 1997
by
David Byers
Browse files
Fixar som gör att man kan kompilera från en enda fil
parent
73aa347d
Changes
10
Hide whitespace changes
Inline
Side-by-side
src/ansaphone.el
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
View file @
ad2295fd
...
...
@@ -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
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment