Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b0dd5bf5
Commit
b0dd5bf5
authored
Jan 05, 2006
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Info-find-node): Don't record previous node if have none.
(info): Go to directory only if history is empty.
parent
bf2c1089
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
7 deletions
+10
-7
lisp/info.el
lisp/info.el
+10
-7
No files found.
lisp/info.el
View file @
b0dd5bf5
...
...
@@ -568,8 +568,10 @@ in all the directories in that path."
(
if
(
and
(
stringp
file-or-node
)
(
string-match
"(.*)"
file-or-node
))
file-or-node
(
concat
"("
file-or-node
")"
)))
(
if
(
zerop
(
buffer-size
))
(
Info-directory
))))
(
if
(
and
(
zerop
(
buffer-size
))
(
null
Info-history
))
;; If we just created the Info buffer, go to the directory.
(
Info-directory
))))
;;;###autoload
(
defun
info-emacs-manual
()
...
...
@@ -688,11 +690,12 @@ it says do not attempt further (recursive) error recovery."
(
setq
filename
(
Info-find-file
filename
))
;; Go into Info buffer.
(
or
(
eq
major-mode
'Info-mode
)
(
pop-to-buffer
"*info*"
))
;; Record the node we are leaving.
(
if
(
not
no-going-back
)
(
setq
Info-history
(
cons
(
list
Info-current-file
Info-current-node
(
point
))
Info-history
)))
;; Record the node we are leaving, if we were in one.
(
and
(
not
no-going-back
)
Info-current-file
(
setq
Info-history
(
cons
(
list
Info-current-file
Info-current-node
(
point
))
Info-history
)))
(
Info-find-node-2
filename
nodename
no-going-back
))
;;;###autoload
...
...
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