Mercurial > emacs
comparison lisp/isearch.el @ 5554:0ac0776c23af
(isearch-mode): If not slow, clear isearch-window-configuration.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Jan 1994 22:27:52 +0000 |
| parents | c002b55b9cac |
| children | 8353962cfd74 |
comparison
equal
deleted
inserted
replaced
| 5553:22a65d8c0b9a | 5554:0ac0776c23af |
|---|---|
| 2 | 2 |
| 3 ;; Copyright (C) 1992, 1993 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 1993 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> | 5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> |
| 6 | 6 |
| 7 ;; |$Date: 1993/12/25 00:50:10 $|$Revision: 1.58 $ | 7 ;; |$Date: 1994/01/02 17:43:16 $|$Revision: 1.59 $ |
| 8 | 8 |
| 9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
| 10 | 10 |
| 11 ;; GNU Emacs is distributed in the hope that it will be useful, | 11 ;; GNU Emacs is distributed in the hope that it will be useful, |
| 12 ;; but WITHOUT ANY WARRANTY. No author or distributor | 12 ;; but WITHOUT ANY WARRANTY. No author or distributor |
| 501 | 501 |
| 502 isearch-opoint (point) | 502 isearch-opoint (point) |
| 503 isearch-old-local-map (current-local-map) | 503 isearch-old-local-map (current-local-map) |
| 504 search-ring-yank-pointer nil | 504 search-ring-yank-pointer nil |
| 505 regexp-search-ring-yank-pointer nil) | 505 regexp-search-ring-yank-pointer nil) |
| 506 (if isearch-slow-terminal-mode | 506 (setq isearch-window-configuration |
| 507 (setq isearch-window-configuration (current-window-configuration))) | 507 (if isearch-slow-terminal-mode (current-window-configuration) nil)) |
| 508 | 508 |
| 509 ;; This was for Lucid Emacs. But now that we have pre-command-hook, | 509 ;; This was for Lucid Emacs. But now that we have pre-command-hook, |
| 510 ;; it causes trouble. | 510 ;; it causes trouble. |
| 511 ;; (if isearch-pre-command-hook-exists | 511 ;; (if isearch-pre-command-hook-exists |
| 512 ;; (add-hook 'pre-command-hook 'isearch-pre-command-hook)) | 512 ;; (add-hook 'pre-command-hook 'isearch-pre-command-hook)) |