Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c613e27e
Commit
c613e27e
authored
Sep 04, 1998
by
Karl Heuer
Browse files
(info): Don't add parens if FILE already has them.
parent
ed218f73
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
2 deletions
+9
-2
lisp/info.el
lisp/info.el
+9
-2
No files found.
lisp/info.el
View file @
c613e27e
...
...
@@ -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
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment