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 | |
| parent | 8fe7200cbc8d77173a27406bdf9a1b7ee861c969 (diff) | |
| download | emacs-e709e39d6e4014c85d0a73f7b5debf2e7660fcb4.tar.gz | |
* man.el (Man-goto-section): Signal error if section not found (Bug#5317).
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/man.el | 4 |
2 files changed, 8 insertions, 1 deletions
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. |