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-done): Customize the message about mark.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-03-30 19:42:10 +00:00
parent 58f1634a68
commit 7872ee4d0a
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/isearch.el
View File

@ -4,7 +4,7 @@
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
;; |$Date: 1993/03/21 05:50:17 $|$Revision: 1.27 $
;; |$Date: 1993/03/30 19:38:34 $|$Revision: 1.28 $
;; 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.27 1993/03/21 05:50:17 jimb Exp rms $
;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.28 1993/03/30 19:38:34 rms Exp rms $
;;; $Log: isearch.el,v $
; Revision 1.28 1993/03/30 19:38:34 rms
; (isearch-mode-map): Delete the binding for C-h.
;
; Revision 1.27 1993/03/21 05:50:17 jimb
; * isearch.el (isearch-switch-frame-handler): Call
; handle-switch-frame instead of select-frame; it has been renamed.
@ -660,7 +663,10 @@ is treated as a regexp. See \\[isearch-forward] for more info."
;; If there was movement, mark the starting position.
;; Maybe should test difference between and set mark iff > threshold.
(if (/= (point) isearch-opoint)
(push-mark isearch-opoint)
(progn
(push-mark isearch-opoint t)
(or executing-macro (> (minibuffer-depth) 0)
(message "Mark saved where search started")))
;; (message "") why is this needed?
)
(if isearch-small-window