lrs@esl.esl.com (Lynn Slater) (09/21/88)
Steve Adamczyk (uunet!edg1!jsa) writes: > Is there any way of getting the I-search mode to exit on the ESC [ > sequence? Alternatively, can one change the termination character > for I-search to something else? Below is a fix I have used for some time. Load it in your .emacs file. Enjoy -- Lynn =============================================================== Lynn Slater ESL/TRW 495 Java Drive, Box 3510, Sunnyvale, Ca 94088-3510 (408) 738-2888 x 4482 lrs@esl.COM =============================================================== -*- Cut Here -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; search.el --- version of search that allows sun softkeys to abort searches. ;; Author : Lynn Slater ;; Created On : Wed Dec 2 15:16:13 1987 ;; Last Modified By: Lynn Slater ;; Last Modified On: Mon Aug 22 07:18:08 1988 ;; Update Count : 4 ;; Status : OK to use ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar search-prefix-exit-chars '(27 ; esc 24 ; control-x 3 ; control-c ) "A list of characters which will abort a search (along with normal aborts). This should probably be the first characters of the various command prefixes found in your system.") (defun isearch (forward &optional regexp) "This is a modified version of the distributed isearch, release 18.51 Escapes are treated same control characters, but this means that the value of search-exit-char will have to be changed in most installations. Also, the switch to non-incrimental search is no longer available (but can be reenabled). Look for ';; lrs' to see the changes. Long live the FSF! Lynn Slater, TRW/ESL, Sunnyvale, Ca." (let ((search-string "") (search-message "") (cmds nil) (success t) (wrapped nil) (barrier (point)) adjusted (invalid-regexp nil) (slow-terminal-mode (and (<= (baud-rate) search-slow-speed) (> (window-height) (* 4 search-slow-window-lines)))) (other-end nil) ;Start of last match if fwd, end if backwd. (small-window nil) ;if t, using a small window (found-point nil) ;to restore point from a small window ;; This is the window-start value found by the search. (found-start nil) (opoint (point)) (inhibit-quit t)) ;Prevent ^G from quitting immediately. (isearch-push-state) (save-window-excursion (catch 'search-done (while t (or (>= unread-command-char 0) (progn (or (input-pending-p) (isearch-message)) (if (and slow-terminal-mode (not (or small-window (pos-visible-in-window-p)))) (progn (setq small-window t) (setq found-point (point)) (move-to-window-line 0) (let ((window-min-height 1)) (split-window nil (if (< search-slow-window-lines 0) (1+ (- search-slow-window-lines)) (- (window-height) (1+ search-slow-window-lines))))) (if (< search-slow-window-lines 0) (progn (vertical-motion (- 1 search-slow-window-lines)) (set-window-start (next-window) (point)) (set-window-hscroll (next-window) (window-hscroll)) (set-window-hscroll (selected-window) 0)) (other-window 1)) (goto-char found-point))))) (let ((char (if quit-flag ?\C-g (read-char)))) (setq quit-flag nil adjusted nil) ;; Meta character means exit search. (cond ((and (or (>= char 128) (memq char search-prefix-exit-chars)) ;; lrs search-exit-option) (setq unread-command-char char) (throw 'search-done t)) ((eq char search-exit-char) ;; Esc means exit search normally. ;; Except, if first thing typed, it means do nonincremental ;;(if (= 0 (length search-string)) ;; lrs ;; (nonincremental-search forward regexp)) ;; lrs (throw 'search-done t)) ((= char ?\C-g) ;; ^G means the user tried to quit. (ding) (discard-input) (if success ;; If search is successful, move back to starting point ;; and really do quit. (progn (goto-char opoint) (signal 'quit nil)) ;; If search is failing, rub out until it is once more ;; successful. (while (not success) (isearch-pop)))) ((or (eq char search-repeat-char) (eq char search-reverse-char)) (if (eq forward (eq char search-repeat-char)) ;; C-s in forward or C-r in reverse. (if (equal search-string "") ;; If search string is empty, use last one. (setq search-string (if regexp search-last-regexp search-last-string) search-message (mapconcat 'text-char-description search-string "")) ;; If already have what to search for, repeat it. (or success (progn (goto-char (if forward (point-min) (point-max))) (setq wrapped t)))) ;; C-s in reverse or C-r in forward, change direction. (setq forward (not forward))) (setq barrier (point)) ; For subsequent \| if regexp. (setq success t) (or (equal search-string "") (isearch-search)) (isearch-push-state)) ((= char search-delete-char) ;; Rubout means discard last input item and move point ;; back. If buffer is empty, just beep. (if (null (cdr cmds)) (ding) (isearch-pop))) (t (cond ((or (eq char search-yank-word-char) (eq char search-yank-line-char)) ;; ^W means gobble next word from buffer. ;; ^Y means gobble rest of line from buffer. (let ((word (save-excursion (and (not forward) other-end (goto-char other-end)) (buffer-substring (point) (save-excursion (if (eq char search-yank-line-char) (end-of-line) (forward-word 1)) (point)))))) (setq search-string (concat search-string word) search-message (concat search-message (mapconcat 'text-char-description word ""))))) ;; Any other control char => ;; unread it and exit the search normally. ((and search-exit-option (/= char search-quote-char) (or (= char ?\177) (and (< char ? ) (/= char ?\t) (/= char ?\r)))) (setq unread-command-char char) (throw 'search-done t)) (t ;; Any other character => add it to the ;; search string and search. (cond ((= char search-quote-char) (setq char (read-quoted-char (isearch-message t)))) ((= char ?\r) ;; unix braindeath (setq char ?\n))) (setq search-string (concat search-string (char-to-string char)) search-message (concat search-message (text-char-description char))))) (if (and (not success) ;; unsuccessful regexp search may become ;; successful by addition of characters which ;; make search-string valid (not regexp)) nil ;; If a regexp search may have been made more ;; liberal, retreat the search start. ;; Go back to place last successful search started ;; or to the last ^S/^R (barrier), whichever is nearer. (and regexp success cmds (cond ((memq char '(?* ??)) (setq adjusted t) (let ((cs (nth (if forward 5 ; other-end 2) ; saved (point) (car (cdr cmds))))) ;; (car cmds) is after last search; ;; (car (cdr cmds)) is from before it. (setq cs (or cs barrier)) (goto-char (if forward (max cs barrier) (min cs barrier))))) ((eq char ?\|) (setq adjusted t) (goto-char barrier)))) ;; In reverse regexp search, adding a character at ;; the end may cause zero or many more chars to be ;; matched, in the string following point. ;; Allow all those possibiities without moving point as ;; long as the match does not extend past search origin. (if (and regexp (not forward) (not adjusted) (condition-case () (looking-at search-string) (error nil)) (<= (match-end 0) (min opoint barrier))) (setq success t invalid-regexp nil other-end (match-end 0)) ;; Not regexp, not reverse, or no match at point. (if (and other-end (not adjusted)) (goto-char (if forward other-end (min opoint barrier (1+ other-end))))) (isearch-search))) (isearch-push-state)))))) (setq found-start (window-start (selected-window))) (setq found-point (point))) (if (> (length search-string) 0) (if regexp (setq search-last-regexp search-string) (setq search-last-string search-string))) ;; If there was movement, mark the starting position. ;; Maybe should test difference between and set mark iff > threshold. (if (/= (point) opoint) (push-mark opoint) (message "")) (if small-window (goto-char found-point) ;; Exiting the save-window-excursion clobbers this; restore it. (set-window-start (selected-window) found-start t)))) ;; I really do not like esc-esc messing me up when I forget that I am not ;; still in a search (defun eat-double-stroke () "Replaces the command input with the last character typed Is useful to prevent function keys typed in a search from being misinterpreted." (interactive) (setq unread-command-char last-command-char)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Now, for Sun systems, include the following in your init file. ;; You will just have to get used to eval-expression being moved. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq search-exit-char 9) ;; tab (global-set-key "\e\e" 'eat-double-stroke) (global-set-key "\e\C-x" 'eat-double-stroke) ;; for emacstool on a sun (global-set-key "\C-xl" 'eval-expression)
peck@SUN.COM (09/21/88)
If you are running under Sunview (suntools), then you should try using EMACSTOOL! Emacstool will handle the Open & Expose keys and encode the others so that they are actually usable by Emacs. In particular, the first char transmitted by a function key in emacstool is ^X, so it not only terminates the I-search, but it is correctly dispatched as a function. Try it, you'll like it. Read .../etc/emacstool.1 (the man page) for more details. See also .../etc/SUN-SUPPORT ps, If you are running under X11 or NeWS, this problem is similarly solved.