diff options
| author | Daniel Mendler | 2021-05-05 16:58:35 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-05-05 16:58:35 +0200 |
| commit | a9f4ee3d3d69a91fde905684e5e9838a18ab855c (patch) | |
| tree | 00bd00fcbc8170f20eb3aaa205ec8db357e3eed0 | |
| parent | 0b437dd75ce530c5daa76add915711bceb31acb8 (diff) | |
| download | emacs-a9f4ee3d3d69a91fde905684e5e9838a18ab855c.tar.gz emacs-a9f4ee3d3d69a91fde905684e5e9838a18ab855c.zip | |
Don't bug out in `Info-goto-node' completion
* lisp/info.el (Info-read-node-name-1): Don't bug out in the
middle of completion, but return nil instead (and issue a message)
(bug#47771).
| -rw-r--r-- | lisp/info.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el index 82f0eb37ae9..67d27c78988 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -1855,7 +1855,8 @@ See `completing-read' for a description of arguments and usage." | |||
| 1855 | (lambda (string pred action) | 1855 | (lambda (string pred action) |
| 1856 | (complete-with-action | 1856 | (complete-with-action |
| 1857 | action | 1857 | action |
| 1858 | (Info-build-node-completions (Info-find-file file1 nil t)) | 1858 | (when-let ((file2 (Info-find-file file1 'noerror t))) |
| 1859 | (Info-build-node-completions file2)) | ||
| 1859 | string pred)) | 1860 | string pred)) |
| 1860 | nodename predicate code)))) | 1861 | nodename predicate code)))) |
| 1861 | ;; Otherwise use Info-read-node-completion-table. | 1862 | ;; Otherwise use Info-read-node-completion-table. |