Commit 2c80a618 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Info-last-search): Variable removed.

(Info-search-history): New variable.
(Info-search): New Info-search-history.
parent c5753a5d
......@@ -1009,16 +1009,17 @@ If FORK is a string, it is the name to use for the new buffer."
(setq hl nil)) ;terminate the while at next iter
(setq hl (cdr hl)))))
(defvar Info-last-search nil
"Default regexp for \\<Info-mode-map>\\[Info-search] command to search for.")
(defvar Info-search-history nil
"The history list for `Info-search'.")
(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))
(interactive (list (read-string "Regexp search: "
nil 'Info-search-history)))
(when transient-mark-mode
(deactivate-mark))
(when (equal regexp "")
(setq regexp (car Info-search-history)))
(when regexp
(let ((found ()) current
(onode Info-current-node)
......
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