Mercurial > hg > xemacs-beta

comparison lisp/modes/cperl-mode.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 859a2309aef8
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
30 30
31 31
32 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu 32 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu
33 ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de 33 ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de
34 34
35 ;; $Id: cperl-mode.el,v 1.2 1997/02/09 23:51:33 steve Exp $ 35 ;; $Id: cperl-mode.el,v 1.3 1997/03/09 02:37:19 steve Exp $
36 36
37 ;;; To use this mode put the following into your .emacs file: 37 ;;; To use this mode put the following into your .emacs file:
38 38
39 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t) 39 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
40 40
383 (defvar cperl-font-lock nil 383 (defvar cperl-font-lock nil
384 "*Non-nil (and non-null) means CPerl buffers will use font-lock-mode. 384 "*Non-nil (and non-null) means CPerl buffers will use font-lock-mode.
385 Can be overwritten by `cperl-hairy' if nil.") 385 Can be overwritten by `cperl-hairy' if nil.")
386 386
387 (defvar cperl-electric-lbrace-space nil 387 (defvar cperl-electric-lbrace-space nil
388 "*Non-nil (and non-null) means { after $ in CPerl buffers should be preceeded by ` '. 388 "*Non-nil (and non-null) means { after $ in CPerl buffers should be preceded by ` '.
389 Can be overwritten by `cperl-hairy' if nil.") 389 Can be overwritten by `cperl-hairy' if nil.")
390 390
391 (defvar cperl-electric-parens-string "({[<" 391 (defvar cperl-electric-parens-string "({[<"
392 "*String of parentheses that should be electric in CPerl.") 392 "*String of parentheses that should be electric in CPerl.")
393 393
2157 (cond 2157 (cond
2158 ((match-beginning 1) ; POD section 2158 ((match-beginning 1) ; POD section
2159 ;; "\\(\\`\n?\\|\n\n\\)=" 2159 ;; "\\(\\`\n?\\|\n\n\\)="
2160 (if (looking-at "\n*cut\\>") 2160 (if (looking-at "\n*cut\\>")
2161 (progn 2161 (progn
2162 (message "=cut is not preceeded by a pod section") 2162 (message "=cut is not preceded by a pod section")
2163 (setq err (point))) 2163 (setq err (point)))
2164 (beginning-of-line) 2164 (beginning-of-line)
2165 2165
2166 (setq b (point) bb b) 2166 (setq b (point) bb b)
2167 (or (re-search-forward "\n\n=cut\\>" max 'toend) 2167 (or (re-search-forward "\n\n=cut\\>" max 'toend)
2288 ;;; (t (message "End of format `%s' not found." name))) 2288 ;;; (t (message "End of format `%s' not found." name)))
2289 ))) 2289 )))
2290 ;;; (while (re-search-forward "\\(\\`\n?\\|\n\n\\)=" max t) 2290 ;;; (while (re-search-forward "\\(\\`\n?\\|\n\n\\)=" max t)
2291 ;;; (if (looking-at "\n*cut\\>") 2291 ;;; (if (looking-at "\n*cut\\>")
2292 ;;; (progn 2292 ;;; (progn
2293 ;;; (message "=cut is not preceeded by a pod section") 2293 ;;; (message "=cut is not preceded by a pod section")
2294 ;;; (setq err (point))) 2294 ;;; (setq err (point)))
2295 ;;; (beginning-of-line) 2295 ;;; (beginning-of-line)
2296 2296
2297 ;;; (setq b (point) bb b) 2297 ;;; (setq b (point) bb b)
2298 ;;; (or (re-search-forward "\n\n=cut\\>" max 'toend) 2298 ;;; (or (re-search-forward "\n\n=cut\\>" max 'toend)