Skip to content
Browse files

upstream release 6.2

  • Loading branch information...
1 parent 3f64acf commit 08c52ab6a0936af628a1a46d3daab145e4eeb695 Ilya Zakharevich committed with renormalist
Showing with 39 additions and 7 deletions.
  1. +39 −7 cperl-mode.el
46 cperl-mode.el
@@ -48,7 +48,7 @@
;;; Commentary:
-;; $Id: cperl-mode.el,v 6.1 2008/04/03 01:04:08 vera Exp vera $
+;; $Id: cperl-mode.el,v 6.2 2008/04/14 23:14:52 vera Exp vera $
;;; If your Emacs does not default to `cperl-mode' on Perl files:
;;; To use this mode put the following into
@@ -1553,6 +1553,11 @@
;;; toplevel: Define obsolete alias for `pod-spell'
;;; autoload updates to `mode-alist's
+;;; After 6.1:
+;;; toplevel: Add .PM to autoload mode list
+;;; `cperl-insert-faces-example': New function
+;;; Mode menu: New Micro-docs choice: Show Faces
;;; Code:
(if (fboundp 'eval-when-compile)
@@ -2942,6 +2947,7 @@ versions of Emacs."
["Speed" (describe-variable 'cperl-speed) t]
["Praise" (describe-variable 'cperl-praise) t]
["Faces" (describe-variable 'cperl-tips-faces) t]
+ ["Show Faces" (cperl-insert-faces-example) t]
["CPerl mode" (describe-function 'cperl-mode) t]
["CPerl version"
(message "The version of master-file for this CPerl is %s"
@@ -3253,8 +3259,9 @@ corresponding variables. Use \\[cperl-set-style] to do this. Use
Part of the indentation style is how different parts of if/elsif/else
statements are broken into lines; in CPerl, this is reflected on how
templates for these constructs are created (controlled by
-`cperl-extra-newline-before-brace'), and how reflow-logic should treat \"continuation\" blocks of else/elsif/continue, controlled by the same variable,
-and by `cperl-extra-newline-before-brace-multiline',
+`cperl-extra-newline-before-brace'), and how reflow-logic should treat
+\"continuation\" blocks of else/elsif/continue, controlled by the same
+variable, and by `cperl-extra-newline-before-brace-multiline',
`cperl-merge-trailing-else', `cperl-indent-region-fix-constructs'.
If `cperl-indent-level' is 0, the statement after opening brace in
@@ -3264,9 +3271,10 @@ column 0 is indented on
Turning on CPerl mode calls the hooks in the variable `cperl-mode-hook'
with no args.
-DO NOT FORGET to read micro-docs (available from `Perl' menu)
+DO NOT FORGET to read micro-docs (available from `Perl' menu,
or as help on variables `cperl-tips', `cperl-problems',
-`cperl-non-problems', `cperl-praise', `cperl-speed'."
+`cperl-non-problems', `cperl-praise', `cperl-speed',
(use-local-map cperl-mode-map)
@@ -3476,6 +3484,30 @@ or as help on variables `cperl-tips', `cperl-problems',
(progn (or cperl-faces-init (cperl-init-faces-weak))
+(defun cperl-insert-faces-example ()
+ "Insert example \"CODE\" demonstrating CPerl facification at beginning-of-line."
+ (or (bolp)
+ (beginning-of-line))
+ (insert
+ "my $o = sprintf grep //, <<EOP, $ENV{$_} or warn $$msg[0] for @ARGV; #junk
+some string
+-f _ or -f $_ or die 'What?';
+/\\3333\\xFg\\x{FFF}a\\ppp\\PPP\\qqq\\C\\99f(?{ foo })(??{ foo })/;
+m?(\\?\\?{b,a})? + m/(??{aa})(?(?=xx)aa|bb)(?#aac)/;
+m$(^ab[c]\\$)$ + m+(^ab[c]\\$\\+)+ + m](^ab[c\\]$|.+)] + m)(^ab[c]$|.+\\));
+m^a[\\^b-e\\xFF]c^ + m.a[^b]\\.c.; # OK
;; Fix for perldb - make default reasonable
(defun cperl-db ()
@@ -10597,7 +10629,7 @@ do extra unwind via `cperl-unwind-to-safe'."
(cperl-fontify-syntaxically to)))))
(defvar cperl-version
- (let ((v "$Revision: 6.1 $"))
+ (let ((v "$Revision: 6.2 $"))
(string-match ":\\s *\\([0-9.]+\\)" v)
(substring v (match-beginning 1) (match-end 1)))
"Version of IZ-supported CPerl package this file is based on.")
@@ -10607,7 +10639,7 @@ do extra unwind via `cperl-unwind-to-safe'."
(funcall f 'pod-spell 'cperl-pod-spell))) ; Avoid "not defined"
;; XEmacs additions
-;;;###autoload(add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . perl-mode))
+;;;###autoload(add-to-list 'auto-mode-alist '("\\.\\([pP][LlMm]\\|al\\)\\'" . perl-mode))
;;;###autoload(add-to-list 'interpreter-mode-alist '("perl" . perl-mode))
(provide 'cperl-mode)

0 comments on commit 08c52ab

Please sign in to comment.
Something went wrong with that request. Please try again.