diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-08-17 15:47:13 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-08-17 15:48:43 +0200 |
| commit | 1288955d50440d9d03abdea227b84a49b10cd336 (patch) | |
| tree | 3dd4feaeca4f0ceec6f5d171f12ccfebc5ea8d6c /lisp | |
| parent | deddd56e3521aa2544575a8b10ffb4c99ee3be74 (diff) | |
| download | emacs-1288955d50440d9d03abdea227b84a49b10cd336.tar.gz emacs-1288955d50440d9d03abdea227b84a49b10cd336.tar.bz2 emacs-1288955d50440d9d03abdea227b84a49b10cd336.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 91c00ad0488..6e398555277 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)))) |