From ebf8f7e14ac86abf7b946d755238045e8b136c36 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 16 Aug 1998 02:10:25 +0000 Subject: [PATCH] (Info-follow-reference): Nice error msg if there was no arg. --- lisp/info.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/info.el b/lisp/info.el index 928625093c3..c96844a88fc 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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))