Commit c22b1cc2 authored by Linus Tolke Y's avatar Linus Tolke Y

Olästa on mode-line. Incorrect keymap for emacs19 fixed.

parent f12a1522
No preview for this file type
......@@ -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)
......
......@@ -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)
......
No preview for this file type
......@@ -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 [\304] '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 [?\305] 'lyskom-review-prefix)
(define-key lyskom-mode-map [?l ?\344] 'kom-list-summary)
(define-key lyskom-mode-map [?l ?\304] 'kom-list-summary)
......
......@@ -229,7 +229,7 @@ Dont change these. These are defined by the protocol.")
;;; Internal variables and constants
(defconst lyskom-clientversion "0.37"
(defconst lyskom-clientversion "0.38"
"Version of the LysKOM elisp client.")
(defconst lyskom-max-int 8388607
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment