[Emacs-diffs] /srv/bzr/emacs/trunk r112764: Silence cperl-mode compilation

[Glenn Morris]

------------------------------------------------------------
revno: 112764
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-05-28 19:46:35 -0700
message:
  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.
modified:
  lisp/ChangeLog
  lisp/progmodes/cperl-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-28 15:42:56 +0000
+++ b/lisp/ChangeLog    2013-05-29 02:46:35 +0000
@@ -1,3 +1,9 @@
+2013-05-29  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        Handle "capitalised keywords" correctly.

=== modified file 'lisp/progmodes/cperl-mode.el'
--- a/lisp/progmodes/cperl-mode.el      2013-05-24 06:57:39 +0000
+++ b/lisp/progmodes/cperl-mode.el      2013-05-29 02:46:35 +0000
@@ -6671,10 +6671,13 @@
   (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 @@
 (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 @@
       (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.