diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-29 18:57:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-29 18:57:15 +0000 |
| commit | e579232c977b428716a8f117b8d57369ba8aee15 (patch) | |
| tree | fee9cc65dd4d41e7b4f4e4a80862778ff6ef287f /lisp/info.el | |
| parent | 71dca3e3da179d831d3a9426d3ee208cc783b6a4 (diff) | |
| download | emacs-e579232c977b428716a8f117b8d57369ba8aee15.tar.gz | |
(Info-goto-node, Info-search):
In Transient Mark mode, deactivate the mark.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el index 46c53a86ed8..d5a53fbcb9c 100644 --- 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)) |