diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2005-03-19 14:36:43 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2005-03-19 14:36:43 +0000 |
| commit | f98fa00224bc11f6c615dbfdfa7de03504e2ed7c (patch) | |
| tree | 771d3396ae06287f3a8104075725b4dca541f434 | |
| parent | 399a961f28976fe891a4fcdb8f86378366b828f5 (diff) | |
| download | emacs-f98fa00224bc11f6c615dbfdfa7de03504e2ed7c.tar.gz | |
(Man-follow-manual-reference): If current-word returns nil, use "".
| -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 02661c55517..8c384028e17 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -1305,7 +1305,9 @@ Specify which REFERENCE to use; default is based on word at point." (error "There are no references in the current man page") (list (let* ((default (or (car (all-completions - (let ((word (Man-possibly-hyphenated-word))) + (let ((word + (or (Man-possibly-hyphenated-word) + ""))) ;; strip a trailing '-': (if (string-match "-$" word) (substring word 0 |