diff options
| -rw-r--r-- | lisp/info.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el index 3a2d1f954c7..f250957ab80 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -858,6 +858,9 @@ NAME may be an abbreviation of the reference name." | |||
| 858 | (Info-following-node-name (if multi-line "^.,\t" "^.,\t\n")))) | 858 | (Info-following-node-name (if multi-line "^.,\t" "^.,\t\n")))) |
| 859 | (while (setq i (string-match "\n" str i)) | 859 | (while (setq i (string-match "\n" str i)) |
| 860 | (aset str i ?\ )) | 860 | (aset str i ?\ )) |
| 861 | ;; Collapse multiple spaces. | ||
| 862 | (while (string-match " +" str) | ||
| 863 | (setq str (replace-match " " t t str))) | ||
| 861 | str)) | 864 | str)) |
| 862 | 865 | ||
| 863 | ;; No one calls this. | 866 | ;; No one calls this. |