Mercurial > emacs
comparison lisp/info.el @ 12433:17387b7fe5b8
(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 | 3631443c706e |
| children | cd83cf47be08 |
comparison
equal
deleted
inserted
replaced
| 12432:a46766b7288a | 12433:17387b7fe5b8 |
|---|---|
| 598 nodename (substring nodename (match-beginning 3) (match-end 3))) | 598 nodename (substring nodename (match-beginning 3) (match-end 3))) |
| 599 (let ((trim (string-match "\\s *\\'" filename))) | 599 (let ((trim (string-match "\\s *\\'" filename))) |
| 600 (if trim (setq filename (substring filename 0 trim)))) | 600 (if trim (setq filename (substring filename 0 trim)))) |
| 601 (let ((trim (string-match "\\s *\\'" nodename))) | 601 (let ((trim (string-match "\\s *\\'" nodename))) |
| 602 (if trim (setq nodename (substring nodename 0 trim)))) | 602 (if trim (setq nodename (substring nodename 0 trim)))) |
| 603 (if transient-mark-mode (deactivate-mark)) | |
| 603 (Info-find-node (if (equal filename "") nil filename) | 604 (Info-find-node (if (equal filename "") nil filename) |
| 604 (if (equal nodename "") "Top" nodename)))) | 605 (if (equal nodename "") "Top" nodename)))) |
| 605 | 606 |
| 606 (defun Info-read-node-name (prompt &optional default) | 607 (defun Info-read-node-name (prompt &optional default) |
| 607 (let* ((completion-ignore-case t) | 608 (let* ((completion-ignore-case t) |
| 655 "Default regexp for \\<Info-mode-map>\\[Info-search] command to search for.") | 656 "Default regexp for \\<Info-mode-map>\\[Info-search] command to search for.") |
| 656 | 657 |
| 657 (defun Info-search (regexp) | 658 (defun Info-search (regexp) |
| 658 "Search for REGEXP, starting from point, and select node it's found in." | 659 "Search for REGEXP, starting from point, and select node it's found in." |
| 659 (interactive "sSearch (regexp): ") | 660 (interactive "sSearch (regexp): ") |
| 661 (if transient-mark-mode (deactivate-mark)) | |
| 660 (if (equal regexp "") | 662 (if (equal regexp "") |
| 661 (setq regexp Info-last-search) | 663 (setq regexp Info-last-search) |
| 662 (setq Info-last-search regexp)) | 664 (setq Info-last-search regexp)) |
| 663 (let ((found ()) current | 665 (let ((found ()) current |
| 664 (onode Info-current-node) | 666 (onode Info-current-node) |