Mercurial > emacs

changeset 64800:bf2ce0e2b48b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-current-file): Add defvar. (bookmark-jump-noselect): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Aug 2005 02:54:39 +0000
parents e614d93ce721
children da6e5acb4109
files lisp/bookmark.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))