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.

src/filter.el

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

src/flags.el

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

src/internal.el

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

src/komtypes.el

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

src/language.el

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

src/lyskom-buttons.el

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

src/lyskom-rest.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -2948,8 +2949,7 @@ One parameter - the prompt string."
   (lyskom-message "%s" prompt-str)
   (let ((input-string "")
 	(input-char)
-	(cursor-in-echo-area t)
-        (enable-multibyte-characters nil))
+	(cursor-in-echo-area t))
     (while (not (or (eq (setq input-char 
 			      (condition-case err
 				  (read-char)

src/macros.el

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

src/menus.el

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

src/messages.el

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

src/option-edit.el

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

src/parse.el

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

src/perf.el

+;;;;; -*-coding: raw-text;-*-
 ;; Included from fields.el
 
 ;; (provide 'fields)

src/prefetch.el

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

src/prioritize.el

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

src/reading.el

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

src/remote-control.el

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

src/review.el

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

src/services.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -1119,17 +1120,6 @@ Args: KOM-QUEUE HANDLER SESSION-NO &rest DATA"
 (defvar lyskom-blocking-return nil
   "Return from blocking-do.")
 
-;; This variable is used to prevent "starvation" of the blocking-do call.
-;; When there are heavy prefetch going on in the background and a
-;; blocking-do call is made there is a good chance that the
-;; accept-process-output call will not return within a reasonable
-;; time, because there will always be data to read from the server,
-;; which means that Emacs will call lyskom-filter instead of returning
-;; from accept-process-output.
-(defvar lyskom-ok-to-send-new-calls t
-  "This variable controls whether calls are passed to the server.
-If it is nil, all outgoing calls are inhibited.")
-
 (defun blocking-return (retval)
   "Sets blocking variable."
   (setq lyskom-blocking-return retval

src/slow.el

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

src/startup.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -91,7 +92,7 @@ See lyskom-mode for details."
     (let* ((duplicate-buffers
             (delq nil
                   (mapcar (lambda (buffer)
-                            (and (lyskom-buffer-p buffer)
+                            (and (lyskom-buffer-p buffer t)
                                  (buffer-name buffer)
                                  (string-match (regexp-quote host)
                                                (buffer-name buffer))
@@ -107,7 +108,7 @@ See lyskom-mode for details."
            (reused-buffer nil))
       
 
-      (if (and duplicate-buffers
+      (if (and (lyskom-buffer-p buffer nil)
 	       (not (prog1
 			(j-or-n-p (lyskom-get-string
 				   'start-new-session-same-server)

src/swedish-strings.el

+;;;;; -*-coding: raw-text;-*-
 ;;;;;
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -311,7 +312,7 @@ du har l
     (new-passwd-again . "Mata in det nya lsenordet igen fr kontroll: ")
     (what-mark-to-view . "Vilken markering vill du terse? ")
     (whos-passwd . "Vem vill du ndra lsenord fr? (dig sjlv) ")
-    (old-passwd . "Mata in ditt lsenord: ")
+    (old-passwd . "Mata in ditt nuvarande lsenord: ")
     (new-passwd . "Mata in det nya lsenordet: ")
     (changing-passwd . "ndrar lsenordet...")
     (retype-dont-match . "Lsenorden r inte samma. Gr om.\n")

src/utilities.el

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

src/vars.el.in

+;;;;; -*-coding: raw-text;-*-
 ;;;;; -*- emacs-lisp -*-
 ;;;;; $Id$
 ;;;;; Copyright (C) 1991, 1996  Lysator Academic Computer Association.
@@ -933,7 +934,7 @@ ordinary LysKOM texts."
   server)
 
 (def-kom-var kom-mail-address
-  (concat user-full-name " <" user-mail-address ">")
+  (concat (user-full-name) " <" user-mail-address ">")
   "*Email address to use in From:-header."
   server)
 
@@ -1358,6 +1359,17 @@ This variable is not saved in the LysKOM server.")
   "Number of pending calls that are transmitted to the server."
   local)
 
+;; This variable is used to prevent "starvation" of the blocking-do call.
+;; When there are heavy prefetch going on in the background and a
+;; blocking-do call is made there is a good chance that the
+;; accept-process-output call will not return within a reasonable
+;; time, because there will always be data to read from the server,
+;; which means that Emacs will call lyskom-filter instead of returning
+;; from accept-process-output.
+(defvar lyskom-ok-to-send-new-calls t
+  "This variable controls whether calls are passed to the server.
+If it is nil, all outgoing calls are inhibited.")
+
 (def-kom-var lyskom-ref-no 0
   "Next ref-no to use. These ref-nos are used to keep track of the
 different packets.")
@@ -1994,12 +2006,6 @@ to be bold with yellow text on a red background."
 (defvar lyskom-language-history nil)
 
 
-;;; ============================================================
-;;; MULE workaround
-
-(put 'enable-multibyte-characters 'permanent-local t)
-
-
 
 (eval-and-compile (provide 'lyskom-vars))
 

src/view-mode.el

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

src/view-text.el

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