Further MULEification

src/ChangeLog

 1999-11-19  David Byers  <davby@ida.liu.se>
 
+	* utilities.el (lyskom-truncate-string-to-width): New function
+	copied from Gnu Emacs.
+
+	* Changed file coding of all files to iso-8859-1 since we now have
+	the ambition to deal with multibyte text.
+	
+	* lyskom-rest.el (lyskom-format-aux-help): Use
+	lyskom-truncate-string-to-width instead of substring.
+	(lyskom-format-aux-help): Use string-width instead of length.
+	(lyskom-format-aux-help): Same here.
+	(lyskom-fill-message-line-length): Use current-column instead of
+	point to calculate current line width.
+	(lyskom-is-loaded): Encode lyskom-line-start-chars-string in
+	ISO-8859-1 before using it.
+	(silent-read): Don't disable multibyte characters.
+
+	* defvar.el (lyskom-setup-minibuffer-variables): Don't disable
+	multibyte characters.
+
+	* buffers.el (lyskom-generate-new-buffer): Don't disable multibyte
+	characters.
+	(lyskom-get-buffer-create): Same here.
+
+	* mime.el (lyskom-mime-string-charset): Use find-charset-string.
+
+	* compatibility.el (check-coding-system): Provide dummy
+	check-coding-system.
+
+	* mime.el (lyskom-mime-charset-coding-system): Use
+	check-coding-system.
+
 	* startup.el (lyskom): Decode the motd text mass and format it as
 	a text.
 

src/TODO

@@ -3,6 +3,12 @@
 Att göra i elisp-klienten
 =========================
 
+Kolla alla användningar av length och substring för att se var man
+borde använda string-width och truncate-string-to-width istället.
+
+Kolla alla aset och aref så att de inte använder tecken som nyckel
+utan omkodning till iso-8859-1 först.
+
 MULEifiera hanteringen av user-arean.
 
 Kolla att spara text sparar med en vettig kodning.

src/ansaphone.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/aux-items.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/buffers.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -290,8 +290,7 @@ categories")
 (defun lyskom-generate-new-buffer (name)
   (let ((buf (generate-new-buffer name)))
     (save-excursion
-      (set-buffer buf)
-      (set-buffer-multibyte nil))
+      (set-buffer buf))
     buf))
 
 (defun lyskom-get-buffer-create (category name &optional unique)
@@ -321,8 +320,7 @@ The created buffer is made a child of the current buffer."
     (lyskom-set-buffer-parent buffer (current-buffer))
     (lyskom-update-inherited-variables buffer)
     (save-excursion (set-buffer buffer)
-                    (setq lyskom-buffer-category category)
-                    (set-buffer-multibyte nil))
+                    (setq lyskom-buffer-category category))
     buffer))
 
 

src/cache.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/check-strings.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1996  Lysator Academic Computer Association.

src/clienttypes.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/command.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/commands1.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/commands2.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/compatibility.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1996  Lysator Academic Computer Association.
@@ -285,6 +285,10 @@ string to search in."
 (lyskom-provide-function encode-coding-string (str coding-system) str)
 (lyskom-provide-function decode-coding-string (str coding-system) str)
 (lyskom-provide-function string-bytes (str) (length str))
+(lyskom-provide-function check-coding-system (name) nil)
+(lyskom-provide-function string-width (str) (length str))
+(lyskom-provide-function char-width (c) 1)
+(lyskom-provide-function find-charset-string (str) '(ascii))
 
 (lyskom-provide-function last (x &optional n)
   "Returns the last link in the list LIST.

src/completing-read.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/deferred-insert.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1996  Lysator Academic Computer Association.

src/defvar.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -119,8 +119,7 @@ is saved before executing FORMS and restored when FORMS have finished."
       (make-local-variable (car syms))
       (set (car syms) (car vals))
       (setq syms (cdr syms)
-            vals (cdr vals)))
-    (set-buffer-multibyte nil)))
+            vals (cdr vals)))))
 
          
 

src/edit-text.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/elib-string.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;; $Id$
 ;;;; This file contains some miscellaneous string functions
 

src/english-strings.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/envcheck.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.

src/feature.el

-;;;;; -*-coding: raw-text;-*-
+;;;;; -*-coding: iso-8859-1;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.