Skip to content

GitLab

Commit e579232c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

In Transient Mark mode, deactivate the mark.
parent 71dca3e3
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
lisp/info.el
View file @ e579232c
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment