Re: Info-mode patch

[Juri Linkov]

> -(defun Info-directory ()
> +(defun Info-directory (&optional window)
>    "Go to the Info directory node."
>    (interactive)
> -  (Info-find-node "dir" "top"))
> +  (with-selected-window (or window (info-window))
> +    (Info-find-node "dir" "top")))

I wonder why you modified a lot of commands instead of implementing
a non-intrusive approach of creating standard wrapper commands like

  (defun Info-directory-other-window (&optional window)
     "Go to the Info directory node in another window."
     (interactive)
     (with-selected-window (or window (info-window))
       (Info-directory)))