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

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
;;;;; -*-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