Commit eb4af24f authored by David Byers's avatar David Byers
Browse files

Fixed problem saving language settings.

Detailed changes:
> 2003-07-30  David Byers  <byers@lysator.liu.se>
>
> 	* lyskom-rest.el (lyskom-get-holerith-list): Return list in
> 	original order.
> 	(lyskom-split-user-area): Don't reverse the list here.
>
> 	* flags.el (lyskom-flag-write-symbol-list): Fixed stupid bug.
>
parent 2bebbbde
2003-07-30 David Byers <byers@lysator.liu.se>
* lyskom-rest.el (lyskom-get-holerith-list): Return list in
original order.
(lyskom-split-user-area): Don't reverse the list here.
* flags.el (lyskom-flag-write-symbol-list): Fixed stupid bug.
2003-07-28 David Byers <byers@lysator.liu.se>
Better support for message-flag and no-of unread when joining:
......
......@@ -461,7 +461,8 @@ elisp variable VAR."
(defun lyskom-flag-write-symbol-list (val)
(cond ((symbolp val)
(lyskom-format-objects (symbol-name val)))
(t (mapcar (lambda (x) (lyskom-format-objects (symbol-name x))) val))))
(t (mapconcat (lambda (x) (lyskom-format-objects (symbol-name x)))
val " "))))
(defun lyskom-flag-read-symbol-list (str)
(mapcar 'intern (lyskom-get-holerith-list str)))
......
......@@ -2221,7 +2221,7 @@ in lyskom-messages."
(setq tmp (lyskom-get-holerith text no-coding))
(setq result (cons (car tmp) result)
text (cdr tmp)))
result))
(nreverse result)))
(defun lyskom-get-holerith-assoc (text &optional no-coding)
"Assume that TEXT is a list of holerith strings. Return those strings."
......@@ -2237,9 +2237,9 @@ in lyskom-messages."
(defun lyskom-split-user-area (text)
"Return the user area split into components."
(let ((tmp (lyskom-get-holerith text t)))
(nreverse (mapcar2 'cons
(lyskom-get-holerith-list (car tmp) t)
(lyskom-get-holerith-list (cdr tmp) t)))))
(mapcar2 'cons
(lyskom-get-holerith-list (car tmp) t)
(lyskom-get-holerith-list (cdr tmp) t)))))
(defun lyskom-format-x-kom/user-area-data (data)
(let* ((values (lyskom-get-holerith-assoc data t))
......
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