# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1081967992 0
# Node ID 327d069f80bb053ec2a6d38a93023542b33ad28d
# Parent  1bf7ef48f54fe55cea38b7125c577cf2b3eabbd8
(info): Always jump to *info*.

diff -r 1bf7ef48f54f -r 327d069f80bb lisp/info.el
--- a/lisp/info.el	Wed Apr 14 18:36:14 2004 +0000
+++ b/lisp/info.el	Wed Apr 14 18:39:52 2004 +0000
@@ -470,18 +470,16 @@
 in all the directories in that path."
   (interactive (if current-prefix-arg
 		   (list (read-file-name "Info file name: " nil nil t))))
+  (pop-to-buffer "*info*")
   (if file
-      (progn
-	(pop-to-buffer "*info*")
-	;; If argument already contains parentheses, don't add another set
-	;; since the argument will then be parsed improperly.  This also
-	;; has the added benefit of allowing node names to be included
-	;; following the parenthesized filename.
-	(if (and (stringp file) (string-match "(.*)" file))
-	    (Info-goto-node file)
-	  (Info-goto-node (concat "(" file ")"))))
-    (if (get-buffer "*info*")
-	(pop-to-buffer "*info*")
+      ;; If argument already contains parentheses, don't add another set
+      ;; since the argument will then be parsed improperly.  This also
+      ;; has the added benefit of allowing node names to be included
+      ;; following the parenthesized filename.
+      (if (and (stringp file) (string-match "(.*)" file))
+	  (Info-goto-node file)
+	(Info-goto-node (concat "(" file ")")))
+    (if (zerop (buffer-size))
       (Info-directory))))
 
 ;;;###autoload