Mercurial > emacs
changeset 106782:7cf596e46b08
* man.el (Man-goto-section): Signal error if section not found (Bug#5317).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 09 Jan 2010 18:53:06 -0500 |
| parents | aae47b0bcc8d |
| children | fc2b73c71e0f |
| files | lisp/ChangeLog lisp/man.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jan 09 18:39:36 2010 -0500 +++ b/lisp/ChangeLog Sat Jan 09 18:53:06 2010 -0500 @@ -1,3 +1,8 @@ +2010-01-09 Chong Yidong <cyd@stupidchicken.com> + + * man.el (Man-goto-section): Signal error if the section is not + found (Bug#5317). + 2010-01-09 Juanma Barranquero <lekktu@gmail.com> * vc-bzr.el (vc-bzr-working-revision): On Windows and MS-DOS, accept
--- a/lisp/man.el Sat Jan 09 18:39:36 2010 -0500 +++ b/lisp/man.el Sat Jan 09 18:53:06 2010 -0500 @@ -1500,7 +1500,9 @@ (string= chosen "")) default chosen))) - (Man-find-section (aheadsym Man-sections-alist))) + (unless (Man-find-section (aheadsym Man-sections-alist)) + (error "Section not found"))) + (defun Man-goto-see-also-section () "Move point to the \"SEE ALSO\" section.