Commit c613e27e authored by Karl Heuer's avatar Karl Heuer

(info): Don't add parens if FILE already has them.

parent ed218f73
......@@ -299,8 +299,15 @@ in all the directories in that path."
(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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment