Browse Source

Adjusted Everything ido search

master
Macoy Madson 3 months ago
parent
commit
d0b1042061
  1. 9
      Emacs/search.el

9
Emacs/search.el

@ -405,10 +405,11 @@ If there's a string at point, offer that as a default."
(string-match "^finished" msg)
(string= (buffer-name buffer) "*everything-ido-after*"))
(progn
;; Compilation succeeded, so we might as well hide the results (who cares?)
(with-current-buffer "*everything-ido-after*"
(find-file (ido-completing-read "Open: " (regex-matches-to-list "\\(.:\\\\.*\\)" (buffer-string)))))
(macoy-bury-buffer-anywhere "*everything-ido-after*"))))
(let ((results (regex-matches-to-list "\\(.:\\\\.*\\)" (buffer-string))))
(when results
(with-current-buffer "*everything-ido-after*"
(find-file (ido-completing-read "Open: " results)))
(macoy-bury-buffer-anywhere "*everything-ido-after*"))))))
(defun macoy-search-everything (search)
(interactive (list (macoy-read-from-minibuffer "Search string")))

Loading…
Cancel
Save