;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'expand-region-core) #@25 Marks one perl variable (defalias 'er/mark-cperl-variable-name #[nil "\300v\210\301v\210\302\303\304 \"\210\305`!\210\300u\210\306\307\310 \"\210\301u\210\311 \207" [nil -1 search-backward-regexp "[@$%]" line-beginning-position set-mark search-forward-regexp "[^a-z_]" line-end-position exchange-point-and-mark] 3 (#$ . 438) nil]) #@29 Marks one perl package name (defalias 'er/mark-cperl-package-name #[nil "\300 \210\301 \210\302`!\210\300 \210\303\304\305 \"\210\306 \207" [forward-sexp backward-sexp set-mark search-backward "::" line-beginning-position exchange-point-and-mark] 3 (#$ . 775) nil]) #@32 Marks current subroutine body. (defalias 'er/mark-cperl-subroutine #[nil "\300 \210\301`!\210\302 \207" [end-of-defun set-mark beginning-of-defun] 2 (#$ . 1047) nil]) #@27 Add cprel mode expansinos (defalias 'er/add-cperl-mode-expansions #[nil "\301\300!\210\302\303\"\211\207" [er/try-expand-list make-local-variable append (er/mark-cperl-variable-name er/mark-cperl-package-name er/mark-cperl-subroutine)] 3 (#$ . 1220)]) (byte-code "\300\301\302\"\210\303\304!\207" [er/enable-mode-expansions cperl-mode er/add-cperl-mode-expansions provide cperl-mode-expansions] 3)