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
532c4021
Commit
532c4021
authored
Aug 23, 1999
by
David Byers
Browse files
Explicitly set the coding system of the LysKOM process to iso-8859-1
to avoid Gnu Emacs MULE lossage. Minor bug fixes.
parent
2e654d76
Changes
8
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
532c4021
1999-08-23 David Byers <davby@ida.liu.se>
* startup.el: Set the process coding system of the network stream
to iso-8859-1 to avoid stupidities like Gnu Emacs sending its
internal representation of swedish characters to the server (and
lying about the length of the string in question.)
* compatibility.el (set-process-coding-system): New compatibility
function.
1999-08-19 David Byers <davby@ida.liu.se>
* commands2.el (kom-change-conf-type): Fixed bug in call to
mapconcat.
1999-08-18 David Byers <davby@ida.liu.se>
* prefetch.el (lyskom-prefetch-cancel-prefetch-map): New function.
(lyskom-skip-finished-in-queue): Handle CANCELED elements
(lyskom-prefetch-one-item): Handle CANCELED elements
* reading.el (lyskom-enter-map-in-to-do-list): Don't bug out if we
get a map for a conference we're not a member of. This can happen
when there are RPC calls pending and we do something to the
membership list (a refetch, leave a conference, etc.)
1999-08-22 David Byers <davby@ida.liu.se>
* edit-text.el (lyskom-edit-send-check-recipients): Check for
...
...
src/TODO
View file @
532c4021
...
...
@@ -7,6 +7,10 @@ Att g
listan, glöm inte att ta bort det från listan!
När man har kört prefetchen får man en skum kö i lyskom-prefetch-stack
som inte innehåller något annat än element som är köer vars sista
element är FINISHED. Ibland verkar köerna bli cirkulära.
Man borde använda next-command-event med vänner i silent-read och
j-or-n-p.
...
...
@@ -564,20 +568,6 @@ kommit. Det verkade l
mig igen.
"Vill du bli medlem? (j eller n)
Mark set
[6 times]
error in process filter: Wrong type argument: number-or-marker-p, nil
[20 times]"
Jag tror jag hittat ett sätt att provocera fram det felmeddelandet (om
det har någon praktisk nytta vet jag inte...)
Utträd ur fritt forum eller något annat högtrafikmöte.
G mötet
svara j på att bli medlem
a utträd ur mötet INNAN det hunnit cachas hos klienten. Modem eller
att köra från en annan kontinent underlättar nog här ;-)
...
...
src/commands1.el
View file @
532c4021
...
...
@@ -568,6 +568,7 @@ of the person."
(
cond
((
null
pers
)
(
lyskom-insert-string
'error-fetching-person
))
((
null
conf
)
(
lyskom-insert-string
'error-fetching-conf
))
(
passivate
(
lyskom-prefetch-cancel-prefetch-map
(
conf-stat->conf-no
conf
))
(
lyskom-format-insert
'unsubscribe-to
conf
)
(
set-membership-type->passive
(
membership->type
mship
)
t
)
(
setq
reply
(
blocking-do
'set-membership-type
...
...
@@ -589,6 +590,9 @@ of the person."
(
read-list-delete-read-info
(
conf-stat->conf-no
conf
)
lyskom-to-do-list
)))
(
t
(
when
self
(
lyskom-prefetch-cancel-prefetch-map
(
conf-stat->conf-no
conf
)))
(
if
self
(
lyskom-format-insert
'unsubscribe-to
conf
)
(
lyskom-format-insert
'exclude-from
pers
conf
))
...
...
src/commands2.el
View file @
532c4021
...
...
@@ -1816,7 +1816,8 @@ Return-value: 'no-session if there is no suitable session to switch to
(and ori (lyskom-get-string 'no-comments))
(and pro (lyskom-get-string 'closed))
(and ano (lyskom-get-string 'allow-anon))
(and ope (lyskom-get-string 'allow-secret))))))
(and ope (lyskom-get-string 'allow-secret))))
"
,
"))
(let* ((open (lyskom-j-or-n-p (lyskom-get-string 'anyone-member) t))
(secret (if (not open)
(lyskom-j-or-n-p (lyskom-get-string 'secret-conf) t)))
...
...
src/compatibility.el
View file @
532c4021
...
...
@@ -279,6 +279,9 @@ string to search in."
(
make-local-variable
'enable-multibyte-characters
)
(
setq
enable-multibyte-characters
arg
))
(
lyskom-provide-function
set-process-coding-system
(
proc
&optional
encoding
decoding
)
)
;;; ======================================================================
;;; Event stuff
...
...
src/prefetch.el
View file @
532c4021
...
...
@@ -83,6 +83,7 @@ lyskom-queue.
For every membership-part we fetch the conf-stats
before continuing with the next part.
\('MEMBERSHIPISREAD\) - Just sets the lyskom-membership-is-read variable to t.
\('CANCELED . rest\) Whatever it was, it has been canceled.
See further documentation in the source code."
...
...
@@ -138,6 +139,27 @@ This is used to prevent the prefetch code to reenter itself.")
(
setq
lyskom-membership-is-read
0
))
;;; =================================================================
;;; Functions to cancel some prefetches
(
defun
lyskom-prefetch-cancel-prefetch-map
(
conf-no
&optional
queue
)
;;; (let ((prefetch-list (if queue
;;; (lyskom-queue->all-entries queue)
;;; (lyskom-stack->all-entries lyskom-prefetch-stack))))
;;; (lyskom-traverse el prefetch-list
;;; (cond
;;; ((lyskom-queue-p el)
;;; (lyskom-prefetch-cancel-prefetch-map conf-no el))
;;; ((not (consp el)) nil)
;;; ((or (and (eq (car el) 'MAP)
;;; (eq (conf-stat->conf-no (elt el 1)) conf-no))
;;; (and (eq (car el) 'CONFSTATFORMAP)
;;; (eq (elt el 1) conf-no)))
;;; (setcar el 'CANCELED))
;;; )))
)
;;;; ================================================================
;;; +++ lyskom-reset-prefetch to be called on client reset.
;;; must restart everything.
...
...
@@ -378,6 +400,8 @@ process is started. Used to keep prefetch going."
(
while
(
not
done
)
(
setq
element
(
lyskom-queue->first
queue
))
(
if
(
or
(
eq
element
'DONE
)
(
and
(
consp
element
)
(
eq
(
car
element
)
'CANCELED
))
(
and
(
lyskom-queue-p
element
)
(
eq
(
lyskom-queue->first
element
)
'FINISHED
)))
(
lyskom-queue-delete-first
queue
)
...
...
@@ -397,6 +421,8 @@ Return t if an element was prefetched, otherwise return nil."
(
while
(
not
done
)
(
setq
element
(
lyskom-stack->top
lyskom-prefetch-stack
))
(
if
(
or
(
eq
element
'DONE
)
(
and
(
consp
element
)
(
eq
(
car
element
)
'CANCELED
))
(
and
(
lyskom-queue-p
element
)
(
eq
(
lyskom-queue->first
element
)
'FINISHED
)))
(
lyskom-stack-pop
lyskom-prefetch-stack
)
...
...
@@ -409,6 +435,8 @@ Return t if an element was prefetched, otherwise return nil."
(
cond
((
eq
element
'DONE
)
nil
)
((
eq
element
'FINISHED
)
nil
)
((
and
(
consp
element
)
(
eq
(
car
element
)
'CANCELED
))
nil
)
;; A queue ==> check it out first.
((
lyskom-queue-p
element
)
...
...
src/reading.el
View file @
532c4021
...
...
@@ -43,9 +43,9 @@
"Takes a MAP and enters all its listed text-nos in the conference CONF-STAT.
This works by modifying the lyskom-to-do-list which in some cases
also means modifying the lyskom-reading-list. The zero text-nos are skipped."
(
let
((
list
(
lyskom-list-unread
map
membership
))
)
(
if
(
null
list
)
nil
(
let
((
list
(
lyskom-list-unread
map
membership
))
(
mship
(
lyskom-try-get-membership
(
conf-stat->conf-no
conf-stat
)))
)
(
when
(
and
list
mship
)
(
read-list-enter-read-info
(
lyskom-create-read-info
'CONF
conf-stat
...
...
src/startup.el
View file @
532c4021
...
...
@@ -160,6 +160,7 @@ See lyskom-mode for details."
(
setq
proc
(
open-network-stream
name
buffer
proxy-host
proxy-port
))
(
set-process-coding-system
proc
'no-conversion
'iso-8859-1
)
;; Install our filter.
;; Do this before we send the CONNECT command to
...
...
@@ -188,7 +189,8 @@ CONNECT %s:%d HTTP/1.0\r\n\
;; Now the proxy has connected to the kom server
)
(t (setq proc (open-network-stream name buffer
host port)))))
host port))
(set-process-coding-system proc 'no-conversion 'iso-8859-1))))
(switch-to-buffer buffer)
(lyskom-mode) ;Clearing lyskom-default...
(setq lyskom-buffer buffer)
...
...
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