From d65cbf0fc770d31c012ecfbb3461751914482598 Mon Sep 17 00:00:00 2001
From: Ulrik Haugen <qha@lysator.liu.se>
Date: Mon, 1 Jan 2001 22:48:29 +0000
Subject: [PATCH] Made "<delete>" scroll up as well as the other delete-keys.

---
 src/ChangeLog          | 12 ++++++++++--
 src/english-strings.el |  1 +
 src/swedish-strings.el |  1 +
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index f2585588..0a442fa3 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2000-12-31  Ulrik Haugen  <qha@lysator.liu.se>
+
+	* swedish-strings.el (lyskom-sv-mode-map): Made "<delete>" scroll
+	up as well as the other delete-keys.
+
+	* english-strings.el (lyskom-en-mode-map): Ditto.
+
 2000-12-22  David Byers  <davby@ida.liu.se>
 
 	* lyskom-rest.el (kom-page-next-command): Added (temporary)
@@ -17,7 +24,7 @@
 
 2000-12-29  Ulrik Haugen  <qha@lysator.liu.se>
 
-	* lyskom-rest.el (j-or-n-p lyskom-j-or-n-p): Rmoved the parameter
+	* lyskom-rest.el (j-or-n-p lyskom-j-or-n-p): Removed the parameter
 	quittable and rewrote the functions as if it were always
 	t. Callers changed (in aux-items.el, commands1.el, commands2.el,
 	edit-text.el, filter-edit.el and startup.el).
@@ -26,7 +33,7 @@
 
 	* utilities.el: applied patch from Per Starbäck, device-class
 	isn't defined if it doesn't exist, lyskom-device-class is. Caller
-	changed. (Se text 5867166 in LysLysKOM.)
+	changed. (See text 5867166 in LysLysKOM.)
 
 2000-12-12  David Byers  <davby@sen5.ida.liu.se>
 
@@ -3730,4 +3737,5 @@ Sun Oct 12 00:39:47 1997  David Byers  <davby@litefix.ida.liu.se>
 
 Local Variables:
 outline-regexp:"M\\|T\\|W\\|F\\|S\\|\t\\\*"
+eval: (ispell-change-dictionary "british")
 End:
diff --git a/src/english-strings.el b/src/english-strings.el
index eb365b3d..6d24187a 100644
--- a/src/english-strings.el
+++ b/src/english-strings.el
@@ -2038,6 +2038,7 @@ You must become an active member of the conference to enter it.\n")
 
   (define-key lyskom-en-mode-map (kbd "C-?") 'scroll-down)
   (define-key lyskom-en-mode-map (kbd "<DEL>") 'scroll-down)
+  (define-key lyskom-en-mode-map (kbd "<delete>") 'scroll-down)
   (define-key lyskom-en-mode-map (kbd "<BS>") 'scroll-down)
   )
 
diff --git a/src/swedish-strings.el b/src/swedish-strings.el
index 65df14ce..221e721c 100644
--- a/src/swedish-strings.el
+++ b/src/swedish-strings.el
@@ -2082,6 +2082,7 @@ Du m
 
   (define-key lyskom-sv-mode-map (kbd "C-?") 'scroll-down)
   (define-key lyskom-sv-mode-map (kbd "<DEL>") 'scroll-down)
+  (define-key lyskom-sv-mode-map (kbd "<delete>") 'scroll-down)
   (define-key lyskom-sv-mode-map (kbd "<BS>") 'scroll-down)
 )
 
-- 
GitLab