[Emacs-diffs] /srv/bzr/emacs/trunk r112705: Silence some cperl-mode compiler warnings

[Glenn Morris]

------------------------------------------------------------
revno: 112705
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-05-23 23:57:39 -0700
message:
  Silence some cperl-mode compiler warnings
  
  * progmodes/cperl-mode.el (cperl-mode): Use fboundp.
  (Info-find-node, Man-getpage-in-background): Declare.
modified:
  lisp/ChangeLog
  lisp/progmodes/cperl-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-24 06:55:45 +0000
+++ b/lisp/ChangeLog    2013-05-24 06:57:39 +0000
@@ -1,5 +1,8 @@
 2013-05-24  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/progmodes/cperl-mode.el'
--- a/lisp/progmodes/cperl-mode.el      2013-05-08 16:27:53 +0000
+++ b/lisp/progmodes/cperl-mode.el      2013-05-24 06:57:39 +0000
@@ -1906,7 +1906,7 @@
   (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 @@
   (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 @@
     ;;(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 <address@hidden>
 ;;; Getting help on modules in C-h f ?
 ;;; This is a modified version of `man'.