Commit 11a4722b authored by David Byers's avatar David Byers
Browse files

Further MULEification

parent 53dd2a58
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.
......
......@@ -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.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-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))
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-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.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996 Lysator Academic Computer Association.
......
;;;;; -*-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)))))
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;; $Id$
;;;; This file contains some miscellaneous string functions
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
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