From 08dcfdf600a6bde303f264938b39204d4830a0f6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Aug 2005 02:54:39 +0000 Subject: [PATCH] (Info-current-file): Add defvar. (bookmark-jump-noselect): Use with-no-warnings. --- lisp/bookmark.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)) -- 2.39.2