diff options
Diffstat (limited to 'lisp')
| -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." (Info-following-node-name (if multi-line "^.,\t" "^.,\t\n")))) (while (setq i (string-match "\n" str i)) (aset str i ?\ )) + ;; Collapse multiple spaces. + (while (string-match " +" str) + (setq str (replace-match " " t t str))) str)) ;; No one calls this. |