From ded62b0881fdb895138bb0f36c7e75950395e84f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 23 May 2013 23:57:39 -0700 Subject: [PATCH] Silence some cperl-mode compiler warnings * progmodes/cperl-mode.el (cperl-mode): Use fboundp. (Info-find-node, Man-getpage-in-background): Declare. --- lisp/ChangeLog | 3 +++ lisp/progmodes/cperl-mode.el | 7 ++++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6baa68cae77..e11944a6808 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-05-24 Glenn Morris + * progmodes/cperl-mode.el (cperl-mode): Use fboundp. + (Info-find-node, Man-getpage-in-background): Declare. + * mail/unrmail.el (unrmail): Replace obsolete detect-coding-with-priority. diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index b6e4297081d..407d4042c39 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1906,7 +1906,7 @@ or as help on variables `cperl-tips', `cperl-problems', (and (boundp 'msb-menu-cond) (not cperl-msb-fixed) (cperl-msb-fix)) - (if (featurep 'easymenu) + (if (fboundp 'easy-menu-add) (easy-menu-add cperl-menu)) ; A NOP in Emacs. (run-mode-hooks 'cperl-mode-hook) (if cperl-hook-after-change @@ -6530,6 +6530,9 @@ side-effect of memorizing only. Examples in `cperl-style-examples'." (let ((perl-dbg-flags (concat cperl-extra-perl-args " -wc"))) (eval '(mode-compile)))) ; Avoid a warning +(declare-function Info-find-node "info" + (filename nodename &optional no-going-back)) + (defun cperl-info-buffer (type) ;; Returns buffer with documentation. Creates if missing. ;; If TYPE, this vars buffer. @@ -8517,6 +8520,8 @@ the appropriate statement modifier." ;;(error "Not at `if', `unless', `while', `until', `for' or `foreach'") (cperl-invert-if-unless-modifiers))) +(declare-function Man-getpage-in-background "man" (topic)) + ;;; By Anthony Foiani ;;; Getting help on modules in C-h f ? ;;; This is a modified version of `man'. -- 2.39.2