diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-01-09 18:53:06 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-01-09 18:53:06 -0500 |
| commit | e709e39d6e4014c85d0a73f7b5debf2e7660fcb4 (patch) | |
| tree | 7ee4392e7303195eaeaa16b30a46e93a3797d74f /lisp/man.el | |
| parent | 8fe7200cbc8d77173a27406bdf9a1b7ee861c969 (diff) | |
| download | emacs-e709e39d6e4014c85d0a73f7b5debf2e7660fcb4.tar.gz | |
* man.el (Man-goto-section): Signal error if section not found (Bug#5317).
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 4 |
1 files changed, 3 insertions, 1 deletions
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. |