(Info-goto-node, Info-search):

In Transient Mark mode, deactivate the mark.

diff --git a/lisp/info.el b/lisp/info.el
index 46c53a86ed8c6f2df46d90dc9c80b27331c7c7fb..d5a53fbcb9c46447158acf22c096abeae29ebb41 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -600,6 +600,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
       (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 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
 (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))