Patchar för att kanske fungera i Gnu Emacs 20.3. Patchar för att få vissa...

Patchar för att kanske fungera i Gnu Emacs 20.3. Patchar för att få vissa andra variabler att fungera i XEmacs.

src/ChangeLog

+Tue Jun  2 11:49:27 1998  David Byers  <davby@ida.liu.se>
+
+	* Lade in -*-coding: raw-text;-*- i alla filer.
+
+	* lyskom-rest.el (silent-read): Tog bort sttning av
+	enable-multibyte-characters.
+
+	* buffers.el: Anvnd set-buffer-multibyte.
+
+	* defvar.el (kom-dont-read-saved-variables): Tog bort defvar av
+	enable-multibyte-characters 
+
+	* defvar.el (lyskom-setup-minibuffer-variables): Anvnd
+	set-buffer-multibyte.
+
+	* compatibility.el (set-buffer-multibyte): Ny
+	kompatibilitetsdefinition. 
+
+	* swedish-strings.el, english-strings.el (lyskom-message): ndrade 
+	p strngen old-passwd.
+
+Mon Jun  1 13:34:31 1998  David Byers  <davby@ida.liu.se>
+
+	* startup.el (lyskom): Anvnd lyskom-buffer-p fr att testa om man 
+	skall frga om bufferten skall teranvndas. Det gr att man
+	enbart fr frgan om bufferten finns och det finns en levande
+	uppkoppling i den.
+
+	* startup.el (lyskom): Skicka t i may-be-dead till lyskom-buffer-p 
+	s att en stngd lyskom-buffert teranvnds korrekt.
+	
+	* commands2.el (lyskom-buffer-p): Lade till optional argument
+	may-be-dead.
+
+Wed May 27 16:30:47 1998  David Byers  <davby@ida.liu.se>
+
+	* completing-read.el (lyskom-complete-string): Lade till nreverse
+	igen.
+	* vars.el.in (lyskom-ok-to-send-new-calls): Lade till
+	lyskom-ok-to-send-new-calls
+	* services.el (blocking-return): Tog bort
+ 	lyskom-ok-to-send-new-calls.
+	* vars.el.in (kom-mail-address): user-full-name r en funktion,
+	inte en variabel.
+
 Wed May  6 17:45:57 1998  Peter Liljenberg  <petli@lysator.liu.se>
 
 	* swedish-strings.el, english-strings.el, commands1.el:

src/ansaphone.el

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

src/aux-items.el

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

src/buffers.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -261,8 +262,7 @@ categories")
   (let ((buf (generate-new-buffer name)))
     (save-excursion
       (set-buffer buf)
-      (make-local-variable 'enable-multibyte-characters)
-      (setq enable-multibyte-characters nil))
+      (set-buffer-multibyte nil))
     buf))
 
 (defun lyskom-get-buffer-create (category name &optional unique)
@@ -293,8 +293,7 @@ The created buffer is made a child of the current buffer."
     (lyskom-update-inherited-variables buffer)
     (save-excursion (set-buffer buffer)
                     (setq lyskom-buffer-category category)
-                    (make-local-variable 'enable-multibyte-characters)
-                    (setq enable-multibyte-characters nil))
+                    (set-buffer-multibyte nil))
     buffer))
 
 

src/cache.el

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

src/check-strings.el

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

src/clienttypes.el

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

src/command.el

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

src/commands1.el

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

src/commands2.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -1519,16 +1520,18 @@ membership info."
       (bury-buffer))))
 
 
-(defun lyskom-buffer-p (buf)
+(defun lyskom-buffer-p (buf &optional may-be-dead)
   ;; Returns non-nil if BUF is an active LysKOM buffer
-  (if (and buf (bufferp buf) (buffer-name buf))
-      (save-excursion
-	(set-buffer buf)
-	(and (eq major-mode 'lyskom-mode)
-	     (boundp 'lyskom-proc)
-	     lyskom-proc
-	     (processp lyskom-proc)
-	     (memq (process-status lyskom-proc) '(run open))))))
+  (when (buffer-live-p buf)
+    (save-excursion
+      (set-buffer buf)
+      (and (eq major-mode 'lyskom-mode)
+           (boundp 'lyskom-proc)
+           lyskom-proc
+           (processp lyskom-proc)
+           (or (and may-be-dead
+                    (memq (process-status lyskom-proc) '(run open closed)))
+               (memq (process-status lyskom-proc) '(run open)))))))
 
 ;;;(defun lyskom-update-lyskom-buffer-list ()
 ;;;  (mapcar (function

src/compatibility.el

-;;;;; -*- emacs-lisp -*-
+;;;;; -*-coding: raw-text;-*-
+;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1996  Lysator Academic Computer Association.
 ;;;;;
@@ -265,6 +266,12 @@ string to search in."
 
 (lyskom-provide-function char-to-int (c) c)
 
+(defvar enable-multibyte-characters nil)
+(lyskom-provide-function set-buffer-multibyte (arg)
+  (put 'enable-multibyte-characters 'permanent-local t)
+  (make-local-variable 'enable-multibyte-characters)
+  (setq enable-multibyte-characters arg))
+
 ;;; ======================================================================
 ;;; Event stuff
 

src/completing-read.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -512,21 +513,21 @@ function work as a name-to-conf-stat translator."
                 (null x-list)))))
 
 
-;(defun lyskom-complete-show-data-list (state data)
-;  (save-excursion
-;    (pop-to-buffer (get-buffer-create "*kom*-complete"))
-;    (erase-buffer)
-;    (setq enable-multibyte-characters nil)
+; (defun lyskom-complete-show-data-list (state data)
+;   (save-excursion
+;     (pop-to-buffer (get-buffer-create "*kom*-complete"))
+;     (erase-buffer)
+;     (set-buffer-multibyte nil)
 ;    (while data
-;      (insert
-;       (format "%s\n" (substring (aref (car data) 2)
-;                                 (aref (car data) 0)
-;                                 (aref (car data) 1))))
-;      (setq data (cdr data)))
-;    (insert (format "%S %S: %S" (symbol-value current-state)
-;                    (elt state 0)
-;                    (elt state 1)))
-;    (sit-for 1)))
+;       (insert
+;        (format "%s\n" (substring (aref (car data) 2)
+;                                  (aref (car data) 0)
+;                                  (aref (car data) 1))))
+;       (setq data (cdr data)))
+;     (insert (format "%S %S: %S" (symbol-value current-state)
+;                     (elt state 0)
+;                     (elt state 1)))
+;     (sit-for 5)))
       
 
 (defun lyskom-complete-string (string-list)

src/copyright

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

src/deferred-insert.el

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

src/defvar.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -40,7 +41,6 @@
 (provide 'lyskom)
 
 ;; Just to get rid of a compiler warning
-(defvar enable-multibyte-characters)
 (defvar kom-dont-read-saved-variables)
 
 (defvar lyskom-local-variables nil
@@ -120,8 +120,7 @@ is saved before executing FORMS and restored when FORMS have finished."
       (set (car syms) (car vals))
       (setq syms (cdr syms)
             vals (cdr vals)))
-    (make-local-variable 'enable-multibyte-characters)
-    (setq enable-multibyte-characters nil)))
+    (set-buffer-multibyte nil)))
 
          
 

src/edit-text.el

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

src/elib-string.el

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

src/english-strings.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -326,8 +327,8 @@ and you have finished reading. Please come back later.
     (new-passwd-again . "Repeat the new password for confirmation: ")
     (what-mark-to-view . "Review which mark? ")
     (whos-passwd . "Change password for whom? (yourself) ")
-    (old-passwd . "Your old password: ")
-    (new-passwd . "Your new password: ")
+    (old-passwd . "Your current password: ")
+    (new-passwd . "The new password: ")
     (changing-passwd . "Changing password...")
     (retype-dont-match . "You didn't reenter the same passwrod. Try again.\n")
     (palindrome . "(a palindrome!) ")

src/envcheck.el

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

src/filter-edit.el

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