diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-05-23 23:57:39 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-05-23 23:57:39 -0700 |
| commit | ded62b0881fdb895138bb0f36c7e75950395e84f (patch) | |
| tree | 1a8b81a79d325e0c8a67f10696882b71d136d24a /lisp/progmodes/cperl-mode.el | |
| parent | 9e614a3fa083b1882666b6df50f027df4e471806 (diff) | |
| download | emacs-ded62b0881fdb895138bb0f36c7e75950395e84f.tar.gz emacs-ded62b0881fdb895138bb0f36c7e75950395e84f.tar.bz2 emacs-ded62b0881fdb895138bb0f36c7e75950395e84f.zip | |
Silence some cperl-mode compiler warnings
* progmodes/cperl-mode.el (cperl-mode): Use fboundp.
(Info-find-node, Man-getpage-in-background): Declare.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 7 |
1 files changed, 6 insertions, 1 deletions
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 <afoiani@uswest.com> ;;; Getting help on modules in C-h f ? ;;; This is a modified version of `man'. |