diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-03-06 04:25:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-03-06 04:25:29 +0000 |
| commit | 2e52ff59e5c0c7c7f3d376d48ddd33cf98cfe491 (patch) | |
| tree | 36f17eedc2eddd7857e270a426ae1833f0e626d8 /lisp/info.el | |
| parent | f4c8ded2b0d890f78bcd0ecd697aeaa785c2c470 (diff) | |
| download | emacs-2e52ff59e5c0c7c7f3d376d48ddd33cf98cfe491.tar.gz emacs-2e52ff59e5c0c7c7f3d376d48ddd33cf98cfe491.tar.bz2 emacs-2e52ff59e5c0c7c7f3d376d48ddd33cf98cfe491.zip | |
(Info-extract-menu-node-name): Collapse multiple spaces.
Diffstat (limited to 'lisp/info.el')
| -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. |