mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

Make info-look search harder for the Python info file

Browse Source 
* lisp/info-look.el (python-mode): Try harder to find the correct
info file (bug#31405).
This commit is contained in:
Lars Ingebrigtsen 2021-08-13 13:38:38 +02:00
parent 65dd00667f
commit 711eb40b9b
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/info-look.el
View File

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