diff options
| author | Stefan Monnier | 2001-11-30 21:56:46 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-11-30 21:56:46 +0000 |
| commit | 2ba257e11c22dc5447809dad5daba880e43b3096 (patch) | |
| tree | e553d057bd42f09bbe49e939ecefa83b12b5db75 | |
| parent | f48b59a233c74b1ec21489591ec101b48c779323 (diff) | |
| download | emacs-2ba257e11c22dc5447809dad5daba880e43b3096.tar.gz emacs-2ba257e11c22dc5447809dad5daba880e43b3096.zip | |
(Man-build-section-alist): Remove last Man-match-substring.
| -rw-r--r-- | lisp/man.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index c9d175466f7..b428e4693b3 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -867,7 +867,7 @@ The following key bindings are currently in effect in the buffer: | |||
| 867 | (goto-char (point-min)) | 867 | (goto-char (point-min)) |
| 868 | (let ((case-fold-search nil)) | 868 | (let ((case-fold-search nil)) |
| 869 | (while (re-search-forward Man-heading-regexp (point-max) t) | 869 | (while (re-search-forward Man-heading-regexp (point-max) t) |
| 870 | (aput 'Man-sections-alist (Man-match-substring 1)) | 870 | (aput 'Man-sections-alist (match-string 1)) |
| 871 | (forward-line 1)))) | 871 | (forward-line 1)))) |
| 872 | 872 | ||
| 873 | (defsubst Man-build-references-alist () | 873 | (defsubst Man-build-references-alist () |