master 1288955d50 1/4: Don't check if autoloaded functions are fboundp

[Stefan Kangas]

branch: master
commit 1288955d50440d9d03abdea227b84a49b10cd336
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Don't check if autoloaded functions are fboundp
    
    * lisp/progmodes/cperl-mode.el (cperl-menu, cperl-init-faces):
    Assume some autoloaded ps-print.el functions are always there.
---
 lisp/progmodes/cperl-mode.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 91c00ad048..6e39855527 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1118,8 +1118,7 @@ Unless KEEP, removes the old indentation."
               (get-text-property (point) 'syntax-type))
             '(here-doc pod))]
      "----"
-     ["CPerl pretty print (experimental)" cperl-ps-print
-      (fboundp 'ps-extend-face-list)]
+     ["CPerl pretty print (experimental)" cperl-ps-print]
      "----"
      ["Syntaxify region" cperl-find-pods-heres-region
       (use-region-p)]
@@ -1153,6 +1152,8 @@ Unless KEEP, removes the old indentation."
        (cperl-write-tags nil nil t t) t]))
     ("Perl docs"
      ["Define word at point" imenu-go-find-at-position
+      ;; This is from imenu-go.el.  I can't find it on any ELPA
+      ;; archive, so I'm not sure if it's still in use or not.
       (fboundp 'imenu-go-find-at-position)]
      ["Help on function" cperl-info-on-command t]
      ["Help on function at point" cperl-info-on-current-command t]
@@ -6030,7 +6031,7 @@ default function."
                cperl-font-lock-keywords-2 (append
                                           t-font-lock-keywords-1
                                           cperl-font-lock-keywords-1)))
-       (if (fboundp 'ps-print-buffer) (cperl-ps-print-init))
+        (cperl-ps-print-init)
        (setq cperl-faces-init t))
     (error (message "cperl-init-faces (ignored): %s" errs))))