Mercurial > emacs
changeset 9940:4a06fd6dcbff
(isearch-other-meta-char): Delete debugging code.
(isearch-char-to-string): Simplify--assume character is an integer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Nov 1994 19:41:36 +0000 |
| parents | 686916b836b4 |
| children | 6d82f17895cf |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 4 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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 ?\^?)))