From f9b27c85997c48ac9844081c347e6924de91452b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 8 Mar 2008 00:11:29 +0000 Subject: [PATCH] (bookmark-make-name-function, bookmark-get-bookmark-record): Pacify byte-compiler. --- lisp/ChangeLog | 5 +++++ lisp/info.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9d267a7d863..f9840850268 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-03-08 Juanma Barranquero + + * info.el (bookmark-make-name-function, bookmark-get-bookmark-record): + Pacify byte-compiler. + 2008-03-07 Alan Mackenzie * progmodes/cc-engine.el (c-in-knr-argdecl): Limit number of diff --git a/lisp/info.el b/lisp/info.el index 5f074b686d6..c6834408bac 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3375,6 +3375,8 @@ With a zero prefix arg, put the name inside a function call to `info'." (defvar tool-bar-map) (defvar bookmark-make-record-function) +(defvar bookmark-make-name-function) +(declare-function bookmark-get-bookmark-record "bookmark" (bookmark)) ;; Autoload cookie needed by desktop.el ;;;###autoload @@ -3745,7 +3747,7 @@ the variable `Info-file-list-for-emacs'." (case-fold-search t) paragraph-markers (not-fontified-p ; the node hasn't already been fontified - (not (let ((where (next-single-property-change (point-min) + (not (let ((where (next-single-property-change (point-min) 'font-lock-face))) (and where (not (= where (point-max))))))) (fontify-visited-p ; visited nodes need to be re-fontified -- 2.39.5