From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 9 Jan 2010 23:53:06 +0000 (-0500)
Subject: * man.el (Man-goto-section): Signal error if section not found (Bug#5317).
X-Git-Tag: emacs-pretest-23.1.92~60
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e709e39d6e4014c85d0a73f7b5debf2e7660fcb4;p=emacs.git

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

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.