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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c53662600a6bd34f86467ddeef42c4101d5e91f..ca021b92a442aa161ce15b5878598b88e9d99b21 100644 (file)
--- 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 b34ca7687077d74c89763ee75d15d947aad48f92..bc475852808b4c0704dedc560ddf67726a22251e 100644 (file)
--- 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.