mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(isearch-mode): Set deactivate-mark.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-17 18:22:37 +00:00
parent bd66d1baeb
commit 7492a21ec2
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/isearch.el
View File

@ -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 @@ is treated as a regexp. See \\[isearch-forward] for more info."
(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)