Mercurial > emacs
changeset 2849:29d41032d9fd
(isearch-mode): Set deactivate-mark.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 17 May 1993 18:22:37 +0000 |
| parents | 3bcbd1795280 |
| children | f5f7e7295ec2 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Mon May 17 04:47:53 1993 +0000 +++ b/lisp/isearch.el Mon May 17 18:22:37 1993 +0000 @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1993/05/14 18:02:55 $|$Revision: 1.32 $ +;; |$Date: 1993/05/15 20:05:36 $|$Revision: 1.33 $ ;; This file is not yet part of GNU Emacs, but it is based almost ;; entirely on isearch.el which is part of GNU Emacs. @@ -92,8 +92,11 @@ ;;;==================================================================== ;;; Change History -;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.32 1993/05/14 18:02:55 rms Exp rms $ +;;; $Header: /home/fsf/rms/e19/lisp/RCS/isearch.el,v 1.33 1993/05/15 20:05:36 rms Exp rms $ ;;; $Log: isearch.el,v $ +; Revision 1.33 1993/05/15 20:05:36 rms +; (isearch-done): Don't activate mark. +; ; Revision 1.32 1993/05/14 18:02:55 rms ; (isearch-mode-map): Handle any length vector in keymap. ; (isearch-char-to-string): Handle non-character events properly. @@ -609,6 +612,10 @@ (setq isearch-mode " Isearch") ;; forward? regexp? (set-buffer-modified-p (buffer-modified-p)) ; update modeline + ;; It is ugly to show region highlighting while the search + ;; is going on. And we don't want the mark active at the end either. + (setq deactivate-mark t) + (isearch-push-state) (use-local-map isearch-mode-map)