Mercurial > emacs

changeset 13272:7ee88c335076

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enable-flow-control): Use a char-table.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Oct 1995 16:57:54 +0000
parents 6a084ce822e0
children 335d844a2f05
files lisp/flow-ctrl.el
diffstat 1 files changed, 20 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/flow-ctrl.el	Sun Oct 22 16:56:46 1995 +0000
+++ b/lisp/flow-ctrl.el	Sun Oct 22 16:57:54 1995 +0000
@@ -48,6 +48,8 @@
 (defvar flow-control-c-q-replacement ?\036
   "Character that replaces C-q, when flow control handling is enabled.")
 
+(put 'keyboard-translate-table 'char-table-extra-slots 0)
+
 ;;;###autoload
 (defun enable-flow-control (&optional argument)
   "Toggle flow control handling.
@@ -64,27 +66,28 @@
 	(set-input-mode t nil (nth 2 (current-input-mode)))
 	(if keyboard-translate-table
 	    (progn
-	      (aset keyboard-translate-table flow-control-c-s-replacement
-		    flow-control-c-s-replacement)
-	      (aset keyboard-translate-table ?\^s ?\^s)
-	      (aset keyboard-translate-table flow-control-c-q-replacement
-		    flow-control-c-q-replacement)
-	      (aset keyboard-translate-table ?\^q ?\^q))))
+	      (aset keyboard-translate-table flow-control-c-s-replacement nil)
+	      (aset keyboard-translate-table ?\^s nil)
+	      (aset keyboard-translate-table flow-control-c-q-replacement nil)
+	      (aset keyboard-translate-table ?\^q nil))))
     ;; Turn flow control on.
     ;; Tell emacs to pass C-s and C-q to OS.
     (set-input-mode nil t (nth 2 (current-input-mode)))
     ;; Initialize translate table, saving previous mappings, if any.
-    (let ((the-table (make-string (max 128 (length keyboard-translate-table))
-				  0)))
-      (let ((i 0)
-	    (j (length keyboard-translate-table)))
-	(while (< i j)
-	  (aset the-table i (elt keyboard-translate-table i))
-	  (setq i (1+ i)))
-	(while (< i 128)
-	  (aset the-table i i)
-	  (setq i (1+ i))))
-      (setq keyboard-translate-table the-table))
+    (cond ((null keyboard-translate-table)
+	   (setq keyboard-translate-table
+		 (make-char-table 'keyboard-translate-table nil)))
+	  ((char-table-p keyboard-translate-table)
+	   (setq keyboard-translate-table
+		 (copy-sequence keyboard-translate-table)))
+	  (t
+	   (let ((the-table (make-char-table 'keyboard-translate-table nil)))
+	     (let ((i 0)
+		   (j (length keyboard-translate-table)))
+	       (while (< i j)
+		 (aset the-table i (elt keyboard-translate-table i))
+		 (setq i (1+ i))))
+	     (setq keyboard-translate-table the-table))))
     ;; Swap C-s and C-\
     (aset keyboard-translate-table flow-control-c-s-replacement ?\^s)
     (aset keyboard-translate-table ?\^s flow-control-c-s-replacement)