# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1123556079 0
# Node ID bf2ce0e2b48b5f65d1342da4c0f98e2118830b04
# Parent  e614d93ce7210177bc4aa94f603f445378119067
(Info-current-file): Add defvar.
(bookmark-jump-noselect): Use with-no-warnings.

diff -r e614d93ce721 -r bf2ce0e2b48b lisp/bookmark.el
--- a/lisp/bookmark.el	Tue Aug 09 02:53:54 2005 +0000
+++ b/lisp/bookmark.el	Tue Aug 09 02:54:39 2005 +0000
@@ -993,6 +993,8 @@
     (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 @@
                 ;; 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))