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
e56f84d7
Commit
e56f84d7
authored
Nov 04, 2007
by
Thien-Thi Nguyen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Info-revert-buffer-function): New func.
(Info-mode): Arrange to use it for reverting.
parent
1449012d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
3 deletions
+15
-3
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/info.el
lisp/info.el
+10
-3
No files found.
lisp/ChangeLog
View file @
e56f84d7
2007-11-04 Thien-Thi Nguyen <ttn@gnuvola.org>
* info.el (Info-revert-buffer-function): New func.
(Info-mode): Arrange to use it for reverting.
2007-11-04 Stefan Monnier <monnier@iro.umontreal.ca>
* abbrev.el (expand-abbrev): Move point back to expansion's end.
...
...
lisp/info.el
View file @
e56f84d7
...
...
@@ -706,8 +706,8 @@ otherwise, that defaults to `Top'."
(
Info-find-node-2
nil
nodename
))
;; It's perhaps a bit nasty to kill the *info* buffer to force a re-read,
;; but at least it keeps this routine (which is
only for the benefit of
;;
makeinfo-buffer
) out of the way of normal operations.
;; but at least it keeps this routine (which is
for makeinfo-buffer and
;;
Info-revert-buffer-function
) out of the way of normal operations.
;;
(
defun
Info-revert-find-node
(
filename
nodename
)
"Go to an Info node FILENAME and NODENAME, re-reading disk contents.
...
...
@@ -739,6 +739,11 @@ is preserved, if possible."
(
if
new-history
(
setq
Info-history
(
cons
new-history
Info-history
))))))
(
defun
Info-revert-buffer-function
(
ignore-auto
noconfirm
)
(
when
(
or
noconfirm
(
y-or-n-p
"Revert info buffer? "
))
(
Info-revert-find-node
Info-current-file
Info-current-node
)
(
message
"Reverted %s"
Info-current-file
)))
(
defun
Info-find-in-tag-table-1
(
marker
regexp
case-fold
)
"Find a node in a tag table.
MARKER specifies the buffer and position to start searching at.
...
...
@@ -3353,7 +3358,7 @@ With a zero prefix arg, put the name inside a function call to `info'."
(
unless
Info-current-node
(
error
"No current Info node"
))
(
let
((
node
(
if
(
stringp
Info-current-file
)
(
concat
"("
(
file-name-nondirectory
Info-current-file
)
")"
(
concat
"("
(
file-name-nondirectory
Info-current-file
)
")
"
Info-current-node
))))
(
if
(
zerop
(
prefix-numeric-value
arg
))
(
setq
node
(
concat
"(info \""
node
"\")"
)))
...
...
@@ -3478,6 +3483,8 @@ Advanced commands:
'Info-isearch-push-state)
(set (make-local-variable 'search-whitespace-regexp)
Info-search-whitespace-regexp)
(set (make-local-variable 'revert-buffer-function)
'Info-revert-buffer-function)
(Info-set-mode-line)
(run-mode-hooks 'Info-mode-hook))
...
...
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