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
c22b1cc2
Commit
c22b1cc2
authored
Sep 21, 1993
by
Linus Tolke
Browse files
Olästa on mode-line. Incorrect keymap for emacs19 fixed.
parent
f12a1522
Changes
6
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
c22b1cc2
No preview for this file type
src/commands1.el
View file @
c22b1cc2
...
...
@@ -930,6 +930,8 @@ If optional argument is non-nil then dont ask for confirmation."
(
lyskom-ja-or-nej-p
(
lyskom-get-string
'really-quit
))
)
(
initiate-logout
'main
nil
)
(
setq
lyskom-sessions-with-unread
(
delq
lyskom-proc
lyskom-sessions-with-unread
))
(
set-process-sentinel
lyskom-proc
nil
)
(
delete-process
lyskom-proc
)
(
setq
lyskom-proc
)
...
...
src/commands2.el
View file @
c22b1cc2
...
...
@@ -593,6 +593,9 @@ lyskom-prefetch-all-confs."
(
t
nil
))
'lyskom-list-news
))
(
defvar
lyskom-special-conf-name
"\\`Inl.gg .t mig\\'"
"Regexp to match conf names that are special."
)
(
defun
lyskom-list-news
(
num-arg
)
"Print the number of unread articles to the user."
(
interactive
)
...
...
@@ -607,9 +610,17 @@ lyskom-prefetch-all-confs."
(
if
(
or
(
not
num-arg
)
(
>=
(
--
num-arg
)
0
))
(
lyskom-insert
(
if
(
/=
un
1
)
(
lyskom-format
'you-have-unreads
un
name
)
(
lyskom-format
'you-have-an-unread
name
))))
(
if
(
and
(
boundp
'lyskom-special-conf-name
)
(
stringp
lyskom-special-conf-name
)
(
string-match
lyskom-special-conf-name
(
conf-stat->name
(
read-info->conf-stat
info
))))
(
if
(
/=
un
1
)
(
lyskom-format
'you-have-unreads-special
un
name
)
(
lyskom-format
'you-have-an-unread-special
name
))
(
if
(
/=
un
1
)
(
lyskom-format
'you-have-unreads
un
name
)
(
lyskom-format
'you-have-an-unread
name
)))))
(
setq
sum
(
+
sum
un
)))))))
(
read-list->all-entries
lyskom-to-do-list
))
(
if
(
=
0
sum
)
...
...
src/lyskom-rest.el
View file @
c22b1cc2
No preview for this file type
src/swedish-strings.el
View file @
c22b1cc2
...
...
@@ -408,6 +408,8 @@ Ditt allm\344nna meddelande l\366d:
(you-have-unreads . "
Du
har
%#1d
ol\344sta
inl\344gg
i
%#2s\n
")
(you-have-an-unread . "
Du
har
1
ol\344st
inl\344gg
i
%#1s\n
")
(you-have-unreads-special . "
Du
har
%#1d
okommenterade
inl\344gg
i
%#2s\n
")
(you-have-an-unread-special . "
Du
har
1
okommenterat
inl\344gg
i
%#1s\n
")
(you-have-read-everything . "
Du
har
sett
alla
nyheter\n
")
(total-unreads . "
\nDu
har
%#1d
ol\344sta
inl\344gg.\n
")
(total-unread . "
\nDu
har
1
ol\344st
inl\344gg.\n
")
...
...
@@ -626,6 +628,8 @@ Personligt meddelande fr\345n %#1s (%#3s):
; From lyskom-rest.el:
(mode-line-unread "
Ol\344sta
")
(error-code . "
Felkod
%#2d:
%#1s.\n
")
(extended-command . "
LysKOM:
")
(wait-for-server . "
LysKOM
v\344ntar
p\345
svar
fr\345n
servern.
V\344nta
tills
du
f\345r
en
prompt.\n
")
...
...
@@ -827,10 +831,10 @@ Cf. paragraph-start.")
;; emacs 19
(if (string-match "
^19
" emacs-version)
(progn
(define-key lyskom-mode-map [\344] 'lyskom-change-prefix)
(define-key lyskom-mode-map [\304] 'lyskom-change-prefix)
(define-key lyskom-mode-map [\345] 'lyskom-review-prefix)
(define-key lyskom-mode-map [\30
4
] 'lyskom-review-prefix)
(define-key lyskom-mode-map [
?
\344] 'lyskom-change-prefix)
(define-key lyskom-mode-map [
?
\304] 'lyskom-change-prefix)
(define-key lyskom-mode-map [
?
\345] 'lyskom-review-prefix)
(define-key lyskom-mode-map [
?
\30
5
] 'lyskom-review-prefix)
(define-key lyskom-mode-map [?l ?\344] 'kom-list-summary)
(define-key lyskom-mode-map [?l ?\304] 'kom-list-summary)
...
...
src/vars.el
View file @
c22b1cc2
...
...
@@ -229,7 +229,7 @@ Dont change these. These are defined by the protocol.")
;;; Internal variables and constants
(
defconst
lyskom-clientversion
"0.3
7
"
(
defconst
lyskom-clientversion
"0.3
8
"
"Version of the LysKOM elisp client."
)
(
defconst
lyskom-max-int
8388607
...
...
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