(isearch-other-meta-char): Delete debugging code.

(isearch-char-to-string): Simplify--assume character is an integer.

1 files changed, 4 insertions, 10 deletions

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 51921e5e712..e31abb94655 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -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 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
         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 @@ and the meta character is unread so that it applies to editing the string."
                 ;; 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 @@ since they have special meaning in a regexp."
 (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 ?\^?)))