From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Aug 2005 02:54:39 +0000 (+0000)
Subject: (Info-current-file): Add defvar.
X-Git-Tag: emacs-pretest-22.0.90~7735
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08dcfdf600a6bde303f264938b39204d4830a0f6;p=emacs.git

(Info-current-file): Add defvar.
(bookmark-jump-noselect): Use with-no-warnings.
---

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 4ec78468beb..da8a4e2b809 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -993,6 +993,8 @@ In Info, return the current node."
     (insert string)))
 
 
+(defvar Info-current-file)
+
 (defun bookmark-buffer-file-name ()
   "Return the current buffer's file in a way useful for bookmarks.
 For example, if this is a Info buffer, return the Info file's name."
@@ -1102,7 +1104,8 @@ be retrieved from a VC backend, else return nil."
                 ;; Info nodes must be visited with care.
                 (progn
                   (require 'info)
-                  (Info-find-node file info-node))
+		  (with-no-warnings
+		    (Info-find-node file info-node)))
               ;; Else no Info.  Can do an ordinary find-file:
               (set-buffer (find-file-noselect file))
               (goto-char place))