* man.el (Man-goto-section): Signal error if section not found (Bug#5317).

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.