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
d7be23a4
Commit
d7be23a4
authored
Mar 02, 1996
by
David Kågedal
Browse files
Ett antal smärre fixar.
parent
279aa3ac
Changes
9
Hide whitespace changes
Inline
Side-by-side
doc/elisp-client.texinfo
View file @
d7be23a4
...
...
@@ -27,7 +27,7 @@ $Id$
@hyphenation{data-bas-filen default-prio-ri-tet}
@hyphenation{email-adress even-tu-ella}
@hyphenation{emacs-lisp-biblioteket}
@hyp
g
enation{emacs-lisp-program}
@hyp
h
enation{emacs-lisp-program}
@hyphenation{förut-sätt-ningar}
@hyphenation{inlogg-ningarna}
@hyphenation{klient-modell}
...
...
@@ -1491,7 +1491,7 @@ I n
olika möten beroende på om mötet är skrivskyddat eller kommentarsskyddat.
@end table
@node Meddelande,
Priorit
era, Ändra mötesuppgifter, Kommandon
@node Meddelande,
Filtr
era, Ändra mötesuppgifter, Kommandon
@comment node-name, next, previous, up
@subsection Meddelande
...
...
@@ -1571,10 +1571,10 @@ Radera den rad mark
@item @kbd{D, M-d}
Radera det filter markören står i.
@item @kbd{i}
@item @kbd{i
, I
}
Lägg till en rad i ett filter. Frågar efter filterfunktion.
@item @kbd{
I,
M-i}
@item @kbd{M-i}
Lägg till ett filter. Frågar efter filtertyp och tidsbegränsning.
@item @kbd{a}
...
...
@@ -2123,7 +2123,7 @@ funktionen. En knapp skapas p
REGEXP innehåller en @code{\(\)}-konstruktion, den text som matchas av
den första sådana konstruktionen.
@item{kom-mosaic-command}
@item
@code
{kom-mosaic-command}
@itemx @code{"/usr/local/bin/mosaic"} (@code{elisp})
@vindex kom-mosaic-command
Variabeln anger var mosaic finns.
...
...
src/ChangeLog
View file @
d7be23a4
No preview for this file type
src/commands2.el
View file @
d7be23a4
...
...
@@ -628,28 +628,43 @@ to be read, give the priority as a prefix argument.
When a text is received the new text is displayed."
(
interactive
"P"
)
(
lyskom-start-of-command
'kom-busy-wait
)
(
if
(
not
(
read-list-isempty
lyskom-reading-list
))
(
set-read-list-empty
lyskom-reading-list
))
(
let
((
waitfor
(
or
(
cond
((
integerp
arg
)
arg
)
((
listp
arg
)
(
car
arg
)))
(
read-info->priority
(
read-list->first
lyskom-to-do-list
))
-2
)))
(
lyskom-tell-server
kom-mercial
)
(
if
(
=
waitfor
-2
)
(
lyskom-insert-string
'waiting-for-anything
)
(
lyskom-format-insert
'waiting-higher-than
waitfor
))
(
lyskom-scroll
)
(
setq
lyskom-is-waiting
(
list
'>
'
(
or
(
read-info->priority
(
read-list->first
lyskom-reading-list
))
(
read-info->priority
(
read-list->first
lyskom-to-do-list
))
257
)
waitfor
))))
(
unwind-protect
(
let
((
waitfor
(
or
(
cond
((
integerp
arg
)
arg
)
((
listp
arg
)
(
car
arg
)))
(
read-info->priority
(
read-list->first
lyskom-to-do-list
))
-2
)))
(
lyskom-tell-server
kom-mercial
)
(
if
(
not
(
read-list-isempty
lyskom-reading-list
))
(
set-read-list-empty
lyskom-reading-list
))
(
if
(
=
waitfor
-2
)
(
lyskom-insert-string
'waiting-for-anything
)
(
lyskom-format-insert
'waiting-higher-than
waitfor
))
(
lyskom-scroll
)
(
setq
lyskom-is-waiting
(
list
'>
'
(
or
(
read-info->priority
(
read-list->first
lyskom-reading-list
))
(
read-info->priority
(
read-list->first
lyskom-to-do-list
))
257
)
waitfor
))
(
while
lyskom-is-waiting
;; This is a bit trial-and-error stuff at the momemt.
;; o How to make personal messages appear *fast*
;; o How to enable C-g with a quick response
(
accept-process-output
nil
1
)
(
sit-for
0
)
(
if
lyskom-quit-flag
(
signal
'quit
nil
))))
(
lyskom-end-of-command
))
;; We are done waiting
(
ding
)
(
if
(
read-list-isempty
lyskom-reading-list
)
(
kom-go-to-next-conf
))
(
kom-next-command
))
(
defun
lyskom-time-greater
(
time1
time2
)
...
...
@@ -1298,8 +1313,8 @@ membership info."
(
interactive
)
(
let
((
session-name
(
buffer-name
(
current-buffer
)))
(
buffer
(
current-buffer
)))
(
if
lyskom-debug-communications-to-buffer
(
bury-buffer
lyskom-debug-communications-to-buffer
))
;;;
(if lyskom-debug-communications-to-buffer
;;;
(bury-buffer lyskom-debug-communications-to-buffer
-buffer
))
(
if
lyskom-who-info-buffer
(
bury-buffer
lyskom-who-info-buffer
))
(
bury-buffer
)
...
...
src/edit-text.el
View file @
d7be23a4
...
...
@@ -692,8 +692,10 @@ Point must be located on the line where the subject is."
(
initiate-get-text-stat
'background
'lyskom-mark-as-read
text-no
)
(
lyskom-run
'background
'set
'lyskom-dont-change-prompt
nil
)
(
lyskom-run
'background
'lyskom-set-mode-line
)))
(
lyskom-run
'background
'lyskom-set-mode-line
))
(
t
(
setq
lyskom-dont-change-prompt
nil
)))
(
set-buffer
edit-buffer
)
;Need local variables.
;; Select the old configuration.
...
...
src/internal.el
View file @
d7be23a4
...
...
@@ -357,15 +357,17 @@ with big strings."
nil
)
(
file-error
(
if
lyskom-debug-communications-to-buffer
(
save-excursion
(
set-buffer
(
get-buffer-create
lyskom-debug-communications-to-buffer-buffer
))
(
save-excursion
(
goto-char
(
point-max
))
(
insert
"\n"
(
format
"%s"
process
)
(
concat
"Error: "
(
format
"%s"
err
))))
(
set-buffer
(
process-buffer
process
))))
(
lyskom-debug-insert
process
"Error: "
(
format
"%s"
err
))
;;; (save-excursion
;;; (set-buffer (get-buffer-create
;;; lyskom-debug-communications-to-buffer-buffer))
;;; (save-excursion
;;; (goto-char (point-max))
;;; (insert "\n"
;;; (format "%s" process)
;;; (concat "Error: " (format "%s" err))))
;;; (set-buffer (process-buffer process)))
)
(
cond
((
and
(
string=
"writing to process"
(
car
(
cdr
err
)))
(
or
(
string=
"message too long"
(
car
(
cdr
(
cdr
err
))))
...
...
@@ -401,15 +403,16 @@ is sent with each packet. If STRING is longer it is splitted."
process
(
progn
(
if
lyskom-debug-communications-to-buffer
(
save-excursion
(
set-buffer
(
get-buffer-create
lyskom-debug-communications-to-buffer-buffer
))
(
save-excursion
(
goto-char
(
point-max
))
(
insert
"\n"
(
format
"%s"
process
)
(
concat
">>>>>> "
string
)))
(
set-buffer
(
process-buffer
process
))))
(
lyskom-debug-insert
process
">>>>>> "
string
))
;;; (save-excursion
;;; (set-buffer (get-buffer-create
;;; lyskom-debug-communications-to-buffer-buffer))
;;; (save-excursion
;;; (goto-char (point-max))
;;; (insert "\n"
;;; (format "%s" process)
;;; (concat ">>>>>> " string)))
;;; (set-buffer (process-buffer process)))
string
)))
(
t
(
let
((
i
0
))
...
...
src/lyskom-rest.el
View file @
d7be23a4
No preview for this file type
src/startup.el
View file @
d7be23a4
...
...
@@ -136,11 +136,13 @@ See lyskom-mode for details."
(
defun
lyskom-connect-filter
(
proc
output
)
"Receive connection acknowledgement from server."
(
if
lyskom-debug-communications-to-buffer
(
save-excursion
(
set-buffer
(
get-buffer-create
lyskom-debug-communications-to-buffer-buffer
))
(
goto-char
(
point-max
))
(
insert
"\n"
(
format
"%s"
proc
)
"-----> "
output
)))
(
lyskom-debug-insert
proc
"-----> "
output
)
;;; (save-excursion
;;; (set-buffer
;;; (get-buffer-create lyskom-debug-communications-to-buffer-buffer))
;;; (goto-char (point-max))
;;; (insert "\n" (format "%s" proc) "-----> " output))
)
(
cond
((
string-match
"^LysKOM\n"
output
)
(
set-process-filter
proc
'lyskom-filter
))))
...
...
@@ -564,4 +566,5 @@ to see, set of call."
(
setq
lyskom-do-when-done
(
cons
kom-do-when-done
kom-do-when-done
))
(
setq
lyskom-output-queue
(
lyskom-queue-create
))
(
setq
lyskom-list-of-edit-buffers
nil
)
(
setq
lyskom-pending-calls
nil
)
(
lyskom-set-mode-line
(
lyskom-get-string
'not-present-anywhere
))))
src/vars.el.in
View file @
d7be23a4
...
...
@@ -115,6 +115,9 @@ If the value is 'express then texts are allowed to break in the middle of a
comment chain. Otherwise we dont let them in until the end of the comment
tree."
)
(
defvar
kom-after-load-hook
nil
"Hook to run once after lyskom is loaded."
)
(
defvar
kom-login-hook
nil
"*What to do when logged in.
This is a list of commands that are executed after we have logged in but before
...
...
src/view-text.el
View file @
d7be23a4
...
...
@@ -55,6 +55,7 @@ lyskom-reading-list to read the comments to this."
(
todo
nil
))
(
cond
((
eq
filter
'skip-text
)
(
lyskom-filter-prompt
text-no
'filter-text
)
(
setq
todo
'next-text
)
(
lyskom-mark-as-read
(
blocking-do
'get-text-stat
text-no
))
'next-text
)
((
eq
filter
'skip-tree
)
(
lyskom-filter-prompt
text-no
'filter-tree
)
...
...
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