changeset 9935:a36d24b4b365

(isearch-gnu-emacs-events): Variable deleted. (isearch-update): Always test unread-command-events. (isearch-event-data-type): Variable deleted. (isearch-pre-command-hook-exists): Variable deleted. (isearch-last-command-char): Only use last-command-char.

--- a/lisp/isearch.el	Tue Nov 15 16:53:29 1994 +0000
+++ b/lisp/isearch.el	Tue Nov 15 16:56:44 1994 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <[e-mail]>
 
-;; |$Date: 1994/11/01 04:20:43 $|$Revision: 1.75 $
+;; |$Date: 1994/11/15 16:53:29 $|$Revision: 1.76 $
 
 ;; This file is part of GNU Emacs.
 
@@ -104,18 +104,8 @@
 ;;; Code:
 
 
-;;;=========================================================================
-;;; Emacs features
-
-;; isearch-mode takes advantage of the features provided by several
-;; different versions of emacs.  Rather than testing the version of
-;; emacs, several constants are defined, one for each of the features.
-;; Each of the tests below must work on any version of emacs.
-;; (Perhaps provide and featurep could be used for this purpose.)
-
-(defconst isearch-gnu-emacs-events (fboundp 'set-frame-height)) ;; emacs 19
-(defconst isearch-pre-command-hook-exists (boundp 'pre-command-hook)) ;; lemacs
-(defconst isearch-event-data-type nil)  ;; lemacs
+;;;========================================================================
+;;; Some additional options and constants.
 
 (defconst search-exit-option t
   "*Non-nil means random control characters terminate incremental search.")
@@ -131,9 +121,6 @@
 This is the style where a one-line window is created to show the line
 that the search has reached.")
 
-;;;========================================================================
-;;; Some additional options and constants.
-
 (defvar search-upper-case 'not-yanks
   "*If non-nil, upper case chars disable case fold searching.
 That is, upper and lower case chars must match exactly.
@@ -290,9 +277,8 @@
 
       (define-key map "\M-\t" 'isearch-complete)
 
-      ;; For emacs 19, switching frames should terminate isearch-mode
-      (if isearch-gnu-emacs-events
-	  (define-key map [switch-frame] 'isearch-switch-frame-handler))
+      ;; Switching frames should terminate isearch-mode
+      (define-key map [switch-frame] 'isearch-switch-frame-handler)
       
       (setq isearch-mode-map map)
       ))
@@ -507,10 +493,6 @@
   (setq isearch-window-configuration
 	(if isearch-slow-terminal-mode (current-window-configuration) nil))
 
-;; This was for Lucid Emacs.  But now that we have pre-command-hook,
-;; it causes trouble.
-;;  (if isearch-pre-command-hook-exists
-;;      (add-hook 'pre-command-hook 'isearch-pre-command-hook))
   (setq	isearch-mode " Isearch")  ;; forward? regexp?
   (set-buffer-modified-p (buffer-modified-p)) ; update modeline
 
@@ -535,11 +517,7 @@
 
 (defun isearch-update ()
   ;; Called after each command to update the display.  
-  (if (if isearch-event-data-type
-	  (null unread-command-event)
-	(if isearch-gnu-emacs-events
-	    (null unread-command-events)
-	  (< unread-command-char 0)))
+  (if (null unread-command-events)
       (progn
 	(if (not (input-pending-p))
 	    (isearch-message))
@@ -1432,8 +1410,6 @@
 
 (defun isearch-last-command-char ()
   ;; General function to return the last command character.
-  (if isearch-event-data-type
-      last-command-event
-    last-command-char))
+  last-command-char)
 
 ;;; isearch.el ends here