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
187c350e
Commit
187c350e
authored
May 21, 2001
by
David Byers
Browse files
Synkning inför release av 0.46.2-BETA-1
parent
76c2b3e4
Changes
12
Hide whitespace changes
Inline
Side-by-side
doc/Makefile
View file @
187c350e
...
...
@@ -22,7 +22,7 @@
#
# Please mail bug reports to bug-lyskom@lysator.liu.se.
CLIENTVERSION
=
0.46.1
CLIENTVERSION
=
0.46.
2-BETA-
1
SHELL
=
/bin/sh
RM
=
rm
-f
...
...
doc/NEWS-0.46.1
View file @
187c350e
...
...
@@ -60,6 +60,16 @@
eller set-buffer-multibyte i din .emacs.
XEmacs 21.2
-----------
En del användare har rapporterat problem i med elispklienten i
XEmacs 21.2. Om klienten fungerar i XEmacs 21.2 så är det ren tur.
Om den inte fungerar så är det dags att uppgradera till en
tidigare version. När XEmacs 21.2 har börjat stabiliseras så
kommer säkert någon att se till att elispklienten fungerar där.
Kompilering
-----------
...
...
src/ChangeLog
View file @
187c350e
2001-05-21 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46.1-BETA-1
2001-05-21 David Byers <davby@ida.liu.se>
* option-edit.el: Added kom-review-uses-cache.
* view-text.el (lyskom-view-text): Don't prefetch stuff if we are
reviewing and will delete the prefetched stuff anyway.
* lyskom-rest.el (kom-view): Check kom-review-uses-cache.
(kom-view-next-text): Same here.
* edit-text.el (lyskom-edit-show-commented): Check
kom-review-uses-cache.
* commands1.el (lyskom-view-commented-text): Check
kom-review-uses-cache.
* review.el (kom-find-root): Check kom-review-uses-cache.
(kom-review-comments): Same here.
(kom-review-tree): Same here.
(kom-find-root): Same here.
(kom-find-root-review): Same here.
(lyskom-find-root): Same here (two places)
(lyskom-review-comments): Same here.
(kom-review-last-normally-read): Same here.
(kom-review-noconversion): Same here.
* commands1.el (kom-view-commented-text): Check
kom-review-uses-cache.
(kom-view-previous-commented-text): Same here.
* vars.el.in (kom-review-uses-cache): New variable.
2001-05-15 David Byers <davby@ida.liu.se>
* commands1.el (kom-jump): Probably works in tree review mode, at
...
...
src/commands1.el
View file @
187c350e
...
...
@@ -188,6 +188,8 @@ optional arg TEXT-NO is present review the text that text commented instead."
(
if
text-no
(
progn
(
lyskom-tell-internat
'kom-tell-read
)
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
))
(
lyskom-view-commented-text
(
blocking-do
'get-text-stat
text-no
)))
(
lyskom-insert-string
'confusion-what-to-view
)))
...
...
@@ -202,6 +204,8 @@ the other ones."
lyskom-previous-text
)))
(
cond
(
text-no
(
lyskom-tell-internat
'kom-tell-read
)
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
))
(
lyskom-view-commented-text
(
blocking-do
'get-text-stat
lyskom-previous-text
)))
(
t
(
lyskom-insert-string
'confusion-what-to-view
))))
...
...
@@ -235,6 +239,8 @@ the other ones."
(
lyskom-create-text-list
(
cdr
text-nos
))
lyskom-current-text
)
lyskom-reading-list
t
))
(
unless
kom-review-uses-cache
(
cache-del-text-stat
(
car
text-nos
)))
(
lyskom-view-text
(
car
text-nos
)
nil
nil
nil
nil
nil
nil
...
...
src/edit-text.el
View file @
187c350e
...
...
@@ -1763,6 +1763,8 @@ the with-output-to-temp-buffer command is issued to make them both apear."
(
kom-deferred-printing
nil
))
(
save-selected-window
(
lyskom-display-buffer
buf
)
(
unless
kom-review-uses-cache
(
cache-del-text-stat
(
text->text-no
text
)))
(
save-excursion
(
set-buffer
buf
)
(
erase-buffer
)
(
lyskom-view-text
(
text->text-no
text
))
...
...
src/english-strings.el
View file @
187c350e
...
...
@@ -3234,7 +3234,12 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-print-seconds-in-time-strings-doc . "
\
If
this
setting
is
on,
some
time
strings
(
for
example
the
creation
time
of
texts
and
sent
messages
)
will
include
seconds.
")
(kom-review-uses-cache-doc . "
\
If
this
is
turned
on,
commands
that
review
texts
will
use
saved
copies
of
the
text
rather
then
get
new
copies
from
the
server.
This
makes
the
commands
run
significantly
faster,
but
in
some
cases
the
texts
may
have
changed
since
they
were
copied,
and
you
will
not
see
those
changes.
")
;;
;; Tags for variables
...
...
@@ -3396,6 +3401,7 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-dont-check-commented-authors-tag . "
Authors
not
to
check:
")
(kom-print-relative-dates-tag . "
Show
relative
dates:
")
(kom-print-seconds-in-time-strings-tag . "
Include
seconds
in
time
strings:
")
(kom-review-uses-cache-tag . "
Review
commands
use
cached
texts:
")
)
)
...
...
src/lyskom-rest.el
View file @
187c350e
...
...
@@ -319,6 +319,8 @@ If the optional argument REFETCH is non-nil, all caches are cleared and
)
(
lyskom-tell-internat
'kom-tell-review
)
(
lyskom-format-insert
'review-text-no
text-no
)
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
))
(
lyskom-view-text
text-no
))
(
t
(
lyskom-insert
'confusion-what-to-view
))))
(
lyskom-end-of-command
)))
...
...
@@ -400,7 +402,9 @@ If the optional argument REFETCH is non-nil, all caches are cleared and
is-review-tree
))
(
mark-as-read
(
not
is-review
)))
(
when
is-review
(
delq
text-no
(
read-info->text-list
tri
)))
;First entry only
(
delq
text-no
(
read-info->text-list
tri
))
;First entry only
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
)))
(
setq
action
(
lyskom-view-text
text-no
mark-as-read
(
and
kom-read-depth-first
...
...
src/option-edit.el
View file @
187c350e
...
...
@@ -158,6 +158,7 @@
[kom-follow-attachments]
[kom-created-texts-are-read]
[kom-created-texts-are-saved]
[kom-review-uses-cache]
"\n"
[kom-saved-file-name]
[kom-default-mark]
...
...
@@ -492,6 +493,7 @@ customize buffer but do not save them to the server."
(
kom-enabled-prompt-format-executing
(
string
))
(
kom-cite-string
(
string
))
(
kom-created-texts-are-read
(
toggle
(
yes
no
)))
(
kom-review-uses-cache
(
toggle
(
yes
no
)))
(
kom-created-texts-are-saved
(
choice
((
const
(
no
nil
))
(
file
nil
:tag
to-file
))))
(
kom-default-mark
(
choice
((
number
(
0
255
)
...
...
src/review.el
View file @
187c350e
...
...
@@ -978,11 +978,15 @@ instead. In this case the text TEXT-NO is first shown."
(
interactive
(
list
(
lyskom-read-text-no-prefix-arg
'review-tree-q
)))
(
lyskom-tell-internat
'kom-tell-review
)
(
if
text-no
(
let
((
ts
(
blocking-do
'get-text-stat
text-no
)))
(
lyskom-follow-comments
ts
nil
'review
(
lyskom-review-get-priority
)
t
))
(
progn
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
))
(
let
((
ts
(
blocking-do
'get-text-stat
text-no
)))
(
lyskom-follow-comments
ts
nil
'review
(
lyskom-review-get-priority
)
t
)))
(
lyskom-insert-string
'read-text-first
)))
...
...
@@ -992,6 +996,8 @@ instead. In this case the text TEXT-NO is first shown."
(
lyskom-tell-internat
'kom-tell-review
)
(
cond
(
text-no
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
))
(
let*
((
ts
(
blocking-do
'get-text-stat
text-no
))
(
r
(
lyskom-find-root
ts
t
)))
(
cond
((
>
(
length
r
)
1
)
...
...
@@ -1004,7 +1010,9 @@ instead. In this case the text TEXT-NO is first shown."
(
lyskom-review-get-priority
)
(
lyskom-create-text-list
r
)
nil
t
)
t
))
(
r
(
lyskom-view-text
(
car
r
)))
(
r
(
unless
kom-review-uses-cache
(
cache-del-text-stat
(
car
r
)))
(
lyskom-view-text
(
car
r
)))
(
t
(
signal
'lyskom-internal-error
"Could not find root"
)))
)
)
...
...
@@ -1019,6 +1027,8 @@ reviews the whole tree in deep-first order."
(
lyskom-tell-internat
'kom-tell-review
)
(
cond
(
text-no
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
))
(
let*
((
ts
(
blocking-do
'get-text-stat
text-no
))
(
start
(
lyskom-find-root
ts
t
)))
(
cond
((
>
(
length
start
)
1
)
...
...
@@ -1052,12 +1062,16 @@ If ALL is set, return a list of all root texts."
(
setq
misclist
(
text-stat->misc-info-list
head
))
(
while
misclist
(
cond
((
eq
(
misc-info->type
(
car
misclist
))
'COMM-TO
)
(
unless
kom-review-uses-cache
(
cache-del-text-stat
(
misc-info->comm-to
(
car
misclist
))))
(
setq
tmp
(
cons
(
blocking-do
'get-text-stat
(
misc-info->comm-to
(
car
misclist
)))
tmp
)))
((
eq
(
misc-info->type
(
car
misclist
))
'FOOTN-TO
)
(
unless
kom-review-uses-cache
(
cache-del-text-stat
(
misc-info->footn-to
(
car
misclist
))))
(
setq
tmp
(
cons
(
blocking-do
'get-text-stat
...
...
@@ -1092,6 +1106,8 @@ Does a lyskom-end-of-command.
Text is a text-no."
(
cond
((
integerp
text
)
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text
))
(
lyskom-view-text
text
nil
t
nil
(
lyskom-review-get-priority
)
t
))
(
t
(
signal
'lyskom-internal-error
...
...
@@ -1197,6 +1213,8 @@ text is shown and a REVIEW list is built to shown the other ones."
(
interactive
(
list
(
lyskom-read-text-no-prefix-arg
'review-comments-q
)))
(
lyskom-tell-internat
'kom-tell-review
)
(
cond
(
text-no
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
))
(
lyskom-review-comments
(
blocking-do
'get-text-stat
text-no
)))
(
t
lyskom-insert-string
'read-text-first
)))
...
...
@@ -1223,6 +1241,8 @@ text is shown and a REVIEW list is built to shown the other ones."
text-nos
)
;; Only try to review texts that we can read.
(
while
all-text-nos
(
unless
kom-review-uses-cache
(
cache-del-text-stat
(
car
all-text-nos
)))
(
if
(
blocking-do
'get-text-stat
(
car
all-text-nos
))
(
setq
text-nos
(
cons
(
car
all-text-nos
)
text-nos
)))
(
setq
all-text-nos
(
cdr
all-text-nos
)))
...
...
@@ -1237,6 +1257,9 @@ text is shown and a REVIEW list is built to shown the other ones."
'REVIEW
nil
(
lyskom-review-get-priority
)
(
lyskom-create-text-list
(
cdr
text-nos
))
lyskom-current-text
)
t
))
;; Don't check the no-cache thing here since we already
;; did earlier. We may end up slightly out of sync with
;; the server, but not so anyone will really notice.
(
lyskom-view-text
(
car
text-nos
)))
(
lyskom-insert-string
'no-such-text
))))
...
...
@@ -1263,6 +1286,8 @@ text is shown and a REVIEW list is built to shown the other ones."
'REVIEW
nil
(
lyskom-review-get-priority
)
(
lyskom-create-text-list
(
cdr
text-nos
))
lyskom-current-text
)
t
))
(
unless
kom-review-uses-cache
(
cache-del-text-stat
(
car
text-nos
)))
(
lyskom-view-text
(
car
text-nos
)))
(
lyskom-format-insert
'no-such-text
))))
...
...
@@ -1280,6 +1305,8 @@ text is shown and a REVIEW list is built to shown the other ones."
(
let
((
lyskom-format-special
nil
)
(
kom-smileys
nil
)
(
kom-autowrap
nil
))
(
unless
kom-review-uses-cache
(
cache-del-text-stat
text-no
))
(
lyskom-view-text
text-no
))
(
lyskom-insert
'confusion-what-to-view
)))
...
...
src/swedish-strings.el
View file @
187c350e
...
...
@@ -3670,6 +3670,11 @@ i servern. Annars sparas det i din .emacs.")
Om
denna
instllning
r
pslagen
kommer
en
del
tidsangivelser
(
till
exempel
fr
visade
inlgg
och
snda
meddelanden
)
att
inkludera
sekunder.
")
(kom-review-uses-cache-doc . "
\
Om
detta
r
pslaget
s
kommer
kommandon
som
terser
inlgg
att
anvnda
sparade
kopior
av
inlggen
om
de
finns.
Det
gr
att
kommandona
gr
lite
snabbare,
men
det
finns
en
viss
risk
fr
att
ett
inlgg
kan
ha
ndrats
sedan
kopian
sparades.
")
;;
...
...
@@ -3832,6 +3837,7 @@ i servern. Annars sparas det i din .emacs.")
(kom-dont-check-commented-authors-tag . "
Frfattare
som
inte
kontrolleras:
")
(kom-print-relative-dates-tag . "
Visa
relativa
datumangivelser:
")
(kom-print-seconds-in-time-strings-tag . "
Inkludera
sekunder
i
tidsangivelser:
")
(kom-review-uses-cache-tag . "
tersekommandon
anvnder
sparade
inlgg:
")
)
)
...
...
src/vars.el.in
View file @
187c350e
...
...
@@ -218,6 +218,11 @@ The value of this variable is the file name on which to save new texts."
server
inherited
)
(
def-kom-var
kom-review-uses-cache
t
"*If non-nil, review commands don't use the cache."
server
inherited
)
(
def-kom-var
kom-postpone-default
17
"*The number of articles to postpone by default."
server
)
...
...
src/view-text.el
View file @
187c350e
...
...
@@ -377,7 +377,9 @@ Note that this function must not be called asynchronously."
(
progn
;; this is a bit silly, as it prefetches all
;; the texts many times.
(
lyskom-prefetch-texttree
text-no
)
(
unless
(
and
build-review-tree
kom-review-uses-cache
)
(
lyskom-prefetch-texttree
text-no
))
(
lyskom-follow-comments
text-stat
conf-stat
mark-as-read
priority
build-review-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