# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 904938626 0
# Node ID ea4f700683216e0b847b9ee3bbcef7e94c31601f
# Parent  eb56d7e8faa1e2fe3da2021065065f4f33704112
(info): Don't add parens if FILE already has them.

diff -r eb56d7e8faa1 -r ea4f70068321 lisp/info.el
--- a/lisp/info.el	Fri Sep 04 14:08:26 1998 +0000
+++ b/lisp/info.el	Fri Sep 04 19:50:26 1998 +0000
@@ -299,8 +299,15 @@
   (interactive (if current-prefix-arg
 		   (list (read-file-name "Info file name: " nil nil t))))
   (if file
-      (progn (pop-to-buffer "*info*")
-	     (Info-goto-node (concat "(" 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*")
       (Info-directory))))