Mercurial > emacs

changeset 12433:17387b7fe5b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-goto-node, Info-search): In Transient Mark mode, deactivate the mark.
author Richard M. Stallman <rms@gnu.org>
date Thu, 29 Jun 1995 18:57:15 +0000
parents a46766b7288a
children 2f548b1c066e
files lisp/info.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Thu Jun 29 18:43:24 1995 +0000
+++ b/lisp/info.el	Thu Jun 29 18:57:15 1995 +0000
@@ -600,6 +600,7 @@
       (if trim (setq filename (substring filename 0 trim))))
     (let ((trim (string-match "\\s *\\'" nodename)))
       (if trim (setq nodename (substring nodename 0 trim))))
+    (if transient-mark-mode (deactivate-mark))
     (Info-find-node (if (equal filename "") nil filename)
 		    (if (equal nodename "") "Top" nodename))))
 
@@ -657,6 +658,7 @@
 (defun Info-search (regexp)
   "Search for REGEXP, starting from point, and select node it's found in."
   (interactive "sSearch (regexp): ")
+  (if transient-mark-mode (deactivate-mark))
   (if (equal regexp "")
       (setq regexp Info-last-search)
     (setq Info-last-search regexp))