diff options
| -rw-r--r-- | lisp/info-look.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index 12c017fa4fd..3066bc1d75d 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el | |||
| @@ -976,14 +976,14 @@ Return nil if there is nothing appropriate in the buffer near point." | |||
| 976 | :doc-spec-function | 976 | :doc-spec-function |
| 977 | (lambda () | 977 | (lambda () |
| 978 | ;; Python is released annually (PEP 602). | 978 | ;; Python is released annually (PEP 602). |
| 979 | (let ((yy (- (decoded-time-year (decode-time (current-time))) 2000))) | 979 | (let* ((yy (- (decoded-time-year (decode-time (current-time))) 2000)) |
| 980 | (list | 980 | (manual (cl-loop for version from yy downto 7 |
| 981 | (list | 981 | for name = (format "python3.%d" version) |
| 982 | (cl-loop for version from yy downto 7 | 982 | if (Info-find-file name t) |
| 983 | for name = (format "python3.%d" version) | 983 | return name |
| 984 | if (Info-find-file name t) | 984 | finally return "python"))) |
| 985 | return (format "(%s)Index" name) | 985 | `((,(format "(%s)Index" manual)) |
| 986 | finally return "(python)Index")))))) | 986 | (,(format "(%s)Python Module Index" manual)))))) |
| 987 | 987 | ||
| 988 | (info-lookup-maybe-add-help | 988 | (info-lookup-maybe-add-help |
| 989 | :mode 'perl-mode | 989 | :mode 'perl-mode |