Mercurial > emacs

comparison lisp/info.el @ 23038:10ad03c5d326

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-follow-reference): Nice error msg if there was no arg.
author Richard M. Stallman <rms@gnu.org>
date Sun, 16 Aug 1998 02:10:25 +0000
parents 60f63c8a3837
children ea4f70068321
comparison
equal deleted inserted replaced
23037:88fadff500be 23038:10ad03c5d326
1061 "Follow reference named: ") 1061 "Follow reference named: ")
1062 completions nil t))) 1062 completions nil t)))
1063 (list (if (equal input "") 1063 (list (if (equal input "")
1064 default input))) 1064 default input)))
1065 (error "No cross-references in this node")))) 1065 (error "No cross-references in this node"))))
1066
1067 (unless footnotename
1068 (error "No reference was specified"))
1069
1066 (let (target beg i (str (concat "\\*note " (regexp-quote footnotename))) 1070 (let (target beg i (str (concat "\\*note " (regexp-quote footnotename)))
1067 (case-fold-search t)) 1071 (case-fold-search t))
1068 (while (setq i (string-match " " str i)) 1072 (while (setq i (string-match " " str i))
1069 (setq str (concat (substring str 0 i) "[ \t\n]+" (substring str (1+ i)))) 1073 (setq str (concat (substring str 0 i) "[ \t\n]+" (substring str (1+ i))))
1070 (setq i (+ i 6))) 1074 (setq i (+ i 6)))