From e709e39d6e4014c85d0a73f7b5debf2e7660fcb4 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 9 Jan 2010 18:53:06 -0500 Subject: [PATCH] * man.el (Man-goto-section): Signal error if section not found (Bug#5317). --- lisp/ChangeLog | 5 +++++ lisp/man.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * man.el (Man-goto-section): Signal error if the section is not + found (Bug#5317). + 2010-01-09 Juanma Barranquero * 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. -- 2.39.2