Function: cperl-extra-paired-delimiters-mode

cperl-extra-paired-delimiters-mode is an interactive and byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-extra-paired-delimiters-mode &optional ARG)

Documentation

Toggle treatment of extra paired delimiters in Perl.

Many non-ASCII paired delimiters can be used for quote-like constructs by activating the feature "extra_paired_delimiters" either explicitly or as part of the Perl 5.40 feature bundle. This command allows cperl-mode to recognize the same set of paired delimiters, see the variable cperl--extra-paired-delimiters.

This is a minor mode. If called interactively, toggle the Cperl-Extra-Paired-Delimiters mode mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is toggle. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer, evaluate the variable cperl-extra-paired-delimiters-mode(var)/cperl-extra-paired-delimiters-mode(fun).

The mode's hook is called both when the mode is enabled and when it is disabled.

Probably introduced at or before Emacs version 30.1.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
;;; Minor mode for optional Perl features
(define-minor-mode cperl-extra-paired-delimiters-mode
  "Toggle treatment of extra paired delimiters in Perl.
Many non-ASCII paired delimiters can be used for quote-like constructs
by activating the feature \"extra_paired_delimiters\" either explicitly
or as part of the Perl 5.40 feature bundle.  This command allows
`cperl-mode' to recognize the same set of paired delimiters, see the
variable `cperl--extra-paired-delimiters'."
  :group 'cperl
  :lighter "«»"
  :interactive (cperl-mode)
  (if cperl-extra-paired-delimiters-mode
      (progn
        (setq-local cperl-starters cperl--extra-paired-delimiters)
        (cperl-find-pods-heres (point-min) (point-max)))
    (setq-local cperl-starters cperl--basic-paired-delimiters)
    (cperl-find-pods-heres (point-min) (point-max))))