mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

Adjust some search failure errors in info.el

Browse Source 
* lisp/info.el (Info-select-node): The search for beginning of node is
an internal detail, and is not normally expected to fail, so it should
not be a user error.
(Info-complete-menu-item): Failing to find a menu indicates the user
searched for a menu when there isn't one, so change to `use-error'.
This commit is contained in:
Noam Postavsky 2017-03-28 10:10:34 -04:00
parent d546e47632
commit d707ba8469
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/info.el
View File

@ -1672,7 +1672,7 @@ escaped (\\\",\\\\)."
(forward-line 2)
(if (looking-at "\^_")
(forward-line 1)
(user-error "Search failed: `\n\^_'")))
(signal 'search-failed (list "\n\^_"))))
;; Get nodename spelled as it is in the node.
(re-search-forward "Node:[ \t]*")
(setq Info-current-node
@ -2699,7 +2699,8 @@ Because of ambiguities, this should be concatenated with something like
(orignode Info-current-node)
nextnode)
(goto-char (point-min))
(search-forward "\n* Menu:")
(unless (search-forward "\n* Menu:" nil t)
(user-error "No menu in this node"))
(cond
((eq (car-safe action) 'boundaries) nil)
((eq action 'lambda)