[Emacs-diffs] /srv/bzr/emacs/trunk r99288: * man.el (Man-goto-section): Signal error if section not found (Bug#5317).

[Chong Yidong]

------------------------------------------------------------
revno: 99288
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2010-01-09 18:53:06 -0500
message:
  * man.el (Man-goto-section): Signal error if section not found (Bug#5317).
modified:
  lisp/ChangeLog
  lisp/man.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-01-09 21:03:33 +0000
+++ b/lisp/ChangeLog    2010-01-09 23:53:06 +0000
@@ -1,3 +1,8 @@
+2010-01-09  Chong Yidong  <address@hidden>
+
+       * man.el (Man-goto-section): Signal error if the section is not
+       found (Bug#5317).
+
 2010-01-09  Juanma Barranquero  <address@hidden>
 
        * vc-bzr.el (vc-bzr-working-revision): On Windows and MS-DOS, accept

=== modified file 'lisp/man.el'
--- a/lisp/man.el       2010-01-04 05:35:18 +0000
+++ b/lisp/man.el       2010-01-09 23:53:06 +0000
@@ -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.