Skip to content
GitLab
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
8d3be2e6
Commit
8d3be2e6
authored
Jun 24, 2007
by
David Byers
Browse files
Fix bug 1143
parent
45aa9990
Changes
9
Expand all
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
8d3be2e6
2007-06-24 <David Byers@GULAG>
Fix bug 1143:
* review.el (lyskom-last-review-filter): New variable.
(kom-review-all-roots): New command.
(kom-unread-all-roots): New command.
(kom-review-more): Use saved filter when getting more texts.
(kom-unread-more): Use saved filter when getting more texts.
(kom-review-first-roots): New command.
(kom-unread-first-roots): New command.
(kom-review-roots-by-to): New command.
(lyskom-review-by-to): New filter argument. Get default filter
from global variable. Pass filter on to other functions.
(kom-unread-roots-by-to): New command.
(lyskom-unread-by-to): New filter argument. Get default filter
from global variable. Pass filter on to other commands.
(lyskom-get-texts-by-to): New filter argument. Pass to sub
functions and use in predicate for lyskom-get-texts-by-generic.
(lyskom-get-texts-by): New filter argument. Pass filter to
lyskom-get-texts-by-generic.
(lyskom-get-texts-by-and-to): New argument filter.
(lyskom-get-texts-globally): New argument filter.
(lyskom-get-texts-to): New argument filter.
(lyskom-get-letters-to): New argument filter.
* utilities.el (lyskom-set-connection-time-format): Use
make-local-variable instead of make-variable-buffer-local.
* view-mode.el (lyskom-view-base-mode): Use make-local-variable
instead of make-variable-buffer-local.
* vars.el.in (kom-unread-mode-line-type): Make this server-stored.
* compatibility.el: Don't defvar enable-multibyte-characters
unless it's unbound.
* english-strings.el,swedish-strings.el (lyskom-sv-mode-map):
Rebound A from kom-review-all to kom-review-all-roots.
Fix bug 673:
* async.el (lyskom-show-personal-message): Don't run
lyskom-personal-message-hook.
...
...
src/compatibility.el
View file @
8d3be2e6
...
...
@@ -212,7 +212,9 @@ KEYS should be a string in the format used for saving keyboard macros
;;; we could code using the standard names. We don't do that any
;;; more. Instead, we define aliases in our own namespace.
(
defvar
enable-multibyte-characters
nil
)
(
unless
(
boundp
'enable-multibyte-characters
)
(
defvar
enable-multibyte-characters
nil
))
(
lyskom-function-alias
set-buffer-multibyte
(
arg
)
(
put
'enable-multibyte-characters
'permanent-local
t
)
(
make-local-variable
'enable-multibyte-characters
)
...
...
src/english-strings.el
View file @
8d3be2e6
...
...
@@ -914,25 +914,28 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
(no-review-done . "
You
need
to
review
something
before
you
can
review
more.\n
")
(not-reviewing . "
You
are
currently
not
reviewing
anything.\n
")
(unread-how-many . "
Unread
how
many?
")
(unread-how-many-roots . "
Unread
how
many
root
texts?
")
(unread-how-many-more . "
Unread
how
many
more?
")
(review-how-many . "
Review
how
many?
")
(review-how-many-roots . "
Review
how
many
root
texts?
")
(review-how-many-more . "
Review
how
many
more?
")
(latest-n . "
last
%#1d
")
(first-n . "
first
%#1d
")
(review-by-whom . "
Review
%#1s
by
whom:
")
(review-to-conf . "
Review
%#1s
to
conference:
")
(unread-by-whom . "
Unread
%#1s
by
whom:
")
(unread-to-conf . "
Unread
%#1s
to
conference:
")
(review-by-whom . "
Review
%#1s
%#2?b%[%#2s
%]%[%]
by
whom:
")
(review-to-conf . "
Review
%#1s
%#2?b%[%#2s
%]%[%]
to
conference:
")
(unread-by-whom . "
Unread
%#1s
%#2?b%[%#2s
%]%[%]
by
whom:
")
(unread-to-conf . "
Unread
%#1s
%#2?b%[%#2s
%]%[%]
to
conference:
")
(all-confs . "
all
conferences
")
(unread-info-by-to . "
Unread
%#1s
by
%#2P
to
%#3M.\n
")
(unread-more-info-by-to . "
Unread
%#1s
by
%#2P
to
%#3M.\n
")
(unread-info-by-to . "
Unread
%#1s
%#4?b%[%#4s
%]%[%]
by
%#2P
to
%#3M.\n
")
(unread-more-info-by-to . "
Unread
%#1s
%#4?b%[%#4s
%]%[%]
by
%#2P
to
%#3M.\n
")
(unread-rest . "
the
rest
")
(unread-more . "
%#1d
more
")
(review-info-by-to . "
Review
%#1s
by
%#2P
to
%#3M
forwards.\n
")
(review-more-info-by-to . "
Review
%#1s
by
%#2P
to
%#3M
forwards.\n
")
(review-info-by-to . "
Review
%#1s
%#4?b%[%#4s
%]%[%]by
%#2P
to
%#3M
forwards.\n
")
(review-more-info-by-to . "
Review
%#1s
%#4?b%[%#4s
%]%[%]by
%#2P
to
%#3M
forwards.\n
")
(review-filter-roots . "
roots
")
(review-rest . "
the
rest
")
(review-more . "
%#1d
more
")
(you-review . "
You
are
now
reviewing
%#1s.\n
")
...
...
@@ -1746,12 +1749,12 @@ You must become an active member of the conference to enter it.\n")
(
review-commented-q
.
"Review the commented for which text?"
)
(
review-tree-q
.
"Review all comments recursively for which text?"
)
(
find-root-q
.
"Review
original tex
t for text?"
)
(
find-root-q
.
"Review
roo
t for text?"
)
(
find-root-review-q
.
"Review tree of which text?"
)
(
review-comments-q
.
"Review all comments to which text?"
)
(
review-xrefs-q
.
"Review all cross references from which text?"
)
(
unread-tree-q
.
"Unread all comments recursively for which text?"
)
(
unread-root-q
.
"Unread
original tex
t for text?"
)
(
unread-root-q
.
"Unread
roo
t for text?"
)
(
unread-root-review-q
.
"Unread tree of which text?"
)
(
unread-comments-q
.
"Unread all comments to which text?"
)
...
...
@@ -2229,10 +2232,13 @@ Change privileges for %#1P (%#1p)...")
(kom-review-noconversion . "
Review
unconverted
")
(kom-review-rot13 . "
Review
rot13
")
(kom-review-next . "
Review
next
")
(kom-find-root . "
Review
original
(
text
)
")
(kom-find-root . "
Review
root
(
text
)
")
(kom-review-by-to . "
Review
last
")
(kom-review-roots-by-to . "
Review
last
roots
")
(kom-review-first . "
Review
first
")
(kom-review-first-roots . "
Review
first
roots
")
(kom-review-all . "
Review
all
")
(kom-review-all-roots . "
Review
all
roots
")
(kom-review-more . "
Review
more
")
(kom-view-commented-text . "
Review
(
the
)
commented
(
text
)
")
(kom-view-previous-commented-text
...
...
@@ -2372,6 +2378,7 @@ Change privileges for %#1P (%#1p)...")
(kom-copy-options . "
Copy
options
")
(kom-mark-unread . "
Unread
text
")
(kom-unread-by-to . "
Unread
last
")
(kom-unread-roots-by-to . "
Unread
last
")
(kom-unread-more . "
Unread
more
")
(kom-unread-commented-text . "
Unread
(
the
)
commented
(
text
)
")
(kom-unread-previous-commented-text . "
Unread
(
the
)
previously
commented
(
text
)
")
...
...
@@ -2382,7 +2389,9 @@ Change privileges for %#1P (%#1p)...")
(kom-unread-last-normally-read
. "
Unread
again
")
(kom-unread-first . "
Unread
first
")
(kom-unread-first-roots . "
Unread
first
roots
")
(kom-unread-all . "
Unread
all
")
(kom-unread-all-roots . "
Unread
all
roots
")
(kom-unread-presentation . "
Unread
presentation
")
(kom-unread-server-faq . "
Unread
server
FAQ
")
...
...
@@ -2794,10 +2803,12 @@ Change privileges for %#1P (%#1p)...")
(define-key lyskom-en-unread-prefix (kbd "
g
") 'kom-unread-last-normally-read)
(define-key lyskom-en-unread-prefix (kbd "
o
") 'kom-unread-root)
(define-key lyskom-en-unread-prefix (kbd "
l
") 'kom-unread-by-to)
(define-key lyskom-en-unread-prefix (kbd "
L
") 'kom-unread-roots-by-to)
(define-key lyskom-en-unread-prefix (kbd "
M
") 'kom-unread-more)
(define-key lyskom-en-unread-prefix (kbd "
r
") 'kom-unread-root-review)
(define-key lyskom-en-unread-prefix (kbd "
f
") 'kom-unread-first)
(define-key lyskom-en-unread-prefix (kbd "
A
") 'kom-unread-all)
(define-key lyskom-en-unread-prefix (kbd "
F
") 'kom-unread-first-roots)
(define-key lyskom-en-unread-prefix (kbd "
A
") 'kom-unread-all-roots)
(define-key lyskom-en-unread-prefix (kbd "
f
") 'kom-unread-first)
(define-key lyskom-en-unread-prefix (kbd "
p
") 'kom-unread-presentation)
(define-key lyskom-en-unread-prefix (kbd "
q
") 'kom-unread-faq)
...
...
@@ -2832,8 +2843,10 @@ Change privileges for %#1P (%#1p)...")
(define-key lyskom-en-review-prefix (kbd "
3
") 'kom-review-rot13)
(define-key lyskom-en-review-prefix (kbd "
o
") 'kom-find-root)
(define-key lyskom-en-review-prefix (kbd "
l
") 'kom-review-by-to)
(define-key lyskom-en-review-prefix (kbd "
L
") 'kom-review-roots-by-to)
(define-key lyskom-en-review-prefix (kbd "
f
") 'kom-review-first)
(define-key lyskom-en-review-prefix (kbd "
A
") 'kom-review-all)
(define-key lyskom-en-review-prefix (kbd "
F
") 'kom-review-first-roots)
(define-key lyskom-en-review-prefix (kbd "
A
") 'kom-review-all-roots)
(define-key lyskom-en-review-prefix (kbd "
M
") 'kom-review-more)
(define-key lyskom-en-review-prefix (kbd "
g
") 'kom-review-last-normally-read)
(define-key lyskom-en-review-prefix (kbd "
q
") 'kom-review-faq)
...
...
@@ -3886,6 +3899,30 @@ up menus.")
The
users
named
in
this
list
will
be
displayed
using
a
warning
face
in
the
LysKOM
buffer.
")
(kom-person-list-1-doc . "
\
This
list
of
users
has
no
predefined
meaning.
It
can
be
used
to
show
the
users
with
a
special
font
(
see
kom-highlight-conferences
)
or
to
configure
presence
messages
(
see
kom-presence-messages-in-buffer
)
or
for
whatever
purpose
you
like.
")
(kom-person-list-2-doc . "
\
This
list
of
users
has
no
predefined
meaning.
It
can
be
used
to
show
the
users
with
a
special
font
(
see
kom-highlight-conferences
)
or
to
configure
presence
messages
(
see
kom-presence-messages-in-buffer
)
or
for
whatever
purpose
you
like.
")
(kom-person-list-3-doc . "
\
This
list
of
users
has
no
predefined
meaning.
It
can
be
used
to
show
the
users
with
a
special
font
(
see
kom-highlight-conferences
)
or
to
configure
presence
messages
(
see
kom-presence-messages-in-buffer
)
or
for
whatever
purpose
you
like.
")
(kom-person-list-4-doc . "
\
This
list
of
users
has
no
predefined
meaning.
It
can
be
used
to
show
the
users
with
a
special
font
(
see
kom-highlight-conferences
)
or
to
configure
presence
messages
(
see
kom-presence-messages-in-buffer
)
or
for
whatever
purpose
you
like.
")
(kom-url-viewer-preferences-doc . "
\
This
setting
controls
which
WWW
browser
that
will
be
used
to
open
URLs
found
in
LysKOM.
If
the
first
browser
in
the
list
cannot
handle
the
type
...
...
@@ -4483,6 +4520,10 @@ up menus.")
(kom-filter-outgoing-messages-tag . "
Show
automatic
messages:
")
(kom-friends-tag . "
Friends
and
other
special
people:
")
(kom-morons-tag . "
Morons
and
other
\"special\"
people:
")
(kom-person-list-1-tag . "
Generlic
list
of
persons
(
1
)
:
")
(kom-person-list-2-tag . "
Generlic
list
of
persons
(
2
)
:
")
(kom-person-list-3-tag . "
Generlic
list
of
persons
(
3
)
:
")
(kom-person-list-4-tag . "
Generlic
list
of
persons
(
4
)
:
")
(kom-url-viewer-preferences-tag . "
Open
URLs
using
the
following
program:
")
(kom-windows-browser-command-tag . "
Command
to
start
a
web
browser
on
Windows:
")
(kom-mosaic-command-tag . "
Command
to
start
NCSA
Mosaic:
")
...
...
src/menus.el
View file @
8d3be2e6
...
...
@@ -70,8 +70,11 @@
(
item
kom-find-root-review
)
(
hline
)
(
item
kom-review-by-to
)
(
item
kom-review-roots-by-to
)
(
item
kom-review-first
)
(
item
kom-review-first-roots
)
(
item
kom-review-all
)
(
item
kom-review-all-roots
)
(
item
kom-review-more
)
(
hline
)
(
item
kom-make-review-mark-as-read
)
...
...
@@ -91,8 +94,11 @@
(
item
kom-unread-root-review
)
(
hline
)
(
item
kom-unread-by-to
)
(
item
kom-unread-roots-by-to
)
(
item
kom-unread-first
)
(
item
kom-unread-first-roots
)
(
item
kom-unread-all
)
(
item
kom-unread-all-roots
)
(
item
kom-unread-more
)
(
hline
)
(
item
kom-unread-presentation
)
...
...
src/review.el
View file @
8d3be2e6
This diff is collapsed.
Click to expand it.
src/swedish-strings.el
View file @
8d3be2e6
...
...
@@ -960,25 +960,29 @@ M
(no-review-done . "
Du
mste
terse
innan
du
kan
terse
mer.\n
")
(not-reviewing . "
Du
hller
inte
p
att
terse
ngot
nu.\n
")
(unread-how-many . "
Olsmarkera
hur
mnga?
")
(unread-how-many-roots . "
Olsmarkera
hur
mnga
urinlgg?
")
(review-how-many . "
terse
hur
mnga?
")
(review-how-many-roots . "
terse
hur
mnga
urinlgg?
")
(unread-how-many-more . "
Olsmarkera
ytterligare
hur
mnga?
")
(review-how-many-more . "
terse
ytterligare
hur
mnga?
")
(latest-n . "
senaste
%#1d
")
(first-n . "
frsta
%#1d
")
(review-by-whom . "
terse
%#1s
av
vem:
")
(review-to-conf . "
terse
%#1s
till
mte:
")
(unread-by-whom . "
Olsmarkera
%#1s
av
vem:
")
(unread-to-conf . "
Olsmarkera
%#1s
till
mte:
")
(review-by-whom . "
terse
%#1s
%#2?b%[%#2s
%]%[%]
av
vem:
")
(review-to-conf . "
terse
%#1s
%#2?b%[%#2s
%]%[%]
till
mte:
")
(unread-by-whom . "
Olsmarkera
%#1s
%#2?b%[%#2s
%]%[%]
av
vem:
")
(unread-to-conf . "
Olsmarkera
%#1s
%#2?b%[%#2s
%]%[%]
till
mte:
")
(all-confs . "
alla
mten
")
(unread-info-by-to . "
Olsmarkera
%#1s
av
%#2P
till
%#3M.\n
")
(unread-more-info-by-to . "
Olsmarkera
%#1s
av
%#2P
till
%#3M.\n
")
(unread-info-by-to . "
Olsmarkera
%#1s
%#4?b%[%#4s
%]%[%]
av
%#2P
till
%#3M.\n
")
(unread-more-info-by-to . "
Olsmarkera
%#1s
%#4?b%[%#4s
%]%[%]
av
%#2P
till
%#3M.\n
")
(unread-rest . "
resten
")
(unread-more . "
nsta
%#1d
")
(review-info-by-to . "
terse
%#1s
av
%#2P
till
%#3M
framt.\n
")
(review-more-info-by-to . "
terse
%#1s
av
%#2P
till
%#3M
framt.\n
")
(review-info-by-to . "
terse
%#1s
%#4?b%[%#4s
%]%[%]av
%#2P
till
%#3M.\n
")
(review-more-info-by-to . "
terse
%#1s
%#4?b%[%#4s
%]%[%]av
%#2P
till
%#3M.\n
")
(review-filter-roots . "
urinlgg
")
(review-rest . "
resten
")
(review-more . "
nsta
%#1d
")
(you-review . "
Du
terser
nu
%#1s.\n
")
...
...
@@ -2272,9 +2276,12 @@ Nuvarande r
(kom-review-next . "
terse
nsta
")
(kom-find-root . "
terse
urinlgget
")
(kom-review-by-to . "
terse
senaste
")
(kom-review-roots-by-to . "
terse
senaste
urinlgg
")
(kom-review-more . "
terse
fler
inlgg
")
(kom-review-first . "
terse
frsta
")
(kom-review-first-roots . "
terse
frsta
urinlgg
")
(kom-review-all . "
terse
alla
")
(kom-review-all-roots . "
terse
alla
urinlgg
")
(kom-view-commented-text . "
terse
det
kommenterade
")
(kom-view-previous-commented-text
. "
terse
det
fregende
kommenterade
")
...
...
@@ -2414,6 +2421,7 @@ Nuvarande r
(kom-copy-options . "
Kopiera
instllningar
")
(kom-mark-unread . "
Olsmarkera
inlgg
")
(kom-unread-by-to . "
Olsmarkera
senaste
")
(kom-unread-roots-by-to . "
Olsmarkera
senaste
urinlgg
")
(kom-unread-more . "
Olsmarkera
fler
inlgg
")
(kom-unread-commented-text . "
Olsmarkera
det
kommenterade
")
(kom-unread-previous-commented-text . "
Olsmarkera
det
fregende
kommenterade
")
...
...
@@ -2424,7 +2432,9 @@ Nuvarande r
(kom-unread-last-normally-read
. "
Olsmarkera
igen
")
(kom-unread-all . "
Olsmarkera
alla
")
(kom-unread-all-roots . "
Olsmarkera
alla
urinlgg
")
(kom-unread-first . "
Olsmarkera
frsta
")
(kom-unread-first-roots . "
Olsmarkera
frsta
urinlgg
")
(kom-unread-presentation . "
Olsmarkera
presentation
")
(kom-unread-server-faq . "
Olsmarkera
server-FAQ
")
(kom-unread-faq . "
Olsmarkera
FAQ
")
...
...
@@ -2774,6 +2784,7 @@ Nuvarande r
(define-key lyskom-sv-mode-map (kbd "
M-m
") 'kom-toggle-mark-as-read-prefix)
(define-key lyskom-sv-mode-map (kbd "
M-c
") 'kom-toggle-cache-prefix)
(define-key lyskom-sv-mode-map (kbd "
M-u
") 'kom-toggle-topic-prefix)
(define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button2)) 'kom-mouse-null)
(define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button2up)) 'kom-button-click)
...
...
@@ -2928,10 +2939,12 @@ Nuvarande r
(define-key lyskom-sv-unread-prefix (kbd "
r
") 'kom-unread-root)
(define-key lyskom-sv-unread-prefix (kbd "
u
") 'kom-unread-root)
(define-key lyskom-sv-unread-prefix (kbd "
s
") 'kom-unread-by-to)
(define-key lyskom-sv-unread-prefix (kbd "
S
") 'kom-unread-roots-by-to)
(define-key lyskom-sv-unread-prefix (kbd "
y
") 'kom-unread-more)
(define-key lyskom-sv-unread-prefix (kbd "
t
") 'kom-unread-root-review)
(define-key lyskom-sv-unread-prefix (kbd "
A
") 'kom-unread-all)
(define-key lyskom-sv-unread-prefix (kbd "
A
") 'kom-unread-all
-roots
)
(define-key lyskom-sv-unread-prefix (kbd "
f
") 'kom-unread-first)
(define-key lyskom-sv-unread-prefix (kbd "
F
") 'kom-unread-first-roots)
(define-key lyskom-sv-unread-prefix (kbd "
p
") 'kom-unread-presentation)
(define-key lyskom-sv-unread-prefix (kbd "
q
") 'kom-unread-faq)
(define-key lyskom-sv-unread-prefix (kbd "
Q
") 'kom-unread-server-faq)
...
...
@@ -2966,9 +2979,11 @@ Nuvarande r
(define-key lyskom-sv-review-prefix (kbd "
r
") 'kom-find-root)
(define-key lyskom-sv-review-prefix (kbd "
u
") 'kom-find-root)
(define-key lyskom-sv-review-prefix (kbd "
s
") 'kom-review-by-to)
(define-key lyskom-sv-review-prefix (kbd "
S
") 'kom-review-roots-by-to)
(define-key lyskom-sv-review-prefix (kbd "
y
") 'kom-review-more)
(define-key lyskom-sv-review-prefix (kbd "
A
") 'kom-review-all)
(define-key lyskom-sv-review-prefix (kbd "
A
") 'kom-review-all
-roots
)
(define-key lyskom-sv-review-prefix (kbd "
f
") 'kom-review-first)
(define-key lyskom-sv-review-prefix (kbd "
F
") 'kom-review-first-roots)
(define-key lyskom-sv-review-prefix (kbd "
l
") 'kom-review-stack)
(define-key lyskom-sv-review-prefix (kbd "
p
") 'kom-review-presentation)
(define-key lyskom-sv-review-prefix (kbd "
t
") 'kom-find-root-review)
...
...
@@ -4032,14 +4047,38 @@ ta fram menyer.")
ven
att
visas
som
om
man
hade
skickat
det
manuellt.
")
(kom-friends-doc . "
\
Namnen
p
personerna
i
denna
lista
k
ommer
att
visas
med
ett
speciellt
utseende
i
LysKOM-bufferten.
Kommandot
Vilka
vnner
r
inloggade
(
och
andra
liknande
kommandon
)
anvnder
ocks
denna
lista.
")
Namnen
p
personerna
i
denna
lista
k
an
visas
med
ett
speciellt
utseende
i
LysKOM-bufferten.
Kommandot
Vilka
vnner
r
inloggade
(
och
andra
liknande
kommandon
)
anvnder
ocks
denna
lista.
")
(kom-morons-doc . "
\
Namnen
p
personerna
i
denna
lista
k
ommer
att
visas
med
ett
varnande
Namnen
p
personerna
i
denna
lista
k
an
visas
med
ett
varnande
utseende
i
LysKOM-bufferten.
")
(kom-person-list-1-doc . "
\
Den
hr
listan
har
ingen
frutbestmd
betydelse,
utan
kan
anvndas
fr
att
stlla
in
att
personerna
ska
visas
med
ett
speciellt
utseende
(
se
kom-highlight-conferences
)
eller
fr
att
konfigurera
in-
och
utloggningar
(
se
kom-presence-messages-in-buffer
)
med
mera.
")
(kom-person-list-2-doc . "
\
Den
hr
listan
har
ingen
frutbestmd
betydelse,
utan
kan
anvndas
fr
att
stlla
in
att
personerna
ska
visas
med
ett
speciellt
utseende
(
se
kom-highlight-conferences
)
eller
fr
att
konfigurera
in-
och
utloggningar
(
se
kom-presence-messages-in-buffer
)
med
mera.
")
(kom-person-list-3-doc . "
\
Den
hr
listan
har
ingen
frutbestmd
betydelse,
utan
kan
anvndas
fr
att
stlla
in
att
personerna
ska
visas
med
ett
speciellt
utseende
(
se
kom-highlight-conferences
)
eller
fr
att
konfigurera
in-
och
utloggningar
(
se
kom-presence-messages-in-buffer
)
med
mera.
")
(kom-person-list-4-doc . "
\
Den
hr
listan
har
ingen
frutbestmd
betydelse,
utan
kan
anvndas
fr
att
stlla
in
att
personerna
ska
visas
med
ett
speciellt
utseende
(
se
kom-highlight-conferences
)
eller
fr
att
konfigurera
in-
och
utloggningar
(
se
kom-presence-messages-in-buffer
)
med
mera.
")
(kom-url-viewer-preferences-doc . "
\
Denna
instllning
bestmmer
vilken
WWW-lsare
som
i
frsta
hand
skall
anvndas
fr
att
ppna
URLer
som
frekommer
i
LysKOM.
Om
den
frsta
lsaren
...
...
@@ -4637,6 +4676,10 @@ ta fram menyer.")
(kom-filter-outgoing-messages-tag . "
Visa
automatiska
meddelanden:
")
(kom-friends-tag . "
Vnner
och
bekanta:
")
(kom-morons-tag . "
Idioter
och
knppskallar:
")
(kom-person-list-1-tag . "
Personlista
(
1
)
:
")
(kom-person-list-2-tag . "
Personlista
(
1
)
:
")
(kom-person-list-3-tag . "
Personlista
(
1
)
:
")
(kom-person-list-4-tag . "
Personlista
(
1
)
:
")
(kom-url-viewer-preferences-tag . "
ppna
URLer
med
fljande
program:
")
(kom-windows-browser-command-tag . "
Kommando
fr
att
starta
en
WWW-lsare
i
Windows:
")
(kom-mosaic-command-tag . "
Kommando
fr
att
starta
NCSA
Mosaic:
")
...
...
src/utilities.el
View file @
8d3be2e6
...
...
@@ -2288,7 +2288,7 @@ suitable for use as initial input in a magic minibuffer."
(
lambda
(
buf
)
(
save-excursion
(
set-buffer
buf
)
(
make-variable
-buffer-local
'lyskom-server-uses-utc
)
(
make-
local-
variable
'lyskom-server-uses-utc
)
(
setq
lyskom-server-uses-utc
val
)))
lyskom-buffer
)))
...
...
src/vars.el.in
View file @
8d3be2e6
...
...
@@ -283,31 +283,61 @@ the priority among links that match the same text is undefined."
lyskom-default-conference-empty
)))
(
review-to-conf
))
(
kom-review-roots-by-to
(
review-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
review-to-conf
))
(
kom-review-first
(
review-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
review-to-conf
))
(
kom-review-first-roots
(
review-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
review-to-conf
))
(
kom-review-all
(
review-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
review-to-conf
))
(
kom-review-all-roots
(
review-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
review-to-conf
))
(
kom-unread-by-to
(
unread-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
unread-to-conf
))
(
kom-unread-roots-by-to
(
unread-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
unread-to-conf
))
(
kom-unread-first
(
unread-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
unread-to-conf
))
(
kom-unread-first-roots
(
unread-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
unread-to-conf
))
(
kom-unread-all
(
unread-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
unread-to-conf
))
(
kom-unread-all-roots
(
unread-by-whom
(
default
.
(
lyskom-default-conference-at-point
lyskom-default-conference-empty
)))
(
unread-to-conf
))
(
kom-set-permitted-submitters
(
conf-to-set-permitted-submitters-q
)
(
new-permitted-submitters-q
(
default
.
(
lyskom-default-conference-empty
))))
...
...
@@ -1519,6 +1549,7 @@ name or (if the session name is in upper case already) surrounding it
with asterisks.
All other values are reserved for future use."
server
)
...
...
@@ -3573,9 +3604,12 @@ Users are encouraged to use their best sense of humor."
kom-review-next
kom-find-root
kom-review-by-to
kom-review-roots-by-to
kom-review-more
kom-review-first
kom-review-first-roots
kom-review-all
kom-review-all-roots
kom-view-commented-text
kom-view-previous-commented-text
kom-review-stack
...
...
@@ -3711,6 +3745,7 @@ Users are encouraged to use their best sense of humor."
kom-copy-options
kom-mark-unread
kom-unread-by-to
kom-unread-roots-by-to
kom-unread-last-normally-read
kom-unread-root-review
kom-unread-root
...
...
@@ -3720,7 +3755,9 @@ Users are encouraged to use their best sense of humor."
kom-unread-commented-text
kom-unread-more
kom-unread-all
kom-unread-all-roots
kom-unread-first
kom-unread-first-roots
kom-unread-all-marked-texts
kom-unread-marked-texts
kom-unread-faq
...
...
src/view-mode.el
View file @
8d3be2e6
...
...
@@ -47,7 +47,7 @@
(
cond
((
fboundp
'view-major-mode
)
(
view-major-mode
))
((
assq
'view-mode
minor-mode-alist
)
(
let*
((
keymap
(
copy-keymap
lyskom-view-mode-map
)))
(
make-variable
-buffer-local
'minor-mode-map-alist
)
(
make-
local-
variable
'minor-mode-map-alist
)
(
lyskom-set-keymap-parent
keymap
view-mode-map
)
(
setq
minor-mode-map-alist
(
cons
(
cons
'view-mode
keymap
)
minor-mode-map-alist
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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