procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(isearch-mode): Don't set deactivate-mark here.

Browse source 
(isearch-done): In Transient Mark mode, don't set mark if is active.
This commit is contained in:
Richard M. Stallman 1994-09-30 09:16:06 +00:00
parent c75e51a325
commit 48be3850d4
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/isearch.el
View file

@ -4,7 +4,7 @@
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
;; |$Date: 1994/08/30 07:03:33 $|$Revision: 1.72 $
;; |$Date: 1994/08/30 21:20:09 $|$Revision: 1.73 $
;; This file is part of GNU Emacs.
@ -514,10 +514,6 @@ 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)
(make-local-variable 'overriding-local-map)
@ -598,7 +594,8 @@ is treated as a regexp. See \\[isearch-forward] for more info."
;; Maybe should test difference between and set mark iff > threshold.
(if (/= (point) isearch-opoint)
(progn
(push-mark isearch-opoint t)
(or (and transient-mark-mode mark-active)
(push-mark isearch-opoint t))
(or executing-macro (> (minibuffer-depth) 0)
(message "Mark saved where search started")))
;; (message "") why is this needed?