Commit 580a2a02 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(Man-follow-manual-reference): If current-word returns nil, use "".

parent 62832105
2005-03-19 Yoichi NAKAYAMA <> (tiny changes)
* finder.el (finder-current-item): Throw an error on an empty
* man.el (Man-follow-manual-reference): If current-word returns
nil, use "".
2005-03-19 Matt Hodges <>
* simple.el (goto-line): Doc fix.
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment