procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "Make info-look search harder for the Python info file"

Browse source 
This reverts commit 711eb40b9b.

This leads to loading info-look being excessively slow if the info path is long.  It'll be reimplemented in Emacs 29.
This commit is contained in:
Lars Ingebrigtsen 2021-10-04 10:23:18 +02:00
parent 3b8dda6c90
commit ef6c43b896
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/info-look.el
View file

@ -43,7 +43,6 @@
(require 'info) (require 'info)
(eval-when-compile (require 'subr-x)) (eval-when-compile (require 'subr-x))
(eval-when-compile (require 'cl-lib))
(defgroup info-lookup nil (defgroup info-lookup nil
"Major mode sensitive help agent." "Major mode sensitive help agent."
@ -905,13 +904,9 @@ Return nil if there is nothing appropriate in the buffer near point."
(info-lookup-maybe-add-help (info-lookup-maybe-add-help
:mode 'python-mode :mode 'python-mode
;; Debian includes Python info files, but they're version-named :doc-spec `((,(if (Info-find-file "python3.9" t)
;; instead of having a symlink. "(python3.9)Index"
:doc-spec `((,(cl-loop for version from 20 downto 7 "(python)Index"))))
for name = (format "python3.%d" version)
if (Info-find-file name t)
return (format "(%s)Index" name)
finally return "(python)Index"))))
(info-lookup-maybe-add-help (info-lookup-maybe-add-help
:mode 'cperl-mode :mode 'cperl-mode