# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 784928496 0
# Node ID 4a06fd6dcbff791f1443b2513372f0646aa085fb
# Parent  686916b836b4b1da9674b9fe5d9476d9a1158085
(isearch-other-meta-char): Delete debugging code.
(isearch-char-to-string): Simplify--assume character is an integer.

diff -r 686916b836b4 -r 4a06fd6dcbff lisp/isearch.el
--- a/lisp/isearch.el	Tue Nov 15 17:05:44 1994 +0000
+++ b/lisp/isearch.el	Tue Nov 15 19:41:36 1994 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1994/11/15 16:53:29 $|$Revision: 1.76 $
+;; |$Date: 1994/11/15 16:56:44 $|$Revision: 1.77 $
 
 ;; This file is part of GNU Emacs.
 
@@ -480,8 +480,7 @@
 	isearch-yank-flag nil
 	isearch-invalid-regexp nil
 	isearch-within-brackets nil
-	;; Use (baud-rate) for now, for sake of other versions.
-	isearch-slow-terminal-mode (and (<= (baud-rate) search-slow-speed)
+	isearch-slow-terminal-mode (and (<= baud-rate search-slow-speed)
 					(> (window-height)
 					   (* 4 search-slow-window-lines)))
 	isearch-other-end nil
@@ -1026,8 +1025,7 @@
 		;; Convert the event back into its raw form,
 		;; with the dummy prefix implicit in the mouse event,
 		;; so it will get split up once again.
-		(progn (setq foo key)
-		       (setq unread-command-events
+		(progn (setq unread-command-events
 			     (cdr unread-command-events))
 		       (setq main-event (car unread-command-events))
 		       (setcar (cdr (event-start main-event))
@@ -1392,11 +1390,7 @@
 (defvar last-command-event)
 
 (defun isearch-char-to-string (c)
-  (if (integerp c)
-      (make-string 1 c)
-    (if (and (symbolp c) (get c 'ascii-character))
-	(make-string 1 (get c 'ascii-character))
-      (make-string 1 (event-to-character c)))))
+  (make-string 1 c))
 
 (defun isearch-text-char-description (c)
   (if (and (integerp c) (or (< c ?\ ) (= c ?\^?)))