mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(Info-follow-reference): Nice error msg if there was no arg.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-08-16 02:10:25 +00:00
parent e3c55541bd
commit ebf8f7e14a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/info.el
View File

@ -1063,6 +1063,10 @@ NAME may be an abbreviation of the reference name."
(list (if (equal input "")
default input)))
(error "No cross-references in this node"))))
(unless footnotename
(error "No reference was specified"))
(let (target beg i (str (concat "\\*note " (regexp-quote footnotename)))
(case-fold-search t))
(while (setq i (string-match " " str i))