From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Sun, 4 Nov 2007 12:01:35 +0000 (+0000)
Subject: (Info-revert-buffer-function): New func.
X-Git-Tag: emacs-pretest-23.0.90~9869
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e56f84d7309e73c9dc0732960d4b681bb9a0249a;p=emacs.git

(Info-revert-buffer-function): New func.
(Info-mode): Arrange to use it for reverting.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4964ad5732e..d1dc9a1a478 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/lisp/info.el b/lisp/info.el
index fb6260585bc..2d396a105d8 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -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))