From 3694d13f709e0c3f82b2fdbba33982d188c92aad Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 28 May 2013 19:46:35 -0700 Subject: [PATCH] Silence cperl-mode compilation * progmodes/cperl-mode.el (imenu-choose-buffer-index) (file-of-tag, etags-snarf-tag, etags-goto-tag-location): Declare. (cperl-imenu-on-info): Require imenu. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/cperl-mode.el | 8 ++++++++ 2 files changed, 14 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9f9302680be..7d4e2dc1dfc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-05-29 Glenn Morris + + * progmodes/cperl-mode.el (imenu-choose-buffer-index) + (file-of-tag, etags-snarf-tag, etags-goto-tag-location): Declare. + (cperl-imenu-on-info): Require imenu. + 2013-05-28 Alan Mackenzie Handle "capitalised keywords" correctly. diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 407d4042c39..910e7c49d2a 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -6671,10 +6671,13 @@ Customized by setting variables `cperl-shrink-wrap-info-frame', (buffer-substring (match-beginning 1) (match-end 1))) +(declare-function imenu-choose-buffer-index "imenu" (&optional prompt alist)) + (defun cperl-imenu-on-info () "Shows imenu for Perl Info Buffer. Opens Perl Info buffer if needed." (interactive) + (require 'imenu) (let* ((buffer (current-buffer)) imenu-create-index-function imenu-prev-index-position-function @@ -7134,6 +7137,10 @@ Use as (defvar cperl-hierarchy '(() ()) "Global hierarchy of classes.") +;; Follows call to (autoloaded) visit-tags-table. +(declare-function file-of-tag "etags" (&optional relative)) +(declare-function etags-snarf-tag "etags" (&optional use-explicit)) + (defun cperl-tags-hier-fill () ;; Suppose we are in a tag table cooked by cperl. (goto-char 1) @@ -7177,6 +7184,7 @@ Use as (end-of-line)))) (declare-function x-popup-menu "menu.c" (position menu)) +(declare-function etags-goto-tag-location "etags" (tag-info)) (defun cperl-tags-hier-init (&optional update) "Show hierarchical menu of classes and methods. -- 2.39.2