diff options
| author | Basil L. Contovounesios | 2017-10-25 16:57:43 +0100 |
|---|---|---|
| committer | Noam Postavsky | 2017-11-11 10:46:43 -0500 |
| commit | 9533d76b0b5bfe2df1cccc55a92c2545b1de4e2b (patch) | |
| tree | 982edc3b077a981498d3381f4515b276625ebe68 | |
| parent | d63c9a96f51fd4d723dc66a6cc0a8a0a04c8ce6c (diff) | |
| download | emacs-9533d76b0b5bfe2df1cccc55a92c2545b1de4e2b.tar.gz emacs-9533d76b0b5bfe2df1cccc55a92c2545b1de4e2b.zip | |
Keep Man sections in natural order (bug#28998)
* lisp/man.el (Man-build-section-alist): Reverse sections.
| -rw-r--r-- | lisp/man.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index 7a892c6e88a..f7b1609c929 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -1522,7 +1522,8 @@ The following key bindings are currently in effect in the buffer: | |||
| 1522 | (let ((section (match-string 1))) | 1522 | (let ((section (match-string 1))) |
| 1523 | (unless (member section Man--sections) | 1523 | (unless (member section Man--sections) |
| 1524 | (push section Man--sections))) | 1524 | (push section Man--sections))) |
| 1525 | (forward-line 1)))) | 1525 | (forward-line 1))) |
| 1526 | (setq Man--sections (nreverse Man--sections))) | ||
| 1526 | 1527 | ||
| 1527 | (defsubst Man-build-references-alist () | 1528 | (defsubst Man-build-references-alist () |
| 1528 | "Build the list of references (in the SEE ALSO section)." | 1529 | "Build the list of references (in the SEE ALSO section)." |