Commit b826d41d authored by David Kågedal's avatar David Kågedal
Browse files

* review.el (kom-review-last-normally-read): Bytte reverse mot

nreverse.

* vars.el.in (kom-bury-buffers): Ny variabel
(lyskom-elisp-variables): La till den.

* startup.el (lyskom-clear-vars): Gjorde
lyskom-normally-read-texts lokal. Lägg till lysikom-buffer till
lyskom-buffer-list.
parent 34857c9c
......@@ -889,7 +889,7 @@ text is shown and a REVIEW list is built to shown the other ones."
(lyskom-read-number (lyskom-get-string 'read-normally-read) 1)))
(lyskom-start-of-command 'kom-review-last-normally-read)
(lyskom-tell-internat 'kom-tell-review)
(let* ((text-nos (reverse (nfirst no lyskom-normally-read-texts))))
(let* ((text-nos (nreverse (nfirst no lyskom-normally-read-texts))))
(if text-nos
(progn
(lyskom-format-insert 'review-text-no (car text-nos))
......
......@@ -140,6 +140,7 @@ See lyskom-mode for details."
(setq lyskom-executing-command nil)
;; Log in
(kom-start-anew t)
(setq lyskom-buffer-list (cons lyskom-buffer lyskom-buffer-list))
(setq init-done t))
;; Something went wrong. Lets cleanup everything. :->
(if init-done
......@@ -599,6 +600,7 @@ to see, set of call."
(make-local-variable 'lyskom-membership)
(make-local-variable 'lyskom-membership-is-read)
(make-local-variable 'lyskom-no-prompt)
(make-local-variable 'lyskom-normally-read-texts)
(make-local-variable 'lyskom-number-of-pending-calls)
(make-local-variable 'lyskom-options-done)
(make-local-variable 'lyskom-other-clients-user-areas)
......
......@@ -56,6 +56,14 @@ This variable is not saved in the LysKOM server.")
;;; User flags
(defvar kom-bury-buffers t
"*Controls the behaviour of kom-next-kom and its cousins.
If this variable is non-nil the current buffer is sent to the back
of the buffer list when one of the commands `kom-next-kom',
`kom-previous-kom' or `kom-next-unread-kom' is invoked.
This variable is stored in the LysKOM server.")
(defvar kom-write-texts-in-window nil
"*Nil means edit texts in the same window that is used for reading texts.
'other means edit in another window. Creating that window if necessary.
......@@ -595,7 +603,8 @@ This variable is not saved in the LysKOM server.")
(defconst lyskom-elisp-variables
'(kom-ding-on-personal-messages
'(kom-bury-buffers
kom-ding-on-personal-messages
kom-ding-on-group-messages
kom-ding-on-common-messages
kom-ding-on-priority-break
......
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