Commit 0843a29d authored by David Byers's avatar David Byers

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.
parent 7b740737
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:
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-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))
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-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
......
;;;;; -*- 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
......
;;;;; -*-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)
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996 Lysator Academic Computer Association.
......
;;;;; -*-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)))
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;; $Id$
;;;; This file contains some miscellaneous string functions
......
;;;;; -*-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!) ")
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1994, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-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)
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;; Included from fields.el
;; (provide 'fields)
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-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
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996 Lysator Academic Computer Association.
......
;;;;; -*-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)
......
;;;;; -*-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")
......
;;;;; -*- emacs-lisp -*-
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996 Lysator Academic Computer Association.
;;;;;
......
;;;;; -*-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))
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1991, 1996 Lysator Academic Computer Association.
......
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; $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