Mercurial > emacs
comparison lisp/info.el @ 14424:b6a423b26c69
(Info-extract-pointer): Fix error format string.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 29 Jan 1996 23:16:36 +0000 |
| parents | 87fde6ef6c95 |
| children | 6c886dde14b8 |
comparison
equal
deleted
inserted
replaced
| 14423:d60cf49fb01e | 14424:b6a423b26c69 |
|---|---|
| 790 (progn | 790 (progn |
| 791 (goto-char (match-end 0)) | 791 (goto-char (match-end 0)) |
| 792 (Info-following-node-name)) | 792 (Info-following-node-name)) |
| 793 (if (eq errorname t) | 793 (if (eq errorname t) |
| 794 nil | 794 nil |
| 795 (error (concat "Node has no " (capitalize (or errorname name)))))))) | 795 (error "Node has no %s" (capitalize (or errorname name))))))) |
| 796 | 796 |
| 797 ;; Return the node name in the buffer following point. | 797 ;; Return the node name in the buffer following point. |
| 798 ;; ALLOWEDCHARS, if non-nil, goes within [...] to make a regexp | 798 ;; ALLOWEDCHARS, if non-nil, goes within [...] to make a regexp |
| 799 ;; saying which chas may appear in the node name. | 799 ;; saying which chas may appear in the node name. |
| 800 (defun Info-following-node-name (&optional allowedchars) | 800 (defun Info-following-node-name (&optional allowedchars) |