diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/man.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3c53662600a..ca021b92a44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/man.el b/lisp/man.el index b34ca768707..bc475852808 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -1500,7 +1500,9 @@ Returns t if section is found, nil otherwise." (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. |